XL 2010 Problème compte !

[DAVID-44-]

Bonjour le forum,
J'ai un petit souci.
J'utilise une macro afin de compter automatiquement les produits similaires et supprimer les doublons.
Malheureusement, "les pommes" ne s'ajoutent pas entre elles, contrairement aux autres produits.
Je cherche, mais je ne trouve pas l'erreur.
Merci de votre aide.
Bon après-midi.
Cordialement.
David.

 

[Lolote83]

Bonjour,
Peut être est-ce du au fait que la cellule B14 (Onglet LEGUMES) soit inscrit en minuscule.
Je l'ai modifié en majuscule et le compte est bon.
@+ Lolote83

 

[sylvanu]

Bonjour David,
Vous avez des pommes et des POMMES. pour le VBA c'est différent.
Le mieux est de tout homogénéiser en majuscules avant de compter en utilisant UCASE :

        Produit = UCase(.Cells(L, "B")): Cond = UCase(Cells(L, "D")): Qté = 0
        For Lprod = 3 To DL
            ' Si c'est le bon produit avec le bon conditionnment
            If UCase(F.Cells(Lprod, "B")) = Produit And UCase(F.Cells(Lprod, "D")) = Cond Then
                ' On ajoute la quantité
                Qté = Qté + F.Cells(Lprod, "C")
            End If
        Next Lprod

 

[fanch55]

Bonjour à tous,
Pour ma part, j'ai juste mis Option Compare Text en début de module1 ...

 

[DAVID-44-]

Bonjour Lolote83, sylvanu, fanch55, le forum,
Merci beaucoup.
Super.
Bon après-midi.
Cordialement.
David.