Indexation de CheckBox sous VBA

Indexation de CheckBox sous VBA - Programmation

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 !

Reply

Marsh Posté le 21-11-2001 à 15:49:48   

Reply

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

Reply

Marsh Posté le 22-11-2001 à 15:11:43    

IMPECCABLE !
 
Merci nur

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed