XL 2016 comptage +affichage en graphique

  • Initiateur de la discussion Initiateur de la discussion Yuee
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
40
Affichages
2 K
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
213
Réponses
7
Affichages
704
Retour