Indexation de CheckBox sous VBA - Programmation
Marsh Posté le 21-11-2001 à 17:15:30
un petit bout de cde qui pourra peut etre t'aider 
si tu as des checkbox et 1 bouton dans ton userform: 
ça marche si tu n'as pas renomme la propriete name. 
 
Private Sub CommandButton1_Click() 
Dim MyControl As Control 
Dim temp(9) 
 
'For i = 0 To 9 
'temp(i) = Sheets("feuil1" ).Range("a1" ).Offset(i) 
'Next 
 
For Each MyControl In Controls 
 
If Left(MyControl.Name, 8) = "CheckBox" Then 
MsgBox (MyControl.Name & "  " & MyControl.Caption) 
End If 
 
Next 
End Sub 
Marsh Posté le 21-11-2001 à 15:49:48
Salut,
J'ai un problème en VBA, sur un ficher (*.XLS) j'ai une colonne contenant plusieurs noms de sociétés.
Je créé un USERFORM contenant autant de CheckBox que de sociétés différentes. Mon problème est le suivant : je ne sais pas quel est le nom (ou l'index) de chacun des CheckBox donc je ne peux pas lui dire quelle est l'action à faire pour chacun des checkbox. Et ça... C'est la galère !