Numérotation

Le
Richard G.
Bonjour à tous,

J'ai une colonne qui contient des Villes par numéro de Département du
type :
Villes
1
2
2
2
3
3
3
5
6

Dans mon exemple, on a trois villes dans le département 02.

Pour chaque ligne, je souhait créer en colonne B un numéro du type
"0101" : les deux premiers chiffres correspondent au département (avec
la difficulté que les 2 doivent s'écrire "02" par exemple) et les deux
derniers correspondent à la numérotation de la ville qui s'incrémente
de 1 (exemple, "0201", puis "0202", puis "0203" et ainsi de suite).

Au final, je devrais avoir ça :
0101
0201
0202
0203
0301
0302
0303
0501
0601


J'ai écrit le code suivant :

Sub numéro()

For Each c In Range("A2:A160")
If c.Value = Range("A" & c.Row + 1).Value Then Range("B" &
c.Row).Value = c.Value & i
If c.Value < Range("A" & c.Row + 1).Value And c.Value > Range("A"
& c.Row - 1).Value Then Range("B" & c.Row).Value = c.Value & "01"
If c.Value < Range("A" & c.Row + 1).Value And c.Value = Range("A"
& c.Row - 1).Value Then Range("B" & c.Row).Value = c.Value
Next

End Sub

Je bute sur l'affichage des chiffres unique sur 2 positions (le fameux
"02") et surtout sur l'incrémentation de la numérotation (le +1).
Merci par avance pour vos idées.

A+
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4321371
Bonjour.
En B1 :
=TEXTE(A6;"00")&TEXTE(NB.SI($A$1:A6;A6);"00")
A recopier vers le bas.
Cordialement.
Daniel
"Richard G."
Bonjour à tous,

J'ai une colonne qui contient des Villes par numéro de Département du
type :
Villes
1
2
2
2
3
3
3
5
6

Dans mon exemple, on a trois villes dans le département 02.

Pour chaque ligne, je souhait créer en colonne B un numéro du type
"0101" : les deux premiers chiffres correspondent au département (avec
la difficulté que les 2 doivent s'écrire "02" par exemple) et les deux
derniers correspondent à la numérotation de la ville qui s'incrémente
de 1 (exemple, "0201", puis "0202", puis "0203" et ainsi de suite).

Au final, je devrais avoir ça :
0101
0201
0202
0203
0301
0302
0303
0501
0601


J'ai écrit le code suivant :

Sub numéro()

For Each c In Range("A2:A160")
If c.Value = Range("A" & c.Row + 1).Value Then Range("B" &
c.Row).Value = c.Value & i
If c.Value & c.Row - 1).Value Then Range("B" & c.Row).Value = c.Value & "01"
If c.Value < Range("A" & c.Row + 1).Value And c.Value = Range("A"
& c.Row - 1).Value Then Range("B" & c.Row).Value = c.Value
Next

End Sub

Je bute sur l'affichage des chiffres unique sur 2 positions (le fameux
"02") et surtout sur l'incrémentation de la numérotation (le +1).
Merci par avance pour vos idées.

A+
Daniel
Le #4321361
Euh, et pour la Corse, comment tu fais ?
Daniel
"Richard G."
Bonjour à tous,

J'ai une colonne qui contient des Villes par numéro de Département du
type :
Villes
1
2
2
2
3
3
3
5
6

Dans mon exemple, on a trois villes dans le département 02.

Pour chaque ligne, je souhait créer en colonne B un numéro du type
"0101" : les deux premiers chiffres correspondent au département (avec
la difficulté que les 2 doivent s'écrire "02" par exemple) et les deux
derniers correspondent à la numérotation de la ville qui s'incrémente
de 1 (exemple, "0201", puis "0202", puis "0203" et ainsi de suite).

Au final, je devrais avoir ça :
0101
0201
0202
0203
0301
0302
0303
0501
0601


J'ai écrit le code suivant :

Sub numéro()

For Each c In Range("A2:A160")
If c.Value = Range("A" & c.Row + 1).Value Then Range("B" &
c.Row).Value = c.Value & i
If c.Value & c.Row - 1).Value Then Range("B" & c.Row).Value = c.Value & "01"
If c.Value < Range("A" & c.Row + 1).Value And c.Value = Range("A"
& c.Row - 1).Value Then Range("B" & c.Row).Value = c.Value
Next

End Sub

Je bute sur l'affichage des chiffres unique sur 2 positions (le fameux
"02") et surtout sur l'incrémentation de la numérotation (le +1).
Merci par avance pour vos idées.

A+
Publicité
Poster une réponse
Anonyme