Incrémentation de chiffre dans plusieurs feuilles

Bonjour à tous,

J'aimerai incrémenter ma première colonne (1,2,3,...) sur plusieurs feuilles (à partir de la numéro 2) suivant le nombre de lignes dans chacune d'elle.

Pour cela, j'ai écrit cette macro :

Sub Incrémentationtemps()
'Incrémentation des chiffres pour la lecture du fichier'
For s = 3 To Sheets.Count
deRLig = Sheets(s).UsedRange.Rows.Count
cPt = 1
For k = 2 To deRLig + 1
If Cells(k, 9).Value <> "" Then
Cells(k, 1).Value = cPt
cPt = cPt + 1
Else
End If
Next k

Next s
End Sub

Ma macro semblent fonctionner en pas à pas car mes variables s'incrémentent mais rien ne s'affiche en la lançant.

Je vous avoue que je sèche et qu'un petit coup de pouce serait le bienvenu !

Merci par avance et bonne journée ;)

Kam

Bonjour,

--> Merci d'utiliser les balises de codes en cliquant sur l'icone </> disponible dans le menu et en collant le code dans la fenêtre. Il sera plus facile à lire.

Essayez ceci peut être

Sub Incrémentationtemps()
Dim s As Byte
Dim deRLig As Integer, cpt as integer
'Incrémentation des chiffres pour la lecture du fichier'
For s = 3 To Sheets.Count
    deRLig = Sheets(s).UsedRange.Rows.Count
    cPt = 1
    For k = 2 To deRLig + 1
        If Sheets(s).Cells(k, 9).Value <> vbNullString Then
            Sheets(s).Cells(k, 1).Value = cPt
            cPt = cPt + 1
        End If
    Next k

Next s
End Sub

Si ok -->

Cordialement

Salut 1000K,

tu dois spécifier la feuille parent des CELLS..

Sub Incrémentationtemps()
'
'Incrémentation des chiffres pour la lecture du fichier'
For s = 3 To Sheets.Count
    deRLig = Sheets(s).UsedRange.Rows.Count
    cPt = 1
    For k = 2 To deRLig + 1
        If Sheets(s).Cells(k, 9) <> "" Then _
            Sheets(s).Cells(k, 1) = cPt: _
            cPt = cPt + 1
    Next
Next
'
End Sub

A+

Super, tout est résolu, merci pour votre aide !