Discussion :

[skipeemed]

Bonjour,

Je veux le nombre de valeur à partir d'une cellule dans la 14ème ligne jusqu'à la dernière ligne.
Voilà le code que j'utilise mais je sais qu'il est erroné:

Code :

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

1
2
3
4
Range("a65536").Select
    dernière_ligne2 = Selection.End(xlUp).Row
    Sheets("Feuil1").Cells(dernière_ligne2 + 1, 2).Select
    Selection.FormulaArray = "=COUNTA(B14:B & dernière_ligne2)"

Vous pouvez me corriger l'erreur dans la formule.

Cdt,
Skip

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim LastLig As Long
 
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Cells(LastLig + 1, 2).Formula = "=COUNTA(B14:B" & LastLig & ")"
 
    'ou bien
        '.Cells(LastLig + 1, 2).FormulaR1C1 = "=COUNTA(R[" & 13 - LastLig & "]C:R[-1]C)"
 
    'ou bien sans formule
    '.Cells(LastLig + 1, 2).Value = Application.CountA(.Range("B14:B" & LastLig))
End With