OptionButton
Résolu
Bonjour,
J'ai un UserForm avec des OptionButtons :
- OptionButton1 = Oui
- OptionButton2 = Non
Si OptionButton1= True alors B2 = "OK"
Si OptionButton2 = True alors B2 ="Néant"
En vous remerciant d'avance.
Cordialement,
J'ai un UserForm avec des OptionButtons :
- OptionButton1 = Oui
- OptionButton2 = Non
Si OptionButton1= True alors B2 = "OK"
Si OptionButton2 = True alors B2 ="Néant"
En vous remerciant d'avance.
Cordialement,
5 réponses
-
Re,
ThauTheme:
Ça n'a carrément rien à voir !!!
Si, l'idee etait la, apres le contexte est un peu different, mais bon.
Jono92600:
Allez, je prends. Donc sur ajout de ligne vous voulez, pour les optionBoutons, mettre ceci: "Ok" ou "Néant" dans les cellules correspondantes suivant le bouton actif ceci par paires: 1-2, 3-4 etc
Oui?-
-
-
@f894009Très bien merci beaucoup.
Parce que l'idée serais d'afficher certaines colonnes dans un autre Userform qui contient des Textbox.
Si la valeur du TextBox = "Néant" alors sa me le mets le TextBox en Noir carrément.
Et si texBox = "OK" alors il m'affiche la valeur de la cellule à sa droite.
Mais bon, je regarderais ça par la suite.
J'ai déja une idée de comment faire.
Merci. -
@Jono92600Re,
Dans un premier temps, votre fichier avec les optionbuttons
https://www.cjoint.com/c/GBrj3QwypVf -
@f894009Merci beaucoup. Sa fonctionne parfaitement.
Je vais passer à l'étape suivante :).
-
-
Re,
Non non Jono, ce n'est pas mal expliqué !
Ça n'a carrément rien à voir !!!
Je passe la main...
-
Bonjour les camarades, je remercie de votre réactivité.
J'avais mal expliqué mon problème. J'aimerai faire la meme chose mais sur toute la colonne.
Je vous mets le lien du fichier.
https://www.cjoint.com/c/GBri22x8Qxl
En vous remerciant d'avance.
Cordialement, -
Bonjour le fil, bonjour le forum,
Autre possibilité plus simple :Private Sub OptionButton1_Change() Worksheets("Feuil1").Range("B2").Value = IIf(Me.OptionButton1.Value = True, "Ok", "Néant") End Sub
-
Bonjour,
Private Sub OptionButton1_Click() If OptionButton1 Then Worksheets("feuil1").Range("B2") = "Ok" End Sub Private Sub OptionButton2_Click() If OptionButton2 Then Worksheets("feuil1").Range("B2") = "Néant" End Sub
