XL 2016 comptage +affichage en graphique

Yuee

XLDnaute Nouveau
Bonjour à tous,

Je suis débutant sur VBA et je souhaiterais faire quelques manipulations sur mon fichier

Voici ce que j'aimerai bien faire :

Pour chacune des colonne de B à G je suis souhaiterais compter si la valeur est supérieur à 1, puis avoir une somme des comptage par colonne , et après l'afficher sous forme de graphique.

J'ai trouvé ça sur le net , ca me le compte bien mais ça me le met sous forme de message texte, et je suis obligé de copier la macro pour chaque colonne ce qui a mon avis l'alourdi la macro. Donc si vous avez des idées je suis preneur ;)

Sub Compter_le_nombre() 'activation_pompes

Dim compteur As Integer
compteur = 0
For Each c In Range("B2:B1320" & Range("O" & Rows.Count).End(xlUp).Row)
If c.Value >= 1 Then
compteur = compteur + 1
End If
Next
MsgBox compteur

End Sub

Je vous joint le fichier .

Merci d'avance et si vous avez des questions complémentaire n'hésiter pas.

Cordialement

Yoann
 

Pièces jointes

  • Comptage.xlsx
    37.4 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510