Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Recherche doublon dans une colonne et resultat dans une autre ?

Recherche doublon dans une colonne et resultat dans une autre ?

3 réponses
Avatar
Help ME
Bonjour
Quelqu'un aurait-il une solution à cela ?

Je recherche donc une macro VBA permettant de donner comme résultat dans une
Colonne X la liste des éléments en doublons dans une colonne Y

Merci à vous
Michel
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Michel,

Avec la plage de données nommées ici Zn
(recherches des doublons de Zn en colonne X)

Sub recDoublons()
Dim i As Integer
Application.ScreenUpdating = False
Range("Zn").Copy Destination:=Range("X1")
Range("X1").Sort Key1:=Range("X1"), Header:=xlGuess
Set reC = Range("X1", [X1].End(xlDown))
nbL = reC.Count
For i = nbL To 1 Step -1
On Error Resume Next
If Cells(i, 24) <> Cells(i - 1, 24) Then _
Cells(i, 24).Delete shift:=xlUp
Next i
Range("X1") = "Doublon(s)"
Set nbL = Nothing
End Sub


ChrisV


"Help ME" a écrit dans le message de news:
400c21ca$0$7752$
Bonjour
Quelqu'un aurait-il une solution à cela ?

Je recherche donc une macro VBA permettant de donner comme résultat dans
une

Colonne X la liste des éléments en doublons dans une colonne Y

Merci à vous
Michel




Avatar
Help ME
Hello Chris.
Merci infiniement de ton aide.
Ta solution est impeccable

Michel
"ChrisV" a écrit dans le message de news:
#
Bonjour Michel,

Avec la plage de données nommées ici Zn
(recherches des doublons de Zn en colonne X)

Sub recDoublons()
Dim i As Integer
Application.ScreenUpdating = False
Range("Zn").Copy Destination:=Range("X1")
Range("X1").Sort Key1:=Range("X1"), Header:=xlGuess
Set reC = Range("X1", [X1].End(xlDown))
nbL = reC.Count
For i = nbL To 1 Step -1
On Error Resume Next
If Cells(i, 24) <> Cells(i - 1, 24) Then _
Cells(i, 24).Delete shift:=xlUp
Next i
Range("X1") = "Doublon(s)"
Set nbL = Nothing
End Sub


ChrisV


"Help ME" a écrit dans le message de news:
400c21ca$0$7752$
Bonjour
Quelqu'un aurait-il une solution à cela ?

Je recherche donc une macro VBA permettant de donner comme résultat dans
une

Colonne X la liste des éléments en doublons dans une colonne Y

Merci à vous
Michel








Avatar
ChrisV
De rien... de rien...
Ça fait 2 euros ! ;-P


ChrisV


"Help ME" a écrit dans le message de news:
400d2cf2$0$6525$
Hello Chris.
Merci infiniement de ton aide.
Ta solution est impeccable

Michel
"ChrisV" a écrit dans le message de news:
#
Bonjour Michel,

Avec la plage de données nommées ici Zn
(recherches des doublons de Zn en colonne X)

Sub recDoublons()
Dim i As Integer
Application.ScreenUpdating = False
Range("Zn").Copy Destination:=Range("X1")
Range("X1").Sort Key1:=Range("X1"), Header:=xlGuess
Set reC = Range("X1", [X1].End(xlDown))
nbL = reC.Count
For i = nbL To 1 Step -1
On Error Resume Next
If Cells(i, 24) <> Cells(i - 1, 24) Then _
Cells(i, 24).Delete shift:=xlUp
Next i
Range("X1") = "Doublon(s)"
Set nbL = Nothing
End Sub


ChrisV


"Help ME" a écrit dans le message de news:
400c21ca$0$7752$
Bonjour
Quelqu'un aurait-il une solution à cela ?

Je recherche donc une macro VBA permettant de donner comme résultat
dans



une
Colonne X la liste des éléments en doublons dans une colonne Y

Merci à vous
Michel