Discussion :

[doli100]

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 !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
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

[Pierre Fauconnier]

Bonsoir

Personnellement, je chercherais la valeur avec la méthode FIND plutôt qu'avec un vlookup

Code :

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

1
2
3
4
5
6
 
    Dim Cellule As Range
    Set Cellule = Range("a2:a200").Find(what:="Mama", LookIn:=xlValues, lookat:=xlWhole)
    If Cellule Is Nothing Then
        ' cellule non trouvée
    End If

Find renvoie un objet Range s'il a trouvé une correspondance, sinon, il renvoie Nothing.

Ok?