Discussion :

[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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[momo93240]

Essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("ta feuil").Range("cellules ou ecrire la formule").FormulaLocal = "=SI(NB.SI('[TdB.xls]Status'!$G:$G;Base!C5)>0;'""x"";"""") "

[pomdeterfrite]

Malheureusement ca part dans un calcul interminable et ca plante ...

Mon fichier est déjà très lourd et j'aimerai me débarasser de cette formule et partir sur une boucle If avec test comme un NB.SI à l'intérieur mais je n'ai aucune idée de comment le faire

[will-1981]

Salut,

Ce que tu souhaites c'est simplement le résultat dans ta feuille "Base" et pas la formule, n'est ce pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub compteur()
Dim Monfichier As Workbook, i As Integer
 
Set Monfichier = Workbooks("TdB.xls")
 
i = 5 'point de départ
 
For i = 5 To 4000
    If WorksheetFunction.CountIf(Monfichier.Sheets("Status").Columns(7), Sheets("Base").Cells(i, 3)) > 0 Then
' je te mets le résultat dans la 4ème colonne comme je ne sais pas où tu veux le mettre, soit la colonne "D"
 
        Sheets("Feuil1").Cells(i, 4) = "X"     
Else
        Sheets("Feuil1").Cells(i, 4) = ""
    End If
Next i
 
End Sub

Ca s'execute en 10 secondes sur 4000 lignes environ avec ma bécane bien sûr.
Si tu veux des renseignements n'hésite pas.
A+

[pomdeterfrite]

Super merci c'est exactement ce que je cherche !!!

Par contre il me dit " Erreur d'exécution 9 : L'indice n'appartient pas à la sélection".

Mon fichier est bien dans le meme dossier et j'ai vérifié les noms du fichier et des onglets

D'ou est ce que ca peut venir ?

[will-1981]

De rien,

quand tu clique sur déboguage il pointe quelle ligne ?

Et sinon n'oublie pas de changer le nom des feuilles là où tu veux écrire le résultat. remplace Feuil1 par Base.

Une petite question ton fichier ne varie pas en nombre de lignes ?