Probleme code VBA (Multiplication)

  • Initiateur de la discussion Initiateur de la discussion mickno
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mickno

XLDnaute Nouveau
Bonjour j'ai un petit problème que je ne parvient pas a résoudre...
Jai le code suivant :
Code:
''Affichage du prix total
    If IsNumeric(Me.PU1) = True Then
        Me.PT1 = CDbl(Me.PU1) * CDbl(Me.QU1)
            End If
        
        If IsNumeric(Me.PU2) = True Then
            Me.PT2 = CDbl(Me.PU2) * CDbl(Me.QU2)
                End If
        
            If IsNumeric(Me.PU3) = True Then
                Me.PT3 = CDbl(Me.PU3) * CDbl(Me.QU3)
                    End If
        
                If IsNumeric(Me.PU4) = True Then
                    Me.PT4 = CDbl(Me.PU4) * CDbl(Me.QU4)
                        End If
        
                    If IsNumeric(Me.PU5) = True Then
                        Me.PT5 = CDbl(Me.PU5) * CDbl(Me.QU5)
                            End If
Qui permet de calculer le prix de l'item en multipliant le prix unitaire (Me.PU) par la quantité(Me.QU) Lors des sortie de piece d'un stock (Ses un UserForm et non une macro)

Celle-ci S'inscrit sur une autre feuille afin de faire un suivit.
Mon probleme etant que lorsque je suis sur Excel 2013, il ne prend pas en considération les Centime (Si j'ai 2 * 1,50 il me donne le résultat 300$. Mais lorsque je le lance sur Excel 2007, tout ce calcule bien ... je ne comprend pas.

Merci de votre temps 🙂
 
Dernière édition:
Re : Probleme code VBA (Multipliquation)

Bonjour

Multipliquation.... n'y a t'il pas un problème d'adéquation... mdr2.gif
 

Pièces jointes

  • mdr2.gif
    mdr2.gif
    9.6 KB · Affichages: 42
  • mdr2.gif
    mdr2.gif
    9.6 KB · Affichages: 44
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
1 K
Réponses
1
Affichages
949
Retour