Séléction d'un nombre a 5 chiffre en VBA

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 ;)

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

c represente la variable

Code:

---

If Len(c) = 5 Then 'ton code

---

.

Citation:

---

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

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

re,tu rajoute isnumeric

Code:

---

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

---

Citation:

---

Envoyé par Manjah

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) ?

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:

---

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.

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

Code:

---

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

---

merci beaucoup ;)
c'est bien ce que je cherchais.