Discussion :

[Paulinio86]

Bonjour j'aimerais ecrire en dessous d'un tableau dont je ne connais pas forcément le nombre de ligne donc j'aimerais compter le nombre de lignes et ecrire en dessous.
Voici le code que j'ai mis en place mais ça ne marche pas au niveau des ecritures en rouge:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ligne()
Dim nblignes As Long

nb_lignes = WorksheetFunction.CountA(Range("A:A"))

Range("A & nb_lignes+1").Value = 1

End Sub

Merci d'avance,
Cordialement
Paul

[Daniel.C]

Bonjour,

Peut-être parce que tu as des cellules vides :

Utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = 1

[Paulinio86]

Merci sa marche mieux avec ça^^