Appliquer le code uniquement aux linge vides

Bonjour,

J'ai utilisé la fonction CountIfs pour remplir ce tableau

Le code que vous avez utilisé recalcule depuis le début à chaque fois

SVP, Je veux l'utiliser uniquement dans des cellules ou linges vides.

Merci

Bonsoir,

si la ligne est considérée comme vide lorsqu'au moins une cellule est vide alors vous pouvez faire un test que la colonne B et vérifier s'il y a une donnée ou pas :

For i = 3 To NbLig
    If .Cells(i, 2).Value = "" Then
        MaDate = .Cells(i, 1)
        .Cells(i, 2) = Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(6), "CC", Feuil1.Columns(3), MaDate) + Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(4), "DD", Feuil1.Columns(3), MaDate)
        .Cells(i, 3) = Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(6), "ACC", Feuil1.Columns(3), MaDate)
        .Cells(i, 4) = Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(6), "CC", Feuil1.Columns(6), MaDate) + Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(4), "DD", Feuil1.Columns(6), MaDate)
        .Cells(i, 5) = Application.WorksheetFunction.CountIfs(Feuil1.Columns(5), "A", Feuil1.Columns(6), "ACC", Feuil1.Columns(6), MaDate)
    End If
Next i

S'il n'y a pas de donnée on lance la recherche sinon on passe à la ligne suivante.

@ bientôt

LouReeD

Bonsoir,

c’est parfait

Merci beaucoup