Suppression de ligne par comparaison de valeurs dans 2 colonnnes
Résolu/Fermé
gallica
-
16 sept. 2014 à 12:37
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 16 sept. 2014 à 13:55
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 16 sept. 2014 à 13:55
A voir également:
- Suppression de ligne par comparaison de valeurs dans 2 colonnnes
- Forcer suppression fichier - Guide
- Suppression compte instagram - Guide
- Apparaitre hors ligne whatsapp - Guide
- Aller à la ligne excel - Guide
- Jdownloader 2 - Télécharger - Téléchargement & Transfert
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
16 sept. 2014 à 12:59
16 sept. 2014 à 12:59
Bonjour,
Les données à traiter en feuil1, de A2 à B .....
La restitution se fait en Feuil2 à partir de A2:
Les données à traiter en feuil1, de A2 à B .....
La restitution se fait en Feuil2 à partir de A2:
Sub Dedoublonnache()
Dim Dico As Object, Cel As Range, Elem As Variant, Tb_Out(), i As Long
Set Dico = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
For Each Cel In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
Dico(Cel.Value & "¤" & Cel.Offset(0, 1).Value) = ""
Next Cel
End With
For Each Elem In Dico.keys
i = i + 1
ReDim Preserve Tb_Out(1 To 2, 1 To i)
Tb_Out(1, i) = Split(Elem, "¤")(0)
Tb_Out(2, i) = Split(Elem, "¤")(1)
Next
'RESTITUTION en Feuil2 ==> A ADAPTER
Sheets("Feuil2").Range("A2").Resize(Dico.Count, 2) = Application.Transpose(Tb_Out)
End Sub
Génial.
Merci pour votre réactivité car je ne comprend pas votre langage :)
Merci pour votre réactivité car je ne comprend pas votre langage :)
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
16 sept. 2014 à 13:55
16 sept. 2014 à 13:55
Pourtant, il vaudrait mieux que vous le comprenassiez, et ce, afin de maintenir cette procédure...
Si quelque chose vous échappe, n'hésitez pas à demander.
Si quelque chose vous échappe, n'hésitez pas à demander.