Champs vba
Résolu
Joda
-
ping 13 Messages postés 138 Statut Membre -
ping 13 Messages postés 138 Statut Membre -
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
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
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
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
Bonjour
par exemple: n'accepte que les numériques avec ou sans virgule et détruit tout autre caractère
a adapter à ton contexte
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
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
toujours pas de réponse!!