Discussion :

[Manjah]

Bonjour,

je souhaite réaliser un programme qui mette en couleur SEULEMENT les doublons des numéros à 5 chiffres,

J'ai la macro pour mettre en couleur les doublons, mais il me manque quelques lignes de code pour mettre seulement les nombres a 5 chiffres des cellules en couleur.

je débute en VBA, merci de m'aider svp

[laetitia]

bonjour Manjah le forum sans plus d'infos il faut utiliser LEN

c represente la variable

Code :

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

If Len(c) = 5 Then 'ton code

.

[Didier Gonard]

je souhaite réaliser un programme qui mette en couleur SEULEMENT les doublons des numéros à 5 chiffres

Y a-t-il des doublons qui ne sont pas de numéros dans ta liste ?

cordialement,

Didier

[Manjah]

Merci de vos réponse,

@ Ormonth : je souhaite voir les doublons dans seulement 1 colonne, où il y a par ligne soit des nombre a 5 chiffres, soit des commentaires ou des symboles

Exemple :
Colonne D
Comment
=
19355
33526
=
etc
et je souhaite voir les doublons des nombres a 5 chiffres

[laetitia]

re,tu rajoute isnumeric

Code :

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

If Len(c) = 5 And IsNumeric(c) Then 'ton code

[babaothe]

où il y a par ligne soit des nombre a 5 chiffres, soit des commentaires ou des symboles

salut,
s'agit-il vraiment de nombres ou plutôt de chaines de caractères numériques (ce n'est pas la même chose) ?
En d'autres termes : nce que tu appelles "nombres" peuvent-ils commencer par un 0 (comme en ce qui concernerait un code postal) ?

[Manjah]

la variable c je la declare comme sa :
Dim c as string ?


@ babaoth : non ce sont bien des nombres, allant de 16000 a 40000 environ

Je vous montre le programme que j'ai réussi a récuperer sur le net pour trouvé et mettre en couleur les doublons :

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
Option Explicit
Sub Test()
IdentifieDoublons Range("D1: D300")
End Sub
Sub IdentifieDoublons(Plage As Range)
Dim Cell As Range
Dim Un As Collection
Dim c As String
Set Un = New Collection
On Error Resume Next
'Boucle sur la plage de cellule
For Each Cell In Plage
'Pour ne pas prendre en compte les cellules vides
If Cell <> "" Then
'Ajoute le contenu de la cellule dans la collection
If Len(c) = 5 And IsNumeric(c) Then
'ton code
Un.Add Cell, CStr(Cell)
'Si la procédure renvoie une erreur, cela signifie que l'élément
'existe déjà dans la collection et donc qu'il s'agit d'un doublon.
'Dans ce cas la macro colorie la cellule en vert.
If Err <> 0 Then Cell.Interior.ColorIndex = 4
'Efface toutes les valeurs de l'objet Err.
Err.Clear
End If
End If
Next Cell
Set Un = Nothing
End Sub

Les lignes soulignées étant les informations que m'a donné Laetitia.
Je n'y connais casi rien encore en VBA, du coup c'est beaucoup de charabiat pour le moment .

et sur cette macro, je souhaite rajouter quelques ligne pour colorier uniquement les doublons des cellules ou il y a un nombre a 5 chiffres seulement, des nombres ne commençant pas par des 0.
Merci a vous.

[laetitia]

re, en conservant ton code qu'on pourrait simplifier!!!

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
Option Explicit
Sub Test()
IdentifieDoublons Range("D1: D300")
End Sub
Sub IdentifieDoublons(Plage As Range)
 Dim c As Range, Un As Collection
  Set Un = New Collection
  On Error Resume Next
  For Each c In Plage
      If Len(c) = 5 And IsNumeric(c) Then
          Un.Add c, CStr(c)
     If Err <> 0 Then c.Interior.ColorIndex = 4
   Err.Clear
   End If
  Next c
 Set Un = Nothing
End Sub

[Manjah]

merci beaucoup
c'est bien ce que je cherchais.