Bonjour,

Deux jours que je suis sur ce problème, je jette donc ma bouteille à la mer en espérant qu'un regard neuf m'aidera.

Pour plus de lisibilité voila à quoi mon fichier ressemble :


Mon but est de faire une numérotation automatique du N° de stage.
La multiplicité des lignes pour le stage n°3 s'explique par le fait qu'un stage peut se dérouler sur plusieurs périodes, le nombre de ces périodes étant bien entendu variable.

Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim StrTest As String 'Test pour cellule vide
Dim NumSta As String 'Dernier stage
Dim i As Integer 'indice
 
    While StrTest <> ""
        i = i + 1
        StrTest = Range("A" & i).text    'Recherche de la ligne vide pour continuer l'enregistrement
        NumSta = Range("B" & i).text    'Ce que contient la cellule N° de stage de la dernière ligne
        If NumSta = "" Then
            NumSta = Range("B" & i - 1).text
        End If
    Wend
Merci pour votre aide