Changer caption d'un CommandButton

Question

Bonjour,

je cherche à modifier le Caption d'un CommandButton d'une feuille sans succès car il faut d'abord que je sache quel est le CommandButton qui a cette valeur.

(La valeur est stockée dans la variable dossard et je veux réinitialiser le CommandButton qui a cette valeur)

Voici ce que j'écris:

For I = 1 To 20

 Text = Ctrl("CommandButton" & I).Caption

 If Text = dossard Then

 Ctrl("CommandButton" & I).Caption = ""

 End If

Next I

J'ai fait d'autres essais toujours infructueux. Je sais qu'il faut que je boucle sur tous les CommandButton de la feuille mais je n'y arrive pas.

merci de votre aide

Answer 1

ou :

With ActiveSheet <br><br>    For i = 1 To 20 <br><br>     Text = .OLEObjects("CommandButton" & i).Object.Caption <br><br>     If Text = dossard Then <br><br>     .OLEObjects("CommandButton" & i).Object.Caption = "" <br><br>     End If <br><br>    Next i <br><br>End With

Daniel

Bonjour,

j'ai une erreur "Incompatibilité de type" dans la 1ère proposition sur:

Text = .Shapes("CommandButton" & i).DrawingObject.Object.Caption

et une erreur "Impossible de lire la propriété Oleobject de la classe Worsheet" dans la 2ème:

Text = .OLEObjects("CommandButton" & i).Object.Caption

Cordialement

Answer 2

ou :

With ActiveSheet <br><br>    For i = 1 To 20 <br><br>     Text = .OLEObjects("CommandButton" & i).Object.Caption <br><br>     If Text = dossard Then <br><br>     .OLEObjects("CommandButton" & i).Object.Caption = "" <br><br>     End If <br><br>    Next i <br><br>End With

Daniel

Answer 3

> Est-ce parce que c'est un CommandButton dans une feuille et non dans un Userform ?

Tout à fait, je n'avais pas percuté. Essaie :

With ActiveSheet <br><br>    For i = 1 To 20 <br><br>     Text = .Shapes("CommandButton" & i).DrawingObject.Object.Caption <br><br>     If Text = dossard Then <br><br>     .Shapes("CommandButton" & i).DrawingObject.Object.Caption = "" <br><br>     End If <br><br>    Next i <br><br>End With

Cordialement.

Daniel

Answer 4

Merci Daniel,

mais j'ai une erreur

"Sub ou fonction non définie"

sur le 1er Controls

Est-ce parce que c'est un CommandButton dans une feuille et non dans un Userform ?

Cordialement

Answer 5

Bonsoir,

For I = 1 To 20

 Text = Controls("CommandButton" & I).Caption

 If Text = dossard Then

    Controls("CommandButton" & I).Caption = ""

    Exit For

 End If

Next I

Cordialement.

Daniel