[Excel] renommer bouton de commande + l'affecter à ttes les feuilles

renommer bouton de commande + l'affecter à ttes les feuilles [Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 13-07-2009 à 11:58:07    

Bonjour,  
 
J'ai cherché la solution à mon problème dans plusieurs discussions mais je comprends pas grand chose...  
J'ai créer une macro fonction recherche, je l'ai affecté à un bouton, le problème c'est que :  
1_ je n'arrive pas à renommer ce bouton ("CommandButton1" )
Voici ma macro:
 
Sub Recherche_terme()  
 
Dim terme As String  
 
terme = InputBox("Entrez le terme recherché" )  
Cells.Find(what:=terme).Activate  
 
End Sub  
 
Private Sub CommandButton1_Click()  
Call Recherche_terme  
End Sub
 
Avec cette macro la recherche de termes s'effectue seulement sur la feuille sur laquelle je travaille.
 
2_ je ne sais pas comment affecter ma macro à toutes les feuilles (sauf celle où se trouve le bouton) à partir de ce seul bouton.
 

Reply

Marsh Posté le 13-07-2009 à 11:58:07   

Reply

Marsh Posté le 17-07-2009 à 16:16:04    

Cela vient de la collection cells à mon avis.
Sans aller voir la doc (sinon fait F1 sur cells) essaie Activeworkbook.cells pour avoir toutes les cells de tout le workbook.
Sinon, il faut faire une boucle
For each ws in Activeworkbook.worksheets
          ws.cells.find(... la même chose que ce que tu as écrit
next ws
 

Reply

Sujets relatifs:

Leave a Replay

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