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 !