Verrouiller un optionbutton en fonction d'un critère
Bonsoir,
je travaille sur un userform permettant d'alimenter un fichier de suivi pour des commerciaux
J'ai intégré une frame avec 5 optionbutton libellés comme suit :
BUTTON_CIBLE1 relatif à vrp1
BUTTON_CIBLE2 relatif à vrp2
BUTTON_CIBLE3 relatif à vrp3
BUTTON_CIBLE4 relatif à vrp4
BUTTON_CIBLE5 relatif à vrp5
le nom de mes VRP pouvant changer, je les ai mis sur un onglet paramêtres.
le caption du bouton est lié à la valeur saisie dans parametres.
Je souhaiterais que si le caption est vide alors l'option button est inactif, mais si caption remplie, alors il prend la valeur et l'option button est actif.
Avec le code suivant, la première partie de ma commande fonctionne mais si le caption est non vide, j'ai un message d'erreur
Private Sub BUTTON_CIBLE5_Click()
If BUTTON_CIBLE5.Caption = False Then Me.BUTTON_CIBLE5 = False
MsgBox ("Pas de cible référencée ! "), vbExclamation
End Sub Comment puis-je faire ?
Merci d'avance
Bonsoir floBER, bonsoir le forum,
Je placerais le code ci-dessous (à adapter) dans l'initialisation de l'UserForm :
For I = 1 To 5
If Sheets("Paramètres").Cells(I, 1).Value = "" Then Me.Controls("BUTTON_CIBLE" & I).Visible = False
Next INickel : ça marche !! merci