Comparer 2 colonnes de 2 feuilles différentes et coller données manquantes

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
LoanB
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 6 juin 2018
Version d'Excel : 2013

Message par LoanB » 6 juin 2018, 19:29

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
LOB MACRO TEST1.xls
(657.5 Kio) Téléchargé 3 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'425
Appréciations reçues : 542
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 6 juin 2018, 20:39

Bonjour et bienvenue,
Pourquoi un fichier xls (Excel 97-2003) alors que ton profil indique Excel 2013 ?
Son extension devrait être xlsm (avec macro) ou xlsx (sans macro).
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
L
LoanB
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 6 juin 2018
Version d'Excel : 2013

Message par LoanB » 6 juin 2018, 21:19

Bonsoir,

oui désolé,

Ci-joint le bon fichier à la bonne extension

Merci pour votre aide

Cordialement

loan
LOB MACRO TEST1.xlsm
(208.36 Kio) Téléchargé 7 fois
Avatar du membre
bigdaddy154
Membre impliqué
Membre impliqué
Messages : 1'067
Appréciations reçues : 30
Inscrit le : 5 mars 2014
Version d'Excel : 2010

Message par bigdaddy154 » 6 juin 2018, 23:11

Bonsoir LoanB & Jean-Eric,

un essai à tester.

Cordialement.
LOB MACRO TEST1.xlsb
(154.13 Kio) Téléchargé 29 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message