Bonsoir le forum
la macro ci_dessous me permet de voir si il y a des doubloNs de la colonne A a la colonne B et me les affiche en colonne C
Voici ma question je sais que des noms sont répeter sur ses deux colonnes comme (delegation, maladie,rtt,conges et quelques uns encore
Peut on eviter qu'ils s'affichent en colonne C?
merci a vous
Sub doublons_des_ateliers()
Dim pl As Range 'déclare la variable pl
Dim pl2 As Range 'déclare la variable pl2
Dim dest As Range 'déclare la variable dest
Dim cel As Range 'déclare la variable cel
Dim cel2 As Range 'déclare la variable cel2
Application.ScreenUpdating = False
'efface les aciens doublons
If Range("d65536").End(xlUp).Address <> "$d$1" Then
Range("d2:d" & Range("d65536").End(xlUp).Row).Clear
End If
Set pl = Range("A2:A" & Range("A65536").End(xlUp).Row) 'définit la variable pl
Set pl2 = Range("B2:C" & Range("B65536").End(xlUp).Row) 'définit la variable pl
For Each cel In pl 'boucle 1 : sur toutes les cellules de la plage pl
If cel.Value = "" Then GoTo suite1 'si la cellule est vide, passe à la suivante via la balise "suite1"
For Each cel2 In pl2 'boucle2 : sur toutes les cellules de la plage pl2
If cel2.Value = "" Then GoTo suite2 'si la cellule est vide, passe à la suivante via la balise "suite2"
If cel2.Value = cel.Value Then 'Condition : si il y a doublons
Set dest = Range("d65536").End(xlUp).Offset(1, 0) 'définit la variable dest
cel.Copy 'copie la cellule
dest.PasteSpecial (xlPasteValues) 'colle la valeur de la cellule
Exit For 'sort de la boucle 2
End If 'fin de la condition
suite2: 'balise
Next cel2 'prochaine cellule de la plage pl2
suite1: 'balise
Next cel 'prochaine cellule de la plage pl
Application.Run "DOUBLONS.xls!doublons_z2m2"
Application.Run "DOUBLONS.xls!doublons_z1az1bz3"
Application.CutCopyMode = False
Range("A1").Select
End Sub