cephalotus
XLDnaute Occasionnel
Bonjour le forum,
voici ce que je voulais faire:
J'ai une colonne B avec des n° (ex: 1122, 1140, 1149...).
Ces numéros peuvent se répéter. Il peut y avoir des ruptures de numéros sur cette suite (ex : on passe du 1122 au 1124 et il n'existe pas de 1123). je voudrai renvoyer sur une colonne A un numéro incrémenté.
Mon incrémentation doit être identique pour chaque numéro (ex: tous les 1122 doivent porter le n° 1...).
L'incrémentation doit être continue sans rupture de séquence ex: le n° 1122 renvois 1 le 1123 n'existe pas donc le 1124 renvoi 2 etc.).
Pour cela, la macro ci-dessous fonctionne parfaitement:
Sub test()
Dim i&, cpt&
cpt = 1
For i = 2 To Range("B65536").End(xlUp).Row
If Cells(i, 2).Value = Cells(i + 1, 2).Value Then
Cells(i, 1).Value = cpt
Else
Cells(i, 1).Value = cpt
cpt = cpt + 1
End If
Next i
End Sub
Je voudrais maintenant modifier cette macro pour faire la même chose, mais à partir du numéro 330 sur une autre feuille de mon fichier.
Pourriez-vous m'expliquer comment faire.
Merci pour vos réponses
voici ce que je voulais faire:
J'ai une colonne B avec des n° (ex: 1122, 1140, 1149...).
Ces numéros peuvent se répéter. Il peut y avoir des ruptures de numéros sur cette suite (ex : on passe du 1122 au 1124 et il n'existe pas de 1123). je voudrai renvoyer sur une colonne A un numéro incrémenté.
Mon incrémentation doit être identique pour chaque numéro (ex: tous les 1122 doivent porter le n° 1...).
L'incrémentation doit être continue sans rupture de séquence ex: le n° 1122 renvois 1 le 1123 n'existe pas donc le 1124 renvoi 2 etc.).
Pour cela, la macro ci-dessous fonctionne parfaitement:
Sub test()
Dim i&, cpt&
cpt = 1
For i = 2 To Range("B65536").End(xlUp).Row
If Cells(i, 2).Value = Cells(i + 1, 2).Value Then
Cells(i, 1).Value = cpt
Else
Cells(i, 1).Value = cpt
cpt = cpt + 1
End If
Next i
End Sub
Je voudrais maintenant modifier cette macro pour faire la même chose, mais à partir du numéro 330 sur une autre feuille de mon fichier.
Pourriez-vous m'expliquer comment faire.
Merci pour vos réponses