XL 2010 Choix oui ou non dans TextBox

[mic6259]

Bonjour,
Serait-il possible que l'on puisse choisir oui ou non dans les TextBox 2 et 3, ou supprimer les TextBox et remplacer par une autre commande.
Fichier joint pour comprendre le sujet.
Merci beaucoup

 

[ChTi160]

Bonjour mic6259
une proposition avec Combobox !
jean marie

 

[Eric C]

Bonjour mic6259, bonjour Jean Marie

Fichier revu et corrigé suite à un petit oubli de notre ami Jean Marie (😉) pour inscription dans colonnes.
Bonne journée à toutes & à tous
@+ Eric c

 

[mic6259]

Merci beaucoup a vous 2
Cordialement

 

[mutzik]

bjr la foule
pour ma part, je fais :
remplacer le code de textbox 2 par :
Select Case TextBox2.Value
Case "oui": TextBox2 = "non"
Case "non": TextBox2 = ""
Case "": TextBox2 = "oui"
End Select
chaque click sur le textbox2 fait passer à une autre valeur

 

[mic6259]

Merci mutzik, je vais essayer

 

[job75]

Bonjour à tous,

Avec le double-clic :

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = IIf(LCase(TextBox2) = "oui", "non", "oui")
End Sub

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = IIf(LCase(TextBox3) = "oui", "non", "oui")
End Sub

A+

 

[patricktoulon]

Bonjour dans le même principe que @job75
écrit différemment et en détachant le moteur changeur du controls dans une sub
peut servir pour X textboxs

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
c_est_oui_ou_non TextBox2
End Sub
Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
c_est_oui_ou_non TextBox3
End Sub

Sub c_est_oui_ou_non(ByRef TXTB As MSForms.TextBox)
TXTB = Array("oui", "non")(Abs(LCase(TXTB) = "oui"))
End Sub

 

[ChTi160]

Bon !
Histoire de vous saluer !
On peut aussi se conserver la possibilité de mettre à Vide Lol

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox2
.Text = IIf(LCase(.Text) = Empty, "oui", IIf(.Text = "oui", "non", Empty))
End With
End Sub

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox3
.Text = IIf(LCase(.Text) = Empty, "oui", IIf(.Text = "oui", "non", Empty))
End With
End Sub

Bonne fin de Journée
jean marie

 

[patricktoulon]

tiens @ChTi160 celle là elle va te plaire 😉 🤣 🤣 🤣

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
c_est_oui_ou_non2 TextBox2
End Sub

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
c_est_oui_ou_non2 TextBox3
End Sub
Sub c_est_oui_ou_non2(ByRef TXTB As MSForms.TextBox)
dim Resp$
Resp = "ouinonoui"
TXTB = Mid(resp, InStr(1, resp, TXTB) + 3, 3)
End Sub

et là c'est moi qui dis LOL!!!! 🤣 🤣 🤣

 

[Eric C]

Re le forum
Bonsoir le fil

@ job75 et Jean Marie : petite question : Pourquoi convertir en minuscule la chaîne contenue dans les TextBoxs ?

TextBox2 = IIf(LCase(TextBox2) = "oui", "non", "oui")

.Text = IIf(LCase(.Text) = Empty, "oui", IIf(.Text = "oui", "non", Empty))

Bonne soirée
@+ Eric c

 

[ChTi160]

Re
Je n'ai fait que modifier les procédures de job75 .
Sûrement pour traiter l'éventuel texte qui aurait été écrit en majuscule et qui fausserait la comparaison ! a voir !
Bonne fin de soirée
Jean marie

 

[job75]

@ job75 et Jean Marie : petite question : Pourquoi convertir en minuscule la chaîne contenue dans les TextBoxs ?

Parce qu'on compare la chaîne avec "oui" qui est en minuscules...

 

[job75]

On peut aussi se conserver la possibilité de mettre à Vide Lol

Bah il suffit d'appuyer sur la touche Suppr...

 

[ChTi160]

Re
Effectivement !
Mais ça m'oblige à lâcher ma souris lol
Bonne nuit .
Jean marie