[RESOLUTO}afficher TextBox Si ComboBox est = (exmple) 3

[Ilino]

Bonsoir Forum
voila j'ai ce code

Private Sub ComboBox3_Change()
......
If ComboBox3.ListIndex = "3" Then TextBox7.Visible = True
.....
End Sub

si la valeur dans le comboBox est 3 alors afficher le TextBox7
Mais ça n a pas fonctionné???
Grazie

 

[Staple1600]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Bonsoir à tous

Ilino
Essaie en mettant =3 et non pas ="3" ...

 

[Ilino]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Bonsoir JM
Grazie pour la remarque ci dessous le bon code

If ComboBox3.Value = 3 Then
TextBox7.Visible = True

Else
TextBox7.Visible = False

End If

maintenant je souhaite que le format soit en CHIFFRE seulemnt avec Unité ml??
ci dessous le code

Private Sub TextBox7_Change()

TextBox7.Value = Format(TextBox7.Value, "# ##0.00 ml")

End Sub

grazie JM

 

[Staple1600]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re

Ilino
Jamais tu cherches un petit peu par toi-même avant de poser tes questions ?

Sub Macro1()
'1) test avec l'enregistreur de macros
Range("A1") = 10.5
Range("A1").NumberFormat = "#,##0.00"" ml"""

'2) ci qui nous permet de déduire:
Dim Chaine$
Chaine = 10.5
MsgBox Chaine, vbInformation, "1"
MsgBox Format(Chaine, "#,##0.00"" ml"""), vbExclamation, "2"
'3) Je te laisse utiliser la syntaxe de Format pour tes TextBoxs
End Sub

 

[Ilino]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re JM
j'AI tésté avec ce code

Private Sub TextBox7_Change()

Range("AD2").NumberFormat = "#,##0.00"" ml"""
TextBox7.Value = Format(Range("AD2").Value, "#,##0.00"" ml""")
End Sub

mais ça n a rien donné??
Sorry

 

[Staple1600]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re

Ilino
J'aurais plutôt tester ceci, non ?

Private Sub TextBox7_Change()
TextBox7.Value = Format(TextBox7.Value, "#,##0.00"" ml""")
End Sub

Ce qui devrait être légèrement irritant à l'usage

 

[Ilino]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re
peut etre j'ai mal exposé mon souci je souhaite saisir une valeur dans TextBox d'un USF ( format 123,45 ml" ) apres affecter cette valeur dans la colonne AD( aprtir de 2)
A+

 

[Ilino]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re

Ilino
J'aurais plutôt tester ceci, non ?

Private Sub TextBox7_Change()
TextBox7.Value = Format(TextBox7.Value, "#,##0.00"" ml""")
End Sub

Ce qui devrait être légèrement irritant à l'usage

Re
non plus ça n a pas fonctionné
A+

 

[Staple1600]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re


Alors comme ceci

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dl&
    dl = Cells(Rows.Count, "AD").End(xlUp).Row + 1
    With Range("AD" & dl)
    .Value = Format(TextBox7.Value, "#,##0.00"" ml""")
    .NumberFormat = "#,##0.00"" ml"""
    End With
End Sub

NB: Au delà de faire de simples copier/coller, il serait peut-être temps de chercher à comprendre la syntaxe VBA, non ?
Tu as quand même 1800 messages au compteur, Ilino.
On ne peut donc plus te considérer comme débutant en VBA.

 

[Ilino]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re
merci JM pour la réponse , pour affecter la valeur de TextBox au cellule , je peux la faire,via le bouton de valider dans mon USF, le seule souci est comment faire pour afficher dans le TextBox (USF) la valeur en format numerique ( Ex. 123.45) avec Unité (ml)
GRAZIE ET GRAZIE ENCORE JM

 

[Staple1600]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re


Ilino
Je t'ai déjà répondu ici, non ?
https://www.excel-downloads.com/threads/resoluto-afficher-textbox-si-combobox-est-exmple-3.224801/

 

[Ilino]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re

Ilino
J'aurais plutôt tester ceci, non ?

Private Sub TextBox7_Change()
TextBox7.Value = Format(TextBox7.Value, "#,##0.00"" ml""")
End Sub

Ce qui devrait être légèrement irritant à l'usage

Re
mais ce dernier n'a pas fonctionne mais apres verification tes code je pense que ce code fonctionne

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7 = Format(TextBox7.Value, "#,##0.00"" ml""")
End Sub

GRAZIE JM

 

[Staple1600]

Re : afficher TextBox Si ComboBox est = (exmple) 3

Re

Ilino
Je t'ai donné la syntaxe avec Format, puis conseiller de préférer la procédure Exit à la procédure Change
Ensuite je te laissais le soin de faire des tests, des essais.
Ce que tu viens de faire

NB: En général , je préfère mettre le demandeur à contribution, plutôt que poster une solution toute faite de A à Z.
Mais cela tu le savais déjà, non

 

[Ilino]

Re : [RESOLUTO}afficher TextBox Si ComboBox est = (exmple) 3

RE
Dans tous les cas Un grand GRAZIE JM et Merci pour les conseils
A+