Bonjour,
Chacun pratique selon sa personnalité et son histoire et il n'y a qu'une bonne méthode, celle que l'on sait utiliser.
Si je peux me permettre je te suggèrerai de remplacer ceci :
Code:
1 2
| Range("AQ13").Select ' nombre de N°
nbf1 = ActiveCell.Value |
par ceci :
Code:
nbf1 = Range("AQ13").Value ' nombre de N°
Cela pour 2 raisons :
- c'est plus simple à écrire comme tu peux le constater
- c'est surtout infiniment plus rapide à l'exécution.
et de même pour les autres affectations identiques comme :
Code:
Cells(c, d).Value = x 'inscrit le nombre de couples
En supprimant les select tu évites les affichages qui ne servent à rien sauf à consommer du traitement et donc du temps.
Pour ce qui est ta question principale tu ne pourras pas en VBA compter plusieurs valeurs en matricielle avec CountIf, sauf à passer par une formule sur la feuille.
Bonne continuation.