[déplacer VB.NET - VBA] compte cellules non-vides sans sélectionRésolu

Question

Bonjour, je souhaite compter le nombre de cellules non vides dans une colonne sans avoir à afficher la feuille en question, voici mon code mais qui, lors de l'éxécution, fait "clignoter" la feuille car il montre à chaque fois la feuille !

Merci d'avance.

Sheets("Feuil1").Select
Nb = WorksheetFunction.CountA(Columns("A:A"))
Sheets("MENU").Select
Range("H16") = Nb

Sheets("Feuil1").Select
Nb = WorksheetFunction.CountA(Columns("Z:Z"))
Sheets("MENU").Select
Range("H17") = Nb

PCPT · Accepted Answer

VBA !!



application.screenupdating=false
dim nb as long
Sheets("Feuil1").Select
Nb = WorksheetFunction.CountA(Columns("A:A"))
Sheets("MENU").Select
Range("H16") = Nb

Sheets("Feuil1").Select
Nb = WorksheetFunction.CountA(Columns("Z:Z"))
Sheets("MENU").Select
Range("H17") = Nb
application.screenupdating=true


[hr]

ucfoutu · Answer

Bonjour,

Suffit peut-être de ne pas utiliser les select .... (pas nécessaire)

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

cs_Jack · Answer

Salut
Quelle feuille fait-il clignoter ? Feuil1 ou Menu ?
C'est dû au fait que tu fais un .Select

Comme expliqué dans l'aide de VBA sur la WorksheetFunction (il te suffisait d'appuyer sur F1), il te suffit de créer une variable Range :
    Dim myRange As Range
    Set myRange = Worksheets("Feuil1").Range("A:A")
    MsgBox Application.WorksheetFunction.CountA(myRange)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

bigfish_le vrai · Answer

Salut,

autre solution:

dim nb as long
With Sheets("Feuil1")
    Nb = WorksheetFunction.CountA(.Columns("A"))
    Sheets("MENU").Range("H16").Value = Nb
    Nb = WorksheetFunction.CountA(.Columns("Z"))
    Sheets("MENU").Range("H17").Value = Nb
End with


A+

fazpedro · Answer

OK c'est bon avec la méthode de PCPT


Merci encore.

PS : comment faire pour que ce mesage soit mis en résolu ?
je suis très débutant....

PCPT · Answer

il est flaggué "résolu" maintenant que tu as validé ma réponse

(son signe distinctif n'est pas "[résolu]....titre" comme certains sites, ici il apparaitra dans les recherches avec une coche verte)

++

[déplacer VB.NET -> VBA] compte cellules non-vides sans sélection

6 réponses

Votre réponse