[RESOLU] Excel Macro : Sheet-Range.select avec ActiveX

Excel Macro : Sheet-Range.select avec ActiveX [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 01-02-2008 à 16:47:45    

Bonjour à tous,
 
J'aimerai insérer dans un document Excel des cases d'options. Chaque case renvoyant une action précise.
Ces actions passent toutes par un changement de feuille et de cellule.
 
Voici le code :
 

Code :
  1. Private Sub OptionButton2_Click()
  2. Sheets("Feuil2" ).Select
  3.     Range("C5" ).Select
  4.     ActiveCell.FormulaR1C1 = "Bouton n°2 : blablabla"
  5.     ...suite de l'action...
  6. End Sub


 
Cependant cela me renvoie une erreur : "La méthode Select de la classe Range a échoué", le debugger me surlignant la ligne "Range("C5" ).Select".
 
En cherchant sur le net j'ai cru comprendre qu'il fallait que je désactive le mode modal, mais impossible d'y arriver.
 
Avez-vous une solution ?  
Merci d'avance  :D  
 
http://cjoint.com/data/cbqUDxntxl_casesoptions.xls


Message édité par Jaktens Tid le 02-02-2008 à 18:57:28
Reply

Marsh Posté le 01-02-2008 à 16:47:45   

Reply

Marsh Posté le 02-02-2008 à 13:01:05    

Forcément range doit s'appliquer sur un objet sheet. If faut rajouter activesheet

Code :
  1. Private Sub OptionButton2_Click()
  2.     Sheets("Feuil2" ).Select
  3.     ActiveSheet.Range("C5" ).Select
  4.     ActiveCell.FormulaR1C1 = "Bouton n°2 : blablabla"
  5.     ...suite de l'action...
  6. End Sub


Message édité par dreameddeath le 02-02-2008 à 13:01:24
Reply

Marsh Posté le 02-02-2008 à 18:57:10    

C'était tout con ... Merci beaucoup  :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed