améliore code

[jmcr]

bonsoir le forum
voila mon soucis j'ai un macro qui recherche les doublons dans une colonne il fonctionne très bien
a la fin du macro j'ai deux msgbox un me dis que j'ai des doublons ,l'autre me donne les numéros je recherche comment en faire plus qu'un
voila la fin du macro en question

'----- Affiche la liste et le nombre de doublons --------
For j = 1 To m
Doublons = Doublons & Resultat(1, j) & " -->" & _
Resultat(2, j) & vbCrLf
Next j
MsgBox "il y a des DOUBLONS DANS LA BASE !", vbCritical
MsgBox Doublons

Set Un = Nothing
End Sub
merci pour votre aide enfin si vous pouvais m'aidé

 

[Staple1600]

Bonsoir le fil, le forum, jmcr

Comme ceci

Sub il_ManqueUnBoutDeMacroNon()
For j = 1 To m
Doublons = Doublons & Resultat(1, j) & " -->" & _
Resultat(2, j) & vbCrLf
Next j
MsgBox "il y a des DOUBLONS DANS LA BASE !" & vbCrLf & Doublons, vbCritical
Set Un = Nothing
End Sub

 

[jmcr]

super staple1600 super cela fonctionne a merveille et merci pour la précisions