Discussion :

[Amir2121]

Bonjour,

J'ai un fichier excel, je souhaite parcourir un certains nombre de cellules et j'identifie une chaine de caractere dans chaque cellule. A chaque fois qu'un nom se repete, on le colorie d une couleur arbitraire. En gros ce que je veux c'est reperer rapidement les memes noms qui se repetent au lieu de faire un travail fastifieux et repetitifs de reperage visuels qui fatigue les yeux. Quel langage est le plus adaptes d apres vous ? c est chaud a programmer ?

merci !

[casefayere]

Bonsoir,

si tu connais un peu VBA, une idée à adapter, 2 codes

Code :

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

1
2
3
4
5
6
Sub Test_doublons()
With Sheets("references")'à remplacer par le nom de ta feuille
   j = .Range("a" & .Rows.Count).End(xlUp).Row 'tu déclare j et adaptes ta plage
   IdentifieDoublons Range("B2:B" & j) 'idem
End With
End Sub

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
 
Sub IdentifieDoublons(Plg As Range)
Dim Un As Collection
Set Un = New Collection
On Error Resume Next
With Sheets("feuil1") 'à adapter avec nom feuille
   For Each cel In Plg 'il faut declarer au préalable cel
      If cel <> "" Then
         Un.Add cel, CStr(cel)
         If Err <> 0 Then
            .Range("A" & cel.Row - 1, "L" & cel.Row).Interior.ColorIndex = 6 'à toi de voir
            If cel(0, 2) <> cel(1, 2) Then 'à toi de voir quelles cellules
               .Range(cel(0, 2).Address, cel(1, 2).Address).Interior.ColorIndex = 7 'à toi de voir
            End If
         End If
            'Efface toutes les valeurs de l'objet Err.
         Err.Clear
      End If
   Next cel
End With
Set Un = Nothing
End Sub
'c'est un code que je possède, donc à  adapter

d'autre solutions sont possible

[Amir2121]

J'ai fait un peu de VB il y a longtemps. Merci beaucoup pour votre reponse. La chaine de caractere contient des chiffres, des lettres et un tiret (du 6 pas underscore).

Je vais voir tout ca. merci