XL 2010 Aide sur base de données VBA

fanfan38

XLDnaute Barbatruc

• 2 Février 2021

• #2

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

 

Pièces jointes

• base de donnees commande.xlsm

  49.2 KB · Affichages: 10

Vote positif 0 Vote négatif

C

cash01

XLDnaute Junior

• 2 Février 2021

• #3

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Février 2021

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 3 Février 2021

• #5

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

 

Vote positif 0 Vote négatif

C

cash01

XLDnaute Junior

• 3 Février 2021

• #6

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

 

Vote positif 0 Vote négatif

C

cash01

XLDnaute Junior

• 4 Février 2021

• #7

Dranreb à dit:

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

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 4 Février 2021

• #8

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

 

Dernière édition: 4 Février 2021

Vote positif 0 Vote négatif