XL 2010 Choix oui ou non dans TextBox

ChTi160

XLDnaute Barbatruc

• 21 Septembre 2021

• #2

Bonjour mic6259
une proposition avec Combobox !
jean marie

 

Pièces jointes

• Liste Chti160.xlsm

  29.1 KB · Affichages: 10

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Septembre 2021

• #3

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

 

Pièces jointes

• Liste Chti160 revue par Eric c.xlsm

  31.4 KB · Affichages: 3

Vote positif 0 Vote négatif

M

mic6259

XLDnaute Occasionnel

• 21 Septembre 2021

• #4

Merci beaucoup a vous 2
Cordialement

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 21 Septembre 2021

• #5

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

 

Vote positif 0 Vote négatif

M

mic6259

XLDnaute Occasionnel

• 21 Septembre 2021

• #6

Merci mutzik, je vais essayer

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2021

• #7

Bonjour à tous,

Avec le double-clic :

VB:

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+

 

Pièces jointes

• Liste(1).xlsm

  32.2 KB · Affichages: 10

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Septembre 2021

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Septembre 2021

• #9

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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Septembre 2021

• #10

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

VB:

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!!!! 🤣 🤣 🤣

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Septembre 2021

• #11

Re le forum
Bonsoir le fil

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

VB:

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

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

Bonne soirée
@+ Eric c

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Septembre 2021

• #12

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2021

• #13

Eric C à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2021

• #14

ChTi160 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Septembre 2021

• #15

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

 

Dernière édition: 21 Septembre 2021

Vote positif 0 Vote négatif