Bonjour à tous,
J'ai cherché pendant longtemps une solution à mon problème.
En effet, je souhaiterai comparer 2 colonnes de deux onglets différents et d'ajouter sur le deuxième onglet les données manquantes.
J'ai un onglet "Base" ==> la base de mon document
J'ai un onglet "LOB UNM" ==> les données traitées
Je souhaiterai comparer à l'aide du bouton "comparer", la colonne A de ma feuille "Base" et la colonne D de ma feuille "LOB UNM" et si il y à une donnée manquante dans ma feuille "LOB UNM" par rapport à "Base" venir coller en colonne D (en fin) les données manquantes.
Je vous joints le fichier avec le début de code que j'ai pu faire mais je bloque sur le coller des données manquantes.
Ci-dessous le code :
Sub Cherche()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim c As Range
Dim Donnee As String
Dim NoLig, NoLigUNM, j As Integer
j = 14
Set c = Nothing
Set FL1 = Worksheets("LOB UNM") 'Le fichier où tu colles
Set FL2 = Worksheets("Base") 'Le fichier où tu cherches
For NoLig = 1 To FL1.Range("D65535").End(xlUp).Row
Donnee = FL2.Cells(NoLig, 1) 'PN dans la base
With FL1.Range("D14:D" & FL1.Range("D65535").End(xlUp).Row) 'tu désignes ta plage de recherche
Set c = .Find(Donnee, LookIn:=xlValues)
If c Is Nothing Then
While FL1.Cells(j, 4) <> ""
j = j + 1
Wend
FL1.Cells(j, 4).Value = Donnee
Else
FL1.Cells(c.Row, 35) = "ok"
End If
End With
j = 14
Next
End Sub
Je vous remercie par avance pour votre aide sur ce sujet
Cordialement
Loan