Discussion :

[Louax]

Bonjour,

J'aimerai compter le nombre de cellule non vide dans une autre feuille sans l'afficher.

Avec l'affichage le code est le suivant :

Code :

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

nb = Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(1, 100)))

Et sans l'affichage je pensais que le code serai le suivant :

Code :

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

nb = Application.WorksheetFunction.CountA(Worksheets("Feuil1").Range(Cells(1, 1), Cells(1, 100)))

Mais cela ne fonctionne pas.

Merci pour votre aide

[Docmarti]

Voici 2 ou 3 façons de le faire :

Code :

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

1
2
3
4
5
6
nb = Application.WorksheetFunction.CountA(f.Range("$A$1:$CV$1"))
 
Set r = f.Range("$A$1:$CV$1")
nb = Application.WorksheetFunction.CountA(r)
 
nb = Application.WorksheetFunction.CountA(f.Range(f.Cells(1, 1), f.Cells(1, 100)))

[Louax]

Bonjour,

Merci pour ton aide. je vais obter pour la deuxième méthode, celle avec Set.

Encore merci