VBA copier cellules si pas dans liste

[mfaeko]

Bonjour,

Je viens vous demander votre aide parce que j'ai un problème avec une VBA.
J'ai un fichier avec une liste de valeurs (uniques) en A et une autre en B.
Grâce à une VBA, la liste en A se complète.

Je cherche donc une VBA qui me permette de répondre à cette formule : Si la valeur de la cellule A2 n'est pas dans la liste en B, alors copier cette valeur à la première ligne vide en B, sinon passer à la ligne suivante en A.

Avez-vous des suggestions à me faire ?

Bien à vous,

 

[sylvanu]

Bonjour Mfaeko,
Un essai en PJ avec la macro :

Sub CompleteB()
nbLigA = Range("A" & Rows.Count).End(xlUp).Row
NbLigB = Range("B" & Rows.Count).End(xlUp).Row
If NbLigB > 1 Then NbLigB = NbLigB + 1
For i = 1 To nbLigA
    If IsError(Application.Match(Cells(i, 1), Range("B:B"), 0)) Then
        Cells(NbLigB, 2) = Cells(i, 1)
        NbLigB = NbLigB + 1
    End If
Next i
End Sub

 

[mfaeko]

Un grand merci sylvanu, c'est ce qu'il me fallait !