I
IFFIC
Guest
Bonsoir à tous et mes vœux de plein de bonnes choses pour 2005 et plus…
Je sèche lamentablement
Voici mon souci :
Je donne aux 20 boutons d’un USF les noms qu’il aura été choisi par l’utilisateur dans une liste établie verticalement dans la feuille
«CATEGORIES » à partir de la cellule (10,1)
Private Sub UserForm_Activate()
For i = 10 To 29
Controls("CommandButton" & i - 9).Caption = Worksheets
("CATEGORIES").Cells(i, 1)
‘ Au passage, je cache les boutons inutiles
If Controls("CommandButton" & i - 9).Caption = "" Then
Controls("CommandButton" & i - 9).Visible = False
End If
Next i
End Sub
Par la suite j’aimerais récupérer son « Clic » sur l’un des dits boutons dans l’USF par un truc du genre :
CHOIX = Controls(CommandButton).Caption ….
Et provoquer l’action voulue…
Ou Label1.Caption = "CHOIX"
Sinon, je vais devoir me farcir 19 fois « Bouton 1 quand clic, bouton 2 et c.
Je suis certain qu’il y a plus rapide et plus efficace....... Pas vrai?
Merci d’avance pour un petit coup de main.
IFFIC
Je sèche lamentablement
Voici mon souci :
Je donne aux 20 boutons d’un USF les noms qu’il aura été choisi par l’utilisateur dans une liste établie verticalement dans la feuille
«CATEGORIES » à partir de la cellule (10,1)
Private Sub UserForm_Activate()
For i = 10 To 29
Controls("CommandButton" & i - 9).Caption = Worksheets
("CATEGORIES").Cells(i, 1)
‘ Au passage, je cache les boutons inutiles
If Controls("CommandButton" & i - 9).Caption = "" Then
Controls("CommandButton" & i - 9).Visible = False
End If
Next i
End Sub
Par la suite j’aimerais récupérer son « Clic » sur l’un des dits boutons dans l’USF par un truc du genre :
CHOIX = Controls(CommandButton).Caption ….
Et provoquer l’action voulue…
Ou Label1.Caption = "CHOIX"
Sinon, je vais devoir me farcir 19 fois « Bouton 1 quand clic, bouton 2 et c.
Je suis certain qu’il y a plus rapide et plus efficace....... Pas vrai?
Merci d’avance pour un petit coup de main.
IFFIC