XL 2019 Supprimer les doublons si la date est la meme VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Jackdu95

XLDnaute Nouveau
Bonjour,

J'aimerais supprimer les doublons de la colonne B si dans la colonne A j'ai la meme date. Le resultat est en colonne H et I.
Tout ca avec un macro en VBA.
Sachant que la date en colonne A peut decendre tres loin par exemple jusqu'à aujourd'hui avec pour chaque date plusieurs lignes.

Merci

Jack
 

Pièces jointes

Solution
Bonsoir à tous,
Une autre manière de faire:
Code dans le module de la feuille "Feuil1" :
VB:
Sub SupprDoublon()
   Range("a:b").Copy Range("h:i")
   Range("h:i").CurrentRegion.RemoveDuplicates Array(1, 2), xlNo
End Sub

edit: bonsoir @cp4 🙂
Bonjour,

Code à mettre dans un module standard.
VB:
Option Explicit

Sub supprimer_doublon()
    Dim tb, i As Long, d As Object
    Set d = CreateObject("scripting.dictionary")
    With Feuil1 ' à adapter'
        .Range("o:p").ClearContents 'à adapter'
        tb = .Range("a1").CurrentRegion
        For i = 1 To UBound(tb)
            d(tb(i, 1) & "|" & tb(i, 2)) = ""
        Next i
        ''''
        .[O1].Resize(d.Count) = Application.Transpose(d.Keys)    'report sur la feuille à adapter
        'éclater colonne 1 en plusieurs suivant delimiteur choisi ("|")
        .Range("O:O").TextToColumns DataType:=xlDelimited, Other:=True, OtherChar:="|"    ' à adapter
    End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
323
Réponses
4
Affichages
408
Retour