Champs vba

Résolu/Fermé

Joda - 7 janv. 2013 à 17:12
ping 13 Messages postés 122 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 15 janvier 2013 - 9 janv. 2013 à 18:51

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

A voir également:

Champs vba
Erreur 1004 vba ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Récupérer valeur cellule vba ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

Joda
8 janv. 2013 à 09:35

bonjour

Personne pour m'apporter une réponse?

Cordialement

ping 13 Messages postés 122 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 15 janvier 2013 30
8 janv. 2013 à 17:05

re

toujours pas de réponse!!

Réponse 2 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
8 janv. 2013 à 18:08

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

ping 13 Messages postés 122 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 15 janvier 2013 30
9 janv. 2013 à 10:54

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
Modifié par michel_m le 9/01/2013 à 11:28

Bonjour

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

Réponse 3 / 4

ping 13 Messages postés 122 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 15 janvier 2013 30
9 janv. 2013 à 13:41

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
9 janv. 2013 à 14:26

Tout simplement une faute de frappe ;o) (ça, je sais hachement bien faire)
Textprix.text

Réponse 4 / 4

ping 13 Messages postés 122 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 15 janvier 2013 30
9 janv. 2013 à 18:51

re

Merci Michel_m cela fonctionne à merveille.
Pourtant je met des lunettes ,mais j'ai pas vu

Cordialement

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters