boucle de numérotation

[tryssa]

Bonjour les petits loups,

Je n'ai encore jamais fait de boucle dans mes macros et voici que j'en ai besoin. Merci d'ores et déjà pour votre aide (comme d'habitude !!!).

(col A);;;;;;(col B)
ORDRE;;;;;;COMPANY
1;;;;;;;;;;;;PAP
2;;;;;;;;;;;;PAP
;;;;;;;;;;;;;;PAP
;;;;;;;;;;;;;;PAP
;;;;;;;;;;;;;;PAP
;;;;;;;;;;;;;;PAP
;;;;;;;;;;;;;;PAP
;;;;;;;;;;;;;;PAP
;;;;;;;;;;;;;;PAP
;;;;;;;;;;;;;;PAP
;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;

Mes fichiers ont toujours une nombre de lignes différents. Il me faut donc une boucle qui arrête la numérotation (souhaitée dans la colonne A) lorsqu'il n'y a plus écrit "PAP" en colonne B.

Merci Merci et bonne journée à tous !

 

[tototiti2008]

Re : boucle de numérotation

Bonjour tryssa,

un truc du genre, je suppose :

Sub Numerote()
Dim i As Long
    i = 2
    Do Until Range("B" & i).Value <> "PAP"
        Range("A" & i).Value = i - 1
        i = i + 1
    Loop
End Sub

 

[Paritec]

Re : boucle de numérotation

Bonjour tototiti tryssa le forum
moi j'avais fais cela alors je le poste quand même
a+
Papou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
fin = Feuil1.Range("B65000").End(xlUp).Row
Cells(2, 1) = 1
For i = 2 To fin - 1
Cells(i + 1, 1) = Cells(i, 1) + 1
Next
End Sub

 

[tryssa]

Re : boucle de numérotation

Ca marche parfaitement, merci à vous deux et bonne fin de journée 🙂