Discussion :

[azertix]

Salut. Je voudrais chercher si la feuille contient une checkbox d'un certain nom et si elle existe la renommer.

J'ai ce bout de code mais il ne semble pas fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Chk As CheckBox
 
For Each Chk In Wb.Worksheets(1).CheckBoxes
	If Chk.Name = "Checkbox1" Then Chk.Name = "cbEspèces"
Next Chk

Merci par avance

[azertix]

Trouvé ! Il ne fallait pas parcourir des Checkboxes mais des Shapes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Sh As Shape
 
For Each Sh In Wb.Worksheets(1).Shapes
	If Sh.Name = "CheckBox1" Then Sh.Name = "cbEspèces"
Next