Compter

[Michael]

Bonsoir à tous,

Qui peut me dire comment trouver le nombre de cellules non vides contenues dans chaque colonne non vide d'une feuille.

Merci

Michael

 

[STéphane]

bonjour

pourquoi pas ça

Sub dhd()
For Each cl In ActiveSheet.UsedRange.Columns
If Application.CountA(cl) > 0 Then colnonvides = colnonvides & cl.Column & Chr(10)
Next cl
If colnonvides <> "" Then MsgBox colnonvides
End Sub

 

[Michael]

Merci Stéphane, mais ça ne semble pas convenir à mon besoin.

Je m'explique mieux :

J'ai besoin de savoir laquelle des colonnes de ma feuille contient le moins de données. C'est pour cela que je souhaite savoir combien de cellules non-vides elles contiennent (chacune).

Michael

 

[STéphane]

oui eh bien dans mon code ceci be warned when a program has been transported application.counta(cl) retourne le nombre contenues dan ta colonne si je ne m'abuse, après tu peux en faire ce que tu veux

 

[Michael]

Tu ne t'abuses pas, c'est exactement ce dont j'avais besoin...
Merci beaucoup