[Excel] Faire une extraction sans doublonRésolu

Question

Bonjour à toutes et à tous,

Je cherche actuellement à faire une extraction d'une feuille qui sert de formulaire, vers une pseudo base de donnée sous Excel.
Cependant, le risque est de se retrouver avec des doublons
Je voudrais faire en sorte qu'il compare ce qu'il trouve en Y2 dans le formulaire avec la totalité de la colonne A, et que s'il trouve le même champ il abandonne la copie.
Au cas contraire , il execute la copie des champs vers la base de données.

Voila mon code actuel qui copie :

Sub copie()


Dim ProchaineLigneVide As Integer




With Sheets("BDD")
    ProchaineLigneVide = .Range("A65536").End(xlUp).Row + 1
    .Range("A" & ProchaineLigneVide).Value = Sheets("FIQ").Range("Y2").Value
    .Range("B" & ProchaineLigneVide).Value = Sheets("FIQ").Range("A9").Value
    .Range("C" & ProchaineLigneVide).Value = Sheets("FIQ").Range("I8").Value
    .Range("D" & ProchaineLigneVide).Value = Sheets("FIQ").Range("S10").Value
    .Range("E" & ProchaineLigneVide).Value = Sheets("FIQ").Range("S12").Value
End With


End Sub

Autre question , savez vous si je peux faire une copie à partir d'une feuille d'un autre classer, vers ce classeur ci ?

Merci,

AiDuK

cs_Frederic45 · Accepted Answer

Bonsoir à tous
Bonsoir[auteur/AIDUK/1181525.aspx  AiDuK]

Essaie ce code :

Sub cherche()
marecherche = Sheets("Feuil_formulaire").Range("Y2").Value
   With Sheets("Feuil_formulaire").Range("a:a")
         Set c = .Find(marecherche, LookIn:=xlValues)
     If c Is Nothing Then
        'tu copies
     End If
    End With
End Sub

Pour la deuxième question, oui, il suffit de mettre le chemin exacte. Essaie en enregistrant la macro

Frédéric

AiDuK · Answer

Bonjour Frederic45, merci beaucoup pour ton aide , cela marche impecablement

[Excel] Faire une extraction sans doublon

2 réponses

Votre réponse

Discussions similaires