Discussion :

[chejai]

* Bonjour, *

Je voudrais calculer la moyenne d'une ligne à partir de la première valeur non vide la ligne

* Merci *

[riaolle]

Bonjour,

Pour trouver la première cellule non vide de la colonne A :

Code :

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

1
2
Dim premCel As Range
Set premCel = Range("A1").End(xlDown)

Pour la ligne :

Code :

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

1
2
Dim premLig As Long
premLig = Range("A1").End(xlDown).Row

Pour trouver la dernière cellule non vide de la colonne A :

Code :

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

1
2
Dim derCel As Range
Set derCel = Cells(Rows.Count, 1).End(xlUp)

Pour la ligne :

Code :

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

1
2
Dim derLig As Long
derLig = Cells(Rows.Count, 1).End(xlUp).Row