XL 2010 [RESOLU] Comparer - Numéroter Lignes

[cp4]

Bonjour🙂,
Merci pour votre aide. J'ai commencé ainsi mais pour reste je bloque.

Option Explicit
Sub numeroter_lignes()
   Dim C As Range
   For Each C In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
      Debug.Print C
   Next C
End Sub

En colonne A des codes, je voudrais numéroter chaque ligne de code en colonne B (1,2,…..x), ensuite trier cette colonne par ordre croissant.
Comment reprendre la numérotation à partir de 1 au changement de code en colonne A.
C’est-à-dire comment effectuer la comparaison du dessous avec celle du dessus (A2 avec A1, A3 avec A2...... etc.).
Bonne journée.

 

[M12]

Bonjour,
En B1 mettre 1
en B2 cette formule à tirer vers le bas

=SI(A2=A1;B1+1;1)

 

[cp4]

Bonjour,
En B1 mettre 1
en B2 cette formule à tirer vers le bas

=SI(A2=A1;B1+1;1)

Bonjour M12😉,

Très gentil de ta part. Mais j'ai besoin d'un code vba pour compléter mon code.
Mon petit projet est l'extraction depuis un csv, puis rajouter des données pour traiter mon fichier de travail.
Encore merci pour ta formule.

Bonne journée.🙂🙂🙂

 

[cp4]

Rebonjour,

Merci, j'ai trouvé une solution ci-dessous.

Option Explicit

Sub numeroter_lignes()
   Dim C As Range, i As Integer
   i = 1
   For Each C In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
      C.Offset(, 1).Value = i
      If C.Value = C.Offset(1, 0).Value Then
         C.Offset(, 1) = i
         i = i + 1
      Else
         i = 1
      End If
   Next C
   'tri croissant
   Range("A1").CurrentRegion.Sort Range("B1"), xlAscending
End Sub

Bonne journée.