Compter automaiquement en fonction d'un nom

[bobjazz]

Bonjour le Forum

Merci d'avance pour votre aide
Est il possible de numéroter par une macro les lignes qui ont le même nom mais qui se suivent?
les noms se répètent mais il faut garder chaque fois le "-1"
Merci j'ai 6000 lignes cela me rendrait service
Je mets un fichier qui expliquera mieux

Encore merci

Bobjazz

 

[JNP]

Re : Compter automaiquement en fonction d'un nom

Bonjour BobJazz ,
A tester

Sub Test()
Dim I As Long, J As Byte, K As Byte
I = 1
While Range("A" & I + 1) <> ""
If Range("A" & I) = Range("A" & I + 1) And Right(Range("A" & I + 1), 2) = "_1" Then
J = 1
While Range("A" & I) = Range("A" & I + J)
J = J + 1
Wend
For K = 1 To J - 1
Range("A" & I + K) = Left(Range("A" & I + K), Len(Range("A" & I + K)) - 1) & K + 1
Next K
End If
I = I + 1
Wend
End Sub

Bonne journée

 

[Excel-lent]

Re : Compter automaiquement en fonction d'un nom

Bonjour BobJazz,

Oui c'est tout à fait possible. Si tu n'as pas de réponse d'ici ce soir, post ton fichier au format "xls" et je t'enverrais une macro qui permet de faire cela.

Bonne après midi

PS. : salut JNP

 

[bobjazz]

Re : Compter automaiquement en fonction d'un nom

Bonjour JNP

ouhaa en plein dans le mille
Je garde, j'ai beaucoup d'extraction comme celle que je travaille, pas aussi longue.

Encore Merci

Bobjazz