VBA - Cellules vides d'une sélection variable

[lolo62000]

Bonjour,
j'ai beau tout tester selon ce que je trouve dans les précédentes discussions, je tourne en rond.
Selon le code suivant, je souhaiterais voir s'inscrire en A1 le résultat correspondant au nombre de cellules non vides de maPlage.
Or à chaque fois que je roule la macro, il m'affiche comme résultat "1", au lieu du chiffre auquel je m'attend qui est de 35.
Pouvez-vous m'aider et me dire ce que j'ai mal programmé?
Merci.
Laurent.

Sub DerligCR()
Dim maPlage2 As Range
Dim DerligCR As Long
DerligCR = Range("A" & Rows.Count).End(xlUp).Row - 1
Set maPlage2 = Range("A8:A" & DerligCR)

Cells(1, 1) = "=COUNTA(maPlage2)"

End Sub

 

[Modeste geedee]

Re : VBA - Cellules vides d'une sélection variable

Bonsour®

Sub DerligCR()
 Dim maPlage2 As Range
 Dim DerligCR As Long
' -----on part de la ligne la plus éloignée , on cherche en remontant "xlUp"
 DerligCR = Range("A35635").End(xlUp).Row
 Set maPlage2 = Range("A8:A" & DerligCR)
'------ on applique le résultat d'une fonction , pas un texte contenant une formule
 Cells(1, 1) = WorksheetFunction.CountA(maPlage2)
 End Sub

🙄
sans passer par une macro il suffit d'écrire en A1 :
=NBVAL($A$8:$A$65535)

 

[lolo62000]

Re : VBA - Cellules vides d'une sélection variable

Excellent.
Effectivement, je ne savais pas qu'en écrivant $A$65535 avec NBVAL, il s'adaptait à la dernière ligne non vide quand la taille de la sélection changeait. Il me restait la dernière ligne total qui est non désirée dans le calcul, mais j'ai rajouté -1 après la formule, et j'obtiens mon résultat.
Merci, et bon week end.