XL 2013 Multiplication Textbox avec pourcentage

Hauliege

XLDnaute Nouveau
Bonjour chers Tous,

Dans mon code Vba j'ai fait la multiplication entre des TextBox et le résultat est correct.
Mon problème à la validation de mon code j'ai un message "d'erreur 13 incompatibilité de type".
Débogage indiqué au niveau de mes ComboBox et avec "Val" ou "CDbl" le problème demeure????!!!
Ci-joint fichier et Merci de votre aide!
Hauliege
 

Pièces jointes

  • Test.xlsm
    184.2 KB · Affichages: 40
Solution
Re
de mon Ordi Lol
j'ai cette procédure dans mon fichier .
VB:
Private Sub CmbB_Noms_Clients_Change()
With Me.CmbB_Noms_Clients
        Me.TxtB_Adresse_1.Value = .List(.ListIndex, 2)
        Me.TxtB_Adresse_2.Value = .List(.ListIndex, 3)
        Me.TxtB_Telephone.Value = .List(.ListIndex, 4)
        Me.TxtB_Fax.Value = .List(.ListIndex, 5)
        Me.TxtB_Email.Value = .List(.ListIndex, 6)
End With
End Sub

voir Vidéo !

jean marie

dysorthographie

XLDnaute Accro
Bonjour,
Val converti un texte au format numérique mais le caractère décimal doit impérativement être un point !

Cdbl converti un texte en numérique mais il faut imperativement que le caractère décimal respect les paramètres régionaux qui suivant les pays est un point ou une virgule {pour la France notamment}!

Je préconise d'utiliser val en ayant pris soin de convertir la virgule en point !
Il est même conseillé de test isnumeric!
Code:
 dbl= val( replace(txt,",","."))
 

Hauliege

XLDnaute Nouveau
Merci pour ta réponse Dysorthographie mais débutant et ne maîtrisant pas trop Vba j'avoue que je suis perdu.
Je précise que dans mon fichier joint
T12 est en pourcentage
T13 = T12 x T11
les resultats s'affichent mais le problème c'est le débogage au niveau du combobox....lorsque je valide!
l'erreur 13 incompatibilité de type comment le resoudre?
Merci encore de votre aide
 

Hauliege

XLDnaute Nouveau
Bonjour Jean Marie
Bonjour le Forum,
@jean marie merci pour ta réponse j’apprécie ton code est très explicite......malheureusement le problème "Erreur 13 incompatibilité de type" est encore là!!!!!!!
la flèche jaune se positionne dans cette partie :

Private Sub ComboBox3_Change()
Me.TextBox12.Value = Sheets("Remise").Range("B" & Me.ComboBox3.ListIndex + 2)
TextBox13. Value = TextBox11. Value * TextBox12.Value
TextBox16.Value = Val(TextBox11.Value) - Val(TextBox13.Value)
End Sub


J'ajoute que pour la TextBox 12 (taux remise) j'ai :

Private Sub TextBox12_Change()
If Me.TextBox11.Value <> "" Then
TextBox13.Value = Val(TextBox11.Value) * Val(TextBox12.Value)
Else
Me.TextBox13.Value = ""
End If
End Sub


Ma question demeure comment résoudre ce problème d'incompatibilité?
Merci à tous pour vos réponses
Hauliege
 

Pièces jointes

  • Test.xlsm
    184.2 KB · Affichages: 3

dysorthographie

XLDnaute Accro
VB:
Private Sub TextBox12_Change()
If IsNumeric(Replace(Replace(TextBox11.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator)) And IsNumeric(Replace(Replace(TextBox12.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator)) Then
    TextBox13.Value = Val(Replace(TextBox11.Value, ",", ".")) * Val(Replace(TextBox12.Value, ",", "."))
Else
    TextBox13.Value = ""
End If
End Sub
Private Sub TextBox11_Change()

If IsNumeric(Replace(Replace(TextBox11.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator)) And IsNumeric(Replace(Replace(TextBox12.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator)) Then
    TextBox13.Value = Val(Replace(TextBox11.Value, ",", ".")) * Val(Replace(TextBox12.Value, ",", "."))
Else
    TextBox13.Value = ""
End If
End Sub
 
Dernière édition:

dysorthographie

XLDnaute Accro
J'ai oublié le % ,et comme ça?
Code:
Private Sub TextBox12_Change()
calcul
End Sub
Private Sub TextBox11_Change()
calcul
End Sub

Private Sub calcul()
If IsNumeric(Replace(Replace(Replace(TextBox11.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator), "%", "")) And IsNumeric(Replace(Replace(Replace(TextBox12.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator), "%", "")) Then
    TextBox13.Value = Evaluate(Replace(TextBox11.Value, ",", ".") & "*" & Replace(TextBox12.Value, ",", "."))
Else
    TextBox13.Value = ""
End If
End Sub
 

Hauliege

XLDnaute Nouveau
J'ai oublié le % ,et comme ça?
Code:
Private Sub TextBox12_Change()
calcul
End Sub
Private Sub TextBox11_Change()
calcul
End Sub

Private Sub calcul()
If IsNumeric(Replace(Replace(Replace(TextBox11.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator), "%", "")) And IsNumeric(Replace(Replace(Replace(TextBox12.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator), "%", "")) Then
    TextBox13.Value = Evaluate(Replace(TextBox11.Value, ",", ".") & "*" & Replace(TextBox12.Value, ",", "."))
Else
    TextBox13.Value = ""
End If
End Sub
J'ai oublié le % ,et comme ça?
Code:
Private Sub TextBox12_Change()
calcul
End Sub
Private Sub TextBox11_Change()
calcul
End Sub

Private Sub calcul()
If IsNumeric(Replace(Replace(Replace(TextBox11.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator), "%", "")) And IsNumeric(Replace(Replace(Replace(TextBox12.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator), "%", "")) Then
    TextBox13.Value = Evaluate(Replace(TextBox11.Value, ",", ".") & "*" & Replace(TextBox12.Value, ",", "."))
Else
    TextBox13.Value = ""
End If
End Sub

Toujours le même problème cher Dysorthographie avec debogage ici
Private Sub ComboBox3_Change()
Me.TextBox12.Value = Sheets("Remise").Range("B" & Me.ComboBox3.ListIndex + 2)
TextBox13. Value = TextBox11. Value * TextBox12.Value
TextBox16.Value = Val(TextBox11.Value) - Val(TextBox13.Value)
End Sub
 

ChTi160

XLDnaute Barbatruc
Re
j'ai , pour que cela soit plus clair pour celui qui n'est pas le Créateur renommé les Controls.
regarde le fichier joint
il me faut des explications quant aux dénominations et Calculs à faire
dans la Feuille(Stock) PR et PV cà correspond a Quoi ?
Pour ce qui est des calculs et correspondances des TextBox .
Montant HT
Net HT
Montant TTC
Tu vois je suis pas très fufute ! Lol
Tu regardes le Fichier (toujours pas fonctionnel ) en attente du complément d'infos
jean marie
Edit : j'ai changé le Fichier 15:56
 

Pièces jointes

  • Test Chti160-2.xlsm
    198 KB · Affichages: 7
Dernière édition:

Hauliege

XLDnaute Nouveau
Re
j'ai , pour que cela soit plus clair pour celui qui n'est pas le Créateur renommé les Controls.
regarde le fichier joint
il me faut des explications quant aux dénominations et Calculs à faire
dans la Feuille(Stock) PR et PV cà correspond a Quoi ?
Pour ce qui est des calculs et correspondances des TextBox .
Montant HT
Net HT
Montant TTC
Tu vois je suis pas très fufute ! Lol
Tu regardes le Fichier (toujours pas fonctionnel ) en attente du complément d'infos
jean marie

Pour les dénominations
PR = prix de revient
PV = prix de vente
il n'y a pas de calcul à faire pour les obtenir dans la Feuille(Stock).
Les seuls résultats obtenus par calculs sur cette feuille sont effectués entre les colonnes K,L,M et N pour le stock définitif en M

Pour les calculs et correspondances :
Montant HT = Qté * PU(qui est le PV dans Feuille(Stock))

Montant Remise = HT * Taux Remise
Net HT= HT-Montant Remise

Montant TVA = Net HT * Taux Tva
TTC=Net HT+Montant TVA

Montant Airsi = TTC * Taux Airsi
Net A Payer = TTC + Montant Airsi.
Merci de te pencher sur mon cas.
J'apprecie les controls renommés
 

Discussions similaires