Compter cellules contenant "X" par macro

[Willy]

Bonjour le forum,

J'ai une colonne nommée STAGE1 ( de A3 à A500).
Chaque cellule contient :
Soit : "DSA"
Soit : "Non acquis"
et des cellules vides dont les données seront saisies ultérieurement.

Je souhaiterai récupérer le nombre de cellules contenant "DSA" dans mon textBox.

La c'est pour l'exemple mais dans la réalité j'ai environ 60 colonnes nommées dont j'ai besoin de récupérer leurs infos spécifiques dans autant de textBox ?

Le temps de calcul risque d'être long à l'ouverture de l'USF ?

Merci de votre aide

Willy

 

[wape]

Bonjour Willy et le forum,

Essaye ceci :

UserForm1.TextBox1.Text = CStr(Application.WorksheetFunction.CountIf(Range("STAGE1"), "DSA"))


@+
wape

 

[Willy]

Bonjour Wape,
Je vais essayer de suite.
Merci beaucoup
Willy