Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Identifier lignes des doublons dans message Box

pierrof

XLDnaute Occasionnel
Bonjour à tous,

Suite à un nouveau projet, je souhaiterai faire apparaitre les numéros des lignes où se trouves les doublons dans une messagebox.

Exemples "Doublons ligne 12 et ligne 14"

J'ai un tableau de taille variable où les informations des doublons se situent sur la colonne B à partir de la 6ème ligne.

Je joins un fichier exemple pour plus de facilité.

Merci d'avance de votre aide.

Bonne journée
 

Pièces jointes

  • Test_doublons.xlsx
    13.6 KB · Affichages: 3
Solution
Bonjour pierrof,
Peut-être comme cela :
VB:
Private Sub CommandButton1_Click()
Dim i As Long
Dim j As Long
Dim lastRow As Long
Dim doublons As String
Application.ScreenUpdating = False
lastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

For i = 5 To lastRow
For j = i + 1 To lastRow
If Cells(i, 2).Value = Cells(j, 2).Value Then
doublons = doublons & "Ligne " & i & " et ligne " & j & vbCrLf
End If
Next j
Next i

If Len(doublons) > 0 Then
MsgBox "Les lignes suivantes contiennent des doublons :" & vbCrLf & doublons
Else
MsgBox "Aucun doublon trouvé."
End If

Application.ScreenUpdating = True
End Sub

piga25

XLDnaute Barbatruc
Bonjour pierrof,
Peut-être comme cela :
VB:
Private Sub CommandButton1_Click()
Dim i As Long
Dim j As Long
Dim lastRow As Long
Dim doublons As String
Application.ScreenUpdating = False
lastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

For i = 5 To lastRow
For j = i + 1 To lastRow
If Cells(i, 2).Value = Cells(j, 2).Value Then
doublons = doublons & "Ligne " & i & " et ligne " & j & vbCrLf
End If
Next j
Next i

If Len(doublons) > 0 Then
MsgBox "Les lignes suivantes contiennent des doublons :" & vbCrLf & doublons
Else
MsgBox "Aucun doublon trouvé."
End If

Application.ScreenUpdating = True
End Sub
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…