Redémarrer la numérotation à partir de 1 (VBA)

Question

Redémarrer la numérotation à partir de 1 (VBA)

Anonyme

Bonjour,

Je cherche à modifier le code pour que la numérotation recommence à 1 (colonneD) à chaque nouvelle section (colonneA).

Lien : https://www.cjoint.com/c/MCgsiHHULCI

Résultat visé :

A	B	C	D	E
Section1			1
2
Section2			1
2
Section3			1
2
3

Merci|

Sylvie Catherine

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

Réponse acceptée par l’auteur de la question

Hecatonchire 54,030 Modérateur bénévole

Bonsoir Sylvie

For Each C In Range("D8:D" & ActiveSheet.UsedRange.Rows.Count)

**If C.Offset(0, -3) = 0 Then** 

    **C = C.Offset(-1, 0) + 1** 

**Else** 

    **C = 1** 

**End If**

Next C

0 commentaires

1 réponse supplémentaire

Answer 1

Anonyme

Bonsoir Arnaud,

Ca fonctionne!

Merci !

Sylvie Catherine

0 commentaires