XL 2010 Aide sur base de données VBA

[cash01]

Bonjour

J'ai besoin de votre aide pour avancer dans la construction de ma base de donneés et j’avais quelques questions.

Quand je rentre un nombre dans la case PLU dans le tableau via le formulaire il me mets un avertissement car il est entré comme texte et non comme nombre, comment peut on faire ?

De plus dans la case désignation je cherche comment faire une recherche qui affiche, avec le code PLU, la désignation du produit dans le formulaire.

Et si je peut abuser, comment fait t’on pour faire la multiplication dans le formulaire de saisie ?

J’espère que j’ai été clair.

Merci a tous pour votre aide.

Guillaume

 

[fanfan38]

Bonjour
J'espère que ça te convient
A+ François

 

[cash01]

Bonsoir

C'est un travail magnifique, c'est exactement ce que je chercher.
Par contre j'ai une erreur sur la derniere ligne :

Private Sub LARGEUR_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Me.LARGEUR.Value) = 0 Then MsgBox "Veuillez saisir la largeur": Exit Sub
If Len(Me.LONGUEUR.Value) = 0 Then MsgBox "Veuillez saisir la longueur": Exit Sub
Me.TextBox10.Value = CDbl(Me.LONGUEUR.Value) * CDbl(Me.LARGEUR.Value)
Me.TextBox12.Value = CDbl(Me.TextBox10.Value) * CDbl(Me.TextBox11.Value)
End Sub

Quand je valide sur le formulaire il me met "Erreur execution 13", "incompatibilité de type".
j'ai beau me creuser la tête mais c'est incomprehensible.

merci

 

[Dranreb]

Bonsoir.
À tout hasard modifiez vos Sub KeyPress sur ce modèle pour la 1ère :

Private Sub LARGEUR_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If KeyAscii = Asc(".") Then KeyAscii = Asc(","): Exit Sub
   If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep
   End Sub

 

[fanfan38]

Bonjour
J'ai réessayé j'ai pas d'erreur…
Quelle longueur et quelle largeur tu entres?
A+ François

 

[cash01]

Bonjour
Cela fonctionne parfaitement, j’ai changer les deux code Largeur et Longueur comme dranred me la suggérer
Merci à vous deux

 

[cash01]

Bonsoir.
À tout hasard modifiez vos Sub KeyPress sur ce modèle pour la 1ère :

Private Sub LARGEUR_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If KeyAscii = Asc(".") Then KeyAscii = Asc(","): Exit Sub
   If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep
   End Sub

Salut
Je n’arrive pas à comprendre, chez moi les modifications fonctionne à merveille (clavier AZERTY) mais quand je passe sur un clavier QUERTY plus rien ne fonctionne et il me marque la même erreur qu’au tout début.
Comment cela peut t’il se faire ?
Merci

 

[soan]

Bonjour cash01, le fil,

c'est sans doute à cause du séparateur décimal :

* pour les anglo-saxons, c'est le point « . » ; exemple : 128.75

* pour les français, c'est la virgule « , » ; exemple : 128,75

---

clavier américain = clavier "QWERTY" (pas QUERTY)

clavier français = clavier "AZERTY"

soan