Affecter un cacul à une variable

Bonjour,
A l'aide d'une macro, le résultat du calcul s'affiche dans la cellule A2

Code:

---

1 2 3

Sheets("Feuil1").Select Range("A2").Select ActiveCell.FormulaR1C1 = "=COUNTA(Feuil2!R[2]C[1]:R[12]C[1])"

---

je ne souhaite pas passer par la cellule A2 pour lire le résultat, mais l'affecter directement à une variable.
Genre monrésultat=COUNTA(Feuil2!R[2]C[1]:R[12]C[1])"

Quelle est la bonne syntaxe, SVP ?
Merci

Bonjour

je pense que ça devrait fonctionner

Code:

---

1 2 3 4 5

Sub sc() Dim plage As Range Set plage = Feuil2.Range("B4:B12") a= Application.WorksheetFunction.CountA(plage) End Sub

---

Salut alainb et le forum

Code:

---

Sheets("Feuil1").Range("A2").FormulaR1C1 = "=COUNTA(Feuil2!R[2]C[1]:R[12]C[1])"

---

est aussi bon

Code:

---

1 2 3

Dim X as long .... X=COUNTA(Feuil2!R[2]C[1]:R[12]C[1])

---

A+

Merci à tous les deux!
Voici le code mixé que je vais utiliser

Code:

---

1 2	Set plage = Workbooks("database.xls").Sheets("data").Range("A2:A10000") data_nb = Application.WorksheetFunction.CountA(plage)

---

Alain