XL 2010 VBA: Erreur lors d'une multiplication des des chiffres avec virgule

TheProdigy

TheProdigy

XLDnaute Impliqué
Bonjour,

J'ai crée deux texbox de saisi de chiffres "Nombre" et "Prix". La multiplication ne fonctionne pas quand je saisis des chiffres avec virgule.
Merci.
upload_2018-5-7_14-13-12.png
 

Pièces jointes

  • Saisi1.xlsm
    58.1 KB · Affichages: 40
Trier par date Trier par votes
Lone-wolf

Lone-wolf

XLDnaute Barbatruc
Bonsoir à tous :)

@adilprodigy

D'où tu sort ceci o_O:
Cells(no_ligne, 13).Value = "=IF(OR(Cells(no_ligne, 8)=""Vente"", Cells(no_ligne, 8)=""Rachat""), Cout(Cells(no_ligne, 6)),"""")"

Si tu utilise la formule en anglais c'est:
Cells(no_ligne, 13).Formula ="=IF(OR(H3=""Vente"", H3=""Rachat""), F3,"""")"

With Cells(no_ligne, 13)
.Value = .Value
End With

Si j'ai bien compris la formule, en VBA ça donne

If Cells(no_ligne, "H") = "Vente" Or Cells(no_ligne, "H") = "Rachat" Then
Cells(no_ligne, "M") = Cells(no_ligne, "L")
Else
Cells(no_ligne, 13) = ""
End If

VB: 
Private Sub CommandButton_Ajouter_Click()
Dim no_ligne As Long, civilite As String

   Application.EnableEvents = False

    With Sheets("Annuaire")
        no_ligne = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        'Insertion des valeurs sur la feuille
        .Cells(no_ligne, 3) = ComboBox1.Value
        .Cells(no_ligne, 1) = ComboBox2.Value
        .Cells(no_ligne, 5) = ComboBox3.Value
        .Cells(no_ligne, 4) = ComboBox4.Value
        .Cells(no_ligne, 2) = ComboBox5.Value
        .Cells(no_ligne, 6) = ComboBox6.Value
        .Cells(no_ligne, 7) = ComboBox7.Value
        .Cells(no_ligne, 9) = CDate(DTPicker1.Value)
        .Cells(no_ligne, 8) = ComboBox8.Value
        .Cells(no_ligne, 10) = TextBox1.Value
        .Cells(no_ligne, 11) = TextBox2.Value
        .Cells(no_ligne, 12) = Val(Replace(TextBox1.Value, ",", ".")) * Val(Replace(TextBox2.Value, ",", "."))    'Cells(no_ligne, 12) = CDbl(TextBox1.Value) * CDbl(TextBox2.Value) 'Cells(no_ligne, 12) = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))
        .Cells(no_ligne, 12).Style = "Comma"
    End With
    With Sheets("Annuaire")
        If .Cells(no_ligne, "H") = "Vente" Or .Cells(no_ligne, "H") = "Rachat" Then
            .Cells(no_ligne, "M") = .Cells(no_ligne, "L")
        Else
            .Cells(no_ligne, "M") = ""
        End If
    End With
    Application.EnableEvents = True

    MsgBox ("la ligne a été ajoutée avec succés" & ". Le montant total est " & Format(Cells(no_ligne, 12).Value, "#,##0.00"))

    Me.ComboBox1.Value = ""
    Me.ComboBox2.Value = ""
    Me.ComboBox3.Value = ""
    Me.ComboBox4.Value = ""
    Me.ComboBox5.Value = ""
    Me.ComboBox6.Value = ""
    Me.ComboBox7.Value = ""
    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Sheets("Annuaire").Columns("A:M").AutoFit
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
TheProdigy

TheProdigy

XLDnaute Impliqué
Lone-wolf à dit:
Bonsoir à tous :)

@adilprodigy

D'où tu sort ceci o_O:
Cells(no_ligne, 13).Value = "=IF(OR(Cells(no_ligne, 8)=""Vente"", Cells(no_ligne, 8)=""Rachat""), Cout(Cells(no_ligne, 6)),"""")"

Si tu utilise la formule en anglais c'est:
Cells(no_ligne, 13).Formula ="=IF(OR(H3=""Vente"", H3=""Rachat""), F3,"""")"

With Cells(no_ligne, 13)
.Value = .Value
End With

Si j'ai bien compris la formule, en VBA ça donne

If Cells(no_ligne, "H") = "Vente" Or Cells(no_ligne, "H") = "Rachat" Then
Cells(no_ligne, "M") = Cells(no_ligne, "L")
Else
Cells(no_ligne, 13) = ""
End If

VB: 
Private Sub CommandButton_Ajouter_Click()
Dim no_ligne As Long, civilite As String

   Application.EnableEvents = False

    With Sheets("Annuaire")
        no_ligne = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        'Insertion des valeurs sur la feuille
        .Cells(no_ligne, 3) = ComboBox1.Value
        .Cells(no_ligne, 1) = ComboBox2.Value
        .Cells(no_ligne, 5) = ComboBox3.Value
        .Cells(no_ligne, 4) = ComboBox4.Value
        .Cells(no_ligne, 2) = ComboBox5.Value
        .Cells(no_ligne, 6) = ComboBox6.Value
        .Cells(no_ligne, 7) = ComboBox7.Value
        .Cells(no_ligne, 9) = CDate(DTPicker1.Value)
        .Cells(no_ligne, 8) = ComboBox8.Value
        .Cells(no_ligne, 10) = TextBox1.Value
        .Cells(no_ligne, 11) = TextBox2.Value
        .Cells(no_ligne, 12) = Val(Replace(TextBox1.Value, ",", ".")) * Val(Replace(TextBox2.Value, ",", "."))    'Cells(no_ligne, 12) = CDbl(TextBox1.Value) * CDbl(TextBox2.Value) 'Cells(no_ligne, 12) = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))
        .Cells(no_ligne, 12).Style = "Comma"
    End With
    With Sheets("Annuaire")
        If .Cells(no_ligne, "H") = "Vente" Or .Cells(no_ligne, "H") = "Rachat" Then
            .Cells(no_ligne, "M") = .Cells(no_ligne, "L")
        Else
            .Cells(no_ligne, "M") = ""
        End If
    End With
    Application.EnableEvents = True

    MsgBox ("la ligne a été ajoutée avec succés" & ". Le montant total est " & Format(Cells(no_ligne, 12).Value, "#,##0.00"))

    Me.ComboBox1.Value = ""
    Me.ComboBox2.Value = ""
    Me.ComboBox3.Value = ""
    Me.ComboBox4.Value = ""
    Me.ComboBox5.Value = ""
    Me.ComboBox6.Value = ""
    Me.ComboBox7.Value = ""
    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Sheets("Annuaire").Columns("A:M").AutoFit
End Sub
Cliquez pour agrandir...

Bonsoir @Lone-wolf bonsoir le forum,

Merci, j'ai enregistré la Macro => sélectionner la cellule=> appuyer sur F2=>copier coller sur VBA
Puis j’ai copié le code VBA telquel puis j’ai remplacé les A1C1 par les Cells(1,1) pour que la fonction Excel fonctionne sous environnement VBA. Comme le numéro de la ligne est no_ligne donc j'ai remplacé dans Cells(no_ligne, 8)=""Vente"" voilà.
Merci @Lone-wolf ton code a fonctionné

J'ai une question à ce propos
Je voudrais ajouter une sous-condition If

If Cells(no_ligne, "H") = "Vente" Or Cells(no_ligne, "H") = "Rachat" Then
Cells(no_ligne, "M") = Cells(no_ligne, "L")+1
If Cells(no_ligne, "L")+1=10 then msgbox("attention impossible de valider la saisi") 'Je veux interdire la validation et sortir
End IF
Else
Cells(no_ligne, 13) = ""
End If

Merci d'avance
 
Vote positif 0 Vote négatif
TheProdigy

TheProdigy

XLDnaute Impliqué
Bonjour @Lone-wolf, bonjour le Forum,

Je me suis mal exprimé,
VB: 
With Sheets("Annuaire")
        If .Cells(no_ligne, "H") = "Vente" Or .Cells(no_ligne, "H") = "Rachat" Then
            .Cells(no_ligne, "M") = .Cells(no_ligne, "L")
         [COLOR=#0080ff]        'Je veux insérer ici une nouvelle sous-condition après cette ligne[/COLOR]. [COLOR=#0080ff]Si la valeur de Cells(no_ligne, "M") = 10 alors un Vbcritical "Attention valeur égale à 10"[/COLOR]
        Else
            .Cells(no_ligne, "M") = ""
        End If
    End With

Merci
 
Vote positif 0 Vote négatif

Discussions similaires

H
  • Question
Microsoft 365 Format de cellule
Réponses
3
Affichages
203
Simply
Simply
S
  • Question
XL 2019 valeur aléatoire à deux décimale
2
Réponses
18
Affichages
624
Modeste geedee
Modeste geedee
C
  • Résolu(e)
XL 2021 Boucles dans une macro. Je ne sais pas faire
2 3
Réponses
30
Affichages
933
Constantin
C
R
  • Question
XL 2016 garder les décimales sans la virgule
Réponses
11
Affichages
269
job75
job75
M
  • Question
XL pour MAC mise en forme
Réponses
2
Affichages
212
M.D
M
Y
  • Résolu(e)
XL 2016 Comment supprimer des chiffres + texte en fin de cellule
Réponses
2
Affichages
229
Yayanne76
Y
T
  • Question
XL 2010 Comment faire une somme dans un tableau ?
Réponses
6
Affichages
286
Titi_38
T
D
  • Résolu(e)
Microsoft 365 fonction de recherche multiple
Réponses
3
Affichages
272
dd_76
D
A
  • Résolu(e)
XL 2013 Inputbox numérique
Réponses
3
Affichages
193
sylvanu
sylvanu
T
  • Question
Microsoft 365 problème basique de point et virgule
Réponses
2
Affichages
490
thenesol
T

Membres actuellement en ligne

17 membres et 282 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 514
Messages
2 089 210
Membres
104 066
dernier inscrit
il matador