Macro doublons
bonjour le forum
je suis nouveau sur votre forum, j'arrive a faire quelque formules et rien en vba
j'ai trouvé un macro sur internet qui me donne les numéros que j ai comme doublons dans ma colonne A cela marche très bien
mais voila il y a toujours un mais??? quand je rentre les 00123 ou 01478 il trouve les chiffre m'inscrit pas les 0 devant les chiffres pouvais vous m'aidé svp
je vous montre le macro que j'ai
Option Explicit
Option Base 1
Sub listeDoublonsPlage()
Dim Plage As Range
Dim Tableau(), Resultat() As String
Dim i As Integer, j As Integer, m As Integer
Dim Un As Collection
Dim Doublons As String
Set Un = New Collection
'La plage de cellules (sur une colonne) à tester
Set Plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
Tableau = Plage.Value
On Error Resume Next
'boucle sur la plage à tester
For i = 1 To Plage.Count
ReDim Preserve Resultat(2, m + 1)
'Utilise une collection pour rechercher les doublons
'(les collections n'acceptent que des données uniques)
Un.Add Tableau(i, 1), CStr(Tableau(i, 1))
'S'il y a une erreur (donc présence d'un doublon)
If Err <> 0 Then
'boucle sur le tableau des doublons pour vérifier s'il a déjà
'été identifié
For j = 1 To m + 1
'Si oui, on incrémente le compteur
If Resultat(1, j) = Tableau(i, 1) Then
Resultat(2, j) = Resultat(2, j) + 1
Err.Clear
Exit For
End If
Next j
'Si non, on ajoute le doublon dans le tableau
If Err <> 0 Then
Resultat(1, m + 1) = Tableau(i, 1)
Resultat(2, m + 1) = 1
m = m + 1
Err.Clear
End If
End If
Next i
'----- 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 Doublons
Set Un = Nothing
End Sub
avec tout mes remercîments pour votre aide
Bonjour,
Penses a mettre ton code VBA entre les balises code (situées au dessus de l'éditeur de texte!) La c'est horrible pour comprendre et lire!
Donne ton fichier en PJ, aussi, pour contextualiser ta demande!
Dans le doute on dirais bien qu le problème viens d'un format nombre (qui t'enleve les 0 situés avant les nombres) utilisé à la lace d'un format texte.
Essais de tout passer en texte sur ta feuille (Format des cellules -> Texte) et ré essais!
Yann
merci beaucoup de votre réponse désoler je viens juste de trouvé mon erreur
désoler