Discussion :

[captaine93]

Bonjour !
Dans ma colonne A, j ai une série de chiffres et lettres comme suit :
3010T1,1
3010T1,2
3010T1,3
Il m arrive d'avoir des doublons donc 2 fois la même valeur...
Je ne sais pas comment les identifier...en fait je voudrais que quand il y a des doublons dans cette colonne, une text box s affiche avec "vous avez des doublons".
Je ne sais ni chercher ces doublons ni me servir d une text box...
Merci a celui ou celle qui pourra éclairer ma lanterne de newbee en VB !

[AlainTech]

Question déplacée dans le bon sous-forum.

Pensez-y à l'avenir.

Merci

[AlainTech]

Merci a celui ou celle qui pourra éclairer ma lanterne de newbee en VB !

Ca fait presque 1 an que tu fais du VBA (en tout cas, que tu viens sur ce forum) et tu te traites encore de newbee...
Depuis le temps, tu aurais pu étudier.

[random]

tableau
A B C
valeurs ligne doublon

en a mes valeurs
en b ="=ligne()"
b édition copier
b édition collage spécial
c="=SI(A1=A2;"doublon";"unique")"
tri sur c
doublon et unique sont séparés
je fais mon traitement
tri sur b
mes données ont retouvé leur ordre
j'efface b et c

[SilkyRoad]

bonsoir

une autre possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Explicit
Option Base 1
 
Sub listeDoublons()
    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 à tester
    Set Plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
 
    Tableau = Plage.Value
    ReDim Preserve Resultat(2, 1)
 
    On Error Resume Next
    'boucle sur la plage à tester
    For i = 1 To Plage.Count
        'Utilise une collection pour rechercher les doublons
        '(les collections n'acceptent que des données uniques)
        Un.Add Tableau(i, 1), Tableau(i, 1)
 
        'S'il y a une erreur (donc presence d'un doublon)
        If Err <> 0 Then
 
            'boucle sur le tableau des doublons pour verifier s'il a deja
            'été identifié
            For j = 1 To m + 1
                'Si oui , on  incrément 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
                    ReDim Preserve Resultat(2, m + 1)
                End If
        End If
    Next i
 
    '----- Affiche la liste er le nombre de doublons --------
    For j = 1 To m
        Doublons = Doublons & Resultat(1, j) & "-->" & _
                    Resultat(2, j) & vbCrLf
    Next j
 
    MsgBox Doublons
End Sub

bonne soiree
michel

[captaine93]

Un immense merci à toi michel !
Dsl d'avoir mal placé le message au départ.
Oui je reste un gros newbee en VB car quand je vois la réponse de michel, je m'incline car je ne connaissais pas la moitié des commandes!
A+ et encore merci