VBA copier cellules si pas dans liste

mfaeko

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
Bonjour Mfaeko,
Un essai en PJ avec la macro :
VB:
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
 

Pièces jointes

  • Mfaeko.xlsm
    26.7 KB · Affichages: 7

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof