Discussion :

[alainb]

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

Code :

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

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

[JPierreM]

Bonjour

je pense que ça devrait fonctionner

Code :

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

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

[Gorfael]

Salut alainb et le forum

Code :

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

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

est aussi bon

Code :

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

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

A+

[alainb]

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

Code :

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

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

Alain