OptionButton

Résolu
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   -  
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   -
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,

5 réponses

Réponse 1 / 5
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Réponse 2 / 5
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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

0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour ThauTheme,

En effet, je ne pense pas souvent au IIf
0
Réponse 3 / 5
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention  
 
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,
0
Réponse 4 / 5
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Re,

Non non Jono, ce n'est pas mal expliqué !
Ça n'a carrément rien à voir !!!

Je passe la main...
0
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention  
 
:), Je suis désolé ThauTheme.

Quand je rentre le site dans le TextBox, je sélectionne par la suite les élément existants dans ce site.

Si OUI alors la colonne et ligne concerné = "OK"
Si NON alors la colonne et ligne concerné = "Néant"

Merci.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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?
0
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention  
 
D'accord vous avez raison ça n'a rien à voir. Oui je veux exactement ça.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Ok, je regarde

A+
0
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Trè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.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Dans un premier temps, votre fichier avec les optionbuttons
https://www.cjoint.com/c/GBrj3QwypVf
0
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup. Sa fonctionne parfaitement.
Je vais passer à l'étape suivante :).
0