XL 2010 Problème compte !

L

Lolote83

XLDnaute Barbatruc

• 10 Septembre 2021

• #2

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Septembre 2021

• #3

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 :

VB:

        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

 

Pièces jointes

• COMMANDE LEGUMES MERCREDI.xlsm

  125 KB · Affichages: 1

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 10 Septembre 2021

• #4

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 10 Septembre 2021

• #5

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

 

Vote positif 0 Vote négatif