Fonction SI + NB.SI en VBA

[pomdeterfrite]

Bonjour à tous !

Je cherche désespéremment à transcrire une formule avec un NB.SI en code VBA (afin d'alléger les délais d'ouverture car j'ai une comparaison qui se fait entre 2 fichiers différents sur 4000 lignes)

Voici la formule que je veux remplacer :
SI(NB.SI('[TdB.xls]Status'!$G:$G;Base!C5)>0;"x";"")

elle permet de trouver au moins un cas dans la plage G:G d'un autre fichier (TdB.xls) égal à la colonne C de mon fichier actuel et si c'est le cas je met un "x" dans la colonne O de mon fichier actuel.

 

[ROGER2327]

Re : Fonction SI + NB.SI en VBA

Bonjour pomdeterfrite, bienvenue.

Transcriptions possibles pour appliquer la formule à la cellule active :

[COLOR="DarkSlateGray"][B] ActiveCell.Formula = "=IF(COUNTIF([TdB.xls]Status!$G:$G,Base!C6)>0,""x"","""")"
 ActiveCell.FormulaLocal = "=SI(NB.SI([TdB.xls]Status!$G:$G;Base!C6)>0;""x"";"""")"
 ActiveCell.FormulaR1C1 = "=IF(COUNTIF([TdB.xls]Status!C7,Base!R[3]C[2])>0,""x"","""")"
 ActiveCell.FormulaR1C1Local = "=SI(NB.SI([TdB.xls]Status!C7;Base!L(3)C(2))>0;""x"";"""")"[/B][/COLOR]

ROGER2327
#4415

Mardi 24 Haha 138 (Saint Claude Terasse, musicien des Phynances, SQ)
8 Brumaire An CCXIX
2010-W43-5T13:44:21Z