Discussion :

[LoanB]

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 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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