Discussion :

[guigui69]

Bonjour à tous,

Je bloque pour réaliser une boucle sur des checkbox.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
For i = 4 To 9
 check = "CheckBox" & i
 If Worksheets("Informations").CheckBox & i.Value Then
.....
  End If
 
 
Next i

J'ai des checkbox qui commence a 4 jusqu'a 9

Je ne sais pas comment faire pour qu'il prenne en compte le
If Worksheets("Informations").CheckBox & i.Value Then

Quel erreur est-je commis?

Merci

guigui69

[gFZT82]

Bonjour guigui69,

Voici un lien utile

http://excel.developpez.com/faq/?page=OleObject

Code :

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

1
2
3
4
5
6
    Dim i As Byte
    For i = 4 To 9
        If Worksheets("Informations").OLEObjects("CheckBox" & i).Object Then
          ..............
        End If	
    Next i

Cordialement