Champs vba
Résolu
Bonjour,
Je viens de réaliser un formulaire userform sur excel ,là ou je coince s'est
pour mettre au format numérique 2 chiffre après la virgule le champs PRIX.
Actuellement comme code il n'y que le strict minimum c'est-à-dire
PrivateSub TextPrix_change()
End Sub
Pouvez vous svp me dire quel je dois mettre pour que cela fonctionne.
Tous les champs texte fonctionnent
Cordialement
Je viens de réaliser un formulaire userform sur excel ,là ou je coince s'est
pour mettre au format numérique 2 chiffre après la virgule le champs PRIX.
Actuellement comme code il n'y que le strict minimum c'est-à-dire
PrivateSub TextPrix_change()
End Sub
Pouvez vous svp me dire quel je dois mettre pour que cela fonctionne.
Tous les champs texte fonctionnent
Cordialement
4 réponses
-
bonjour
Personne pour m'apporter une réponse?
Cordialement -
ContributeurBonjour
Dans la grande majorité des cas, pas de réponse égale question imprécise ou mal formulée.
De plus, les intervenants (qui sont tous bénévoles, je te le rappelle), sont souvent rebutés par un manque d'effort du questionneur
-
Bonjour michel_m
J'apporte une rectification à ce que j'ai demandé plus haut.
Quel code faut-il mettre a la textbox " textprix" afin qu'elle accepte les données numériques
2 chiffres après la virgule c'est à dire que je puisse entrée un prix exemple 2,65.
Les textbox ou il n'y a que du texte fonctionne bien.
J'espère avoir été le plus clair possible
Cordialement -
ContributeurBonjour
par exemple: n'accepte que les numériques avec ou sans virgule et détruit tout autre caractère
a adapter à ton contexte
Private Sub CommandButton1_Click() Range("A1") = CDbl(TextBox1) End Sub Private Sub TextBox1_Change() On Error Resume Next If Not IsNumeric(Right(TextBox1, 1)) And Right(TextBox1, 1) <> "," Then MsgBox "Caractère invalide" TextBox1 = Left(TextBox1, Len(TextBox1) - 1) End If End Sub
-
-
Bonjour michel-m
Merci pour tes réponses
Je te joins mon fichier car j'ai un problème que n'arrive pas à résoudre.
En mettant ton code je me retrouve avec "erreur 404" bug sur ActiveSheet.Cells(numLigneVide, 8) = TxtPrix.Text
https://www.cjoint.com/c/CAjnLGTLD82
Là encore je coinçe
Cordialement -
re
Merci Michel_m cela fonctionne à merveille.
Pourtant je met des lunettes ,mais j'ai pas vu
Cordialement
