Bonjour à tous,
voici mon souci :
Je compare deux listes : une ancienne (feuille "ancien" ) et une nouvelle (feuille "nouveau" ).
je compare la nouvelleliste avec une boucle while <>"" et je recherche si chaque cellule existe dans l'ancienne liste. Ensuite si elle n'existe pas je devrais l'ajouter. Mais je n'en suis pas encore là!!
J'ai bidouillé la fonction lookup avec ce que j'ai lu sur le net et lorsqu'elle ne trouve pas la cellule dans la feuille ancienne elle ne me renvoie pas N/A (valeur que je souhaite tester par la suite), elle me renvoie la cellule en cours (cell(i,1))
voici un extrait !
i = 3
Dim zone As Range
Set zone = Worksheets("ancien" ).Range("A3:C" & nbligneancien + 2)
Worksheets("ancien" ).Select 'sinon vlookup marche pas
While Worksheets("nouveau" ).Cells(i, 1) <> ""
Worksheets("ancien" ).Range("C1" ) = Application.WorksheetFunction.VLookup(Cells(i, 1), zone, 1, False)
'If estna(Worksheets("ancien" ).Range("C1" )) Then 'pas trouve la réference
'faire la copie/collage
'End If
i = i + 1
Wend
Merci à tous ceux qui auront un peu de temps pour m'aider
Doli