Discussion :

[bigokou]

Bonjour j ai ecrit un code il fonctionne mais à moitie j ai un onglet global qui fait 1500 ligne j ai un onglet que j extrais d un progamme qui me ramene des lignes mais cela est variable j ai prevu ca ma recherche se fait de l onglet global vers l autre pour savoir qu il recupere une valeur en particulier s il l a trouve il mets ok sinon rien dans l onglet global le probleme ca marche mais il s arrete a la 112 lignes dans global les 112 lignes sont l extraction que je fais je voudrais qu il aille jusqu a la derniere ligne de global qui peut m aider ci joint un bout du code!!!

Code :

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

1
2
3
4
5
6
7
8
9
sheets("GLOBAL").Select
    For i = 14 To 20
        If Cells(1, i) = Fich Then Exit For
    Next
    Cells(2, i).Select
    ActiveCell.Formula = _
        "=IF(ISNA(VLOOKUP(A2," & Fich & "!A:A,1,FALSE)),"""",""OK"")"
     Selection.AutoFill Destination:=Range(i & NN)
    Selection.AutoFill Destination:=Range(Cells(2, i), Cells(NN, i))

[Daniel.C]

Bonjour,

Comment veux-tu qu'on t'aide ? Où est initialisé la valeur de "NN" ? Poste la totalité de ton code, et aussi un classeur exemple.

[bigokou]

voila mon fichier initiale j integre un fichier que j extraint d une requete, je lance ma macro pour qu il me fasse une recherche de la feuille global a la feuille fev2012 que j ai importe le probleme et que dans la macro la recherche s arrete a la ligne 112 dans mon onglet global le chiffre 112 represente le nombre de lignes dans l onglet fev2012 moi ce que je veux c est qu il me balaie tout le fichier global et qui ne s arrete pas a 112ligne

[Daniel.C]

Ton classeur ne comporte ni feuille fev2012 ni macro.

[bigokou]

désole voici le fichier mais la macro est sur un autre fichier j ai essaye de l envoyer mais ca ne marche pas il n arrive pas à récuperer le fichier mais normalement ca fonctionne avec le bout de code que je vous ai envoye au debut le probleme viens de la

[gFZT82]

Bonjour,

Lorsque tu écris

Code :

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

Selection.AutoFill Destination:=Range(Cells(2, i), Cells(NN, i))

Tu demandes à effectuer une recopie incrémentée dans les cellules de la plage Range(Cells(2, i), Cells(NN, i)).
La dernière ligne de cette plage est déterminée par la variable NN.
Voilà pourquoi Daniel te demandait Où est initialisé la valeur de "NN" ?

Cordialement.