Probleme de IF

Bjr,

J'ai une liste de chiffre compri entre 91 et 98 en colonne B et des entier en colonne C

Je souhaite parcourir ma liste et récuperé la somme des entiers pour les chiffre 91, 92, 93 ...etc

Voici mon code, je souhaite que mon "i" remplace les unités de mon 91, 92, 93 ... Mais cela ne doit pas être la bonne écriture. J'ai du mal a expliquer alors si vous n'avez pas compris quelque chose dite le moi. Merci

    ligne = Sheets("Synthèse").Range("B65536").End(xlUp).Row
    For i = 1 To 8
        For Each cell In Worksheets("Synthèse").Range("B2:B" & ligne)
           [color=red] If cell = "9 & i" Then[/color]
               Instructions
            End If
        Next cell
    Next i

Bonjour,

sans boucle sur i

    ligne = Sheets("Synthèse").Range("B65536").End(xlUp).Row
        For Each cell In Worksheets("Synthèse").Range("B2:B" & ligne)
            If cell >= 91 And cell <= 98 Then
               Instructions
            End If
        Next cell

Ba non, je sui obligé de mettre une condition,

Je réexplique, j'ai une colonne avec 100 lignes, dont les valeur varie entre 91 et 98, et une autre colonne avec des valeurs correspondantes,

Je veux faire la somme de toute les valeurs pour 91, la somme des valeurs pour 92 ...et ainsi de suite.

Sans condition la j'obtien la somme de ma colonne.

Bonjour,

Une question, enfin plutôt deux :

• où placer le résultat ?
• pourquoi faire une macro ?

Cordialement,

J'ai fait un fichier exemple ca sera plus parlant,

Mon tableau est généré automatiquement celon des critéres, donc il change souvent de contenu. Je suis donc obligé de passer par le VBA.

https://www.excel-pratique.com/~files/doc/ptitepo.xls

Re,

Sans macro, avec la fonction SOMME.SI utilisant des plages nommées dynamiquement avec la fonction DECALER.

https://www.excel-pratique.com/~files/doc/E8dFqptitepo.xls

Cordialement,

bonjour au forum,

ptitepo,

en L6 : =SOMMEPROD(($B$2:$B$22=K6)*($C$2:$C$22))

amicalement

Claude.

Hmm non il me faut vraiment une macro, car mes feuilles sont charger automatiquement, supprimer et recharger, donc il ne peut y avoir aucune formule fixe sur mes feuilles.

Tant pi je mettrais mes conditions chiffre par chiffre.

re,

je sais pas faire, mais on doit pouvoir mettre la formule dans la macro !

N'oublie pas le petit "Résolu"

Salut

Re,

Je suis d'accord avec Claude, il doit y avoir moyen de mettre la formule dans la macro... je ne suis pas très à l'aise encore avec ça, mais si j'ai un peu de temps, j'essaie...

En attendant, si des spécialistes passent par là, le problème devrait pouvoir se résoudre facilement !

Cordialement,

Re,

Macro 1 dans fichier joint à essayer

https://www.excel-pratique.com/~files/doc/CZikEptitepo.xls

Cordialement,

Bon ba finalement j'ai mi ma condition dans une variable avant le if, et ma variable comme condition dans le if ca marche pas trop mal...

Merci

re,

Bravo V_Elbie, je vais essayé avec "SumProduct"

Claude.

Bonjour, Salut Claude, V_Elbie,

Voici un fichier joint :

Fichier Joint

Je ne sais pas si j'ai bien compris ton besoin. A tester.

Voici le code que j'ai utilisé :

Sub test()
    DerLig = Sheets("Synthèse").Range("B65536").End(xlUp).Row
    For Indice = 1 To 8
         Range("D" & Indice + 1).Value = WorksheetFunction.SumIf(Range("A2:A" & DerLig), "9" & Indice, Range("B2:B" & DerLig))
     Next
End Sub