XL 2010 [RESOLU] Comparer - Numéroter Lignes

cp4 · 25 Décembre 2019

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

VB:

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 · 25 Décembre 2019

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

VB:

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

cp4 · 25 Décembre 2019

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

VB:

=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 · 25 Décembre 2019

Rebonjour,

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

VB:

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.

XL 2010 [RESOLU] Comparer - Numéroter Lignes

cp4

XLDnaute Barbatruc

Pièces jointes

M12

XLDnaute Accro

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires

XL 2010 [RESOLU] Comparer - Numéroter Lignes

cp4

XLDnaute Barbatruc

Pièces jointes

M12

XLDnaute Accro

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency