Boucle sur NB.SI en VBA

Bonjour à tous,

j'aimerais savoir s'il est possible de faire une boucle sur des formules NB.SI pour éviter de les changer manuellement.

Le probléme est que le code du countif dans la macro n'accepte pas les chiffres.

ws2.Cells(i, j).Value = WorksheetFunction.CountIf(ws1.Range(Cells(x, y), Cells(x + 5, y + 4), ws2.Cells(i, j - 2).Value))

Il y a un exemple dans le fichier avec une macro en onglet, qui ne fonctionne pas.

Merci de votre aide.

10forum.xltm (29.23 Ko)

bonjour guypio,

je suppose que vous voulez ceci

  ws2.Cells(i, j).Value = WorksheetFunction.CountIf(ws1.Cells(x, y).Resize(6, 5), ws2.Cells(i, j - 4).Value)

Bonjour BsAlv,

Merci çà fonctionne trés bien.

Et tu peux me tutoyer.

Cdt