I
IFFIC
Guest
Bonsoir à tous et mes Re-Vœux de plein de bonnes choses pour 2005 et plus…
J'avais un fil de voici qq jours avec cette question, et José m'a gentiment suggéré de lui joindre le fichier. Plouff!!! Impossible de le transmettre. J'ai changé de disque et de fournisseur d'accès. Pourvu que cette fois cela passe…
Voici mon souci : (Copie de mon appel au secours initial)
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.
Merci d’avance pour un petit coup de main.
IFFIC
J'avais un fil de voici qq jours avec cette question, et José m'a gentiment suggéré de lui joindre le fichier. Plouff!!! Impossible de le transmettre. J'ai changé de disque et de fournisseur d'accès. Pourvu que cette fois cela passe…
Voici mon souci : (Copie de mon appel au secours initial)
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.
Merci d’avance pour un petit coup de main.
IFFIC