VBA compteur

Résolu/Fermé
EdMalou Messages postés 9 Date d'inscription mercredi 22 avril 2015 Statut Membre Dernière intervention 18 mai 2015 - 15 mai 2015 à 10:58
DilaneRodrigues Messages postés 8 Date d'inscription jeudi 1 janvier 2015 Statut Membre Dernière intervention 18 août 2015 - 15 mai 2015 à 11:35
Bonjour,

J'ai besoin de votre aide. Je désire dans la colonne A, en A1 mettre le titre de "Nombre de pannes", et par exemple en A3 manuellement mettre une croix "X" signifiant qu'il y a eu panne. Imaginons que j'ai donc une panne en A3, A4, A6, A10. Cela me fait 4 pannes. J'aimerais afficher ce "4" en B1.

Il me faudrait en quelques sortes un compteur de croix pour la colonne A (sans prendre en compte A1 et A2 par exemple. Comment cela est il possible ?

Merci pour votre aide !

A voir également:

3 réponses

Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 5 102
Modifié par Mike-31 le 15/05/2015 à 11:13
Bonjour,

Regarde comme cela

=NB.SI(A:A;"X")

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
EdMalou Messages postés 9 Date d'inscription mercredi 22 avril 2015 Statut Membre Dernière intervention 18 mai 2015
15 mai 2015 à 11:31
Merci !
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
15 mai 2015 à 11:11
Bonjour,

Tu peux utiliser la formule
=NB.SI(A:A;"X")

A+
0
EdMalou Messages postés 9 Date d'inscription mercredi 22 avril 2015 Statut Membre Dernière intervention 18 mai 2015
15 mai 2015 à 11:31
Merci, c'est ce qu'il me fallait
0
DilaneRodrigues Messages postés 8 Date d'inscription jeudi 1 janvier 2015 Statut Membre Dernière intervention 18 août 2015
15 mai 2015 à 11:17
Bonjour,

Avez-vous pensé à faire une boucle ( Foreach, do while.. ) sur le contenu de toutes les cellules de la colonne A.

par ex:

Si le contenu de la cellule Ax est égale à la valeur "x" tu incrémente une variable de +1 ensuite tu affiches cette variable dans B1

-----------------------------------------------
For Each Cellule In Range(...........)
If Cellule.Value = "X" Then
NbPanne = NbPanne + 1

-----------------------------------------------

J'espère t'avoir orienté dans une solution possible :)

Excellente journée.
0
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 5 102
15 mai 2015 à 11:22
quel intérêt de faire compliqué alors que NB.SI sait le faire simplement
0
EdMalou Messages postés 9 Date d'inscription mercredi 22 avril 2015 Statut Membre Dernière intervention 18 mai 2015
15 mai 2015 à 11:33
Cela doit marcherr en effet ! mais la formule NB.SI me convient :)
En tout cas merci.
0
DilaneRodrigues Messages postés 8 Date d'inscription jeudi 1 janvier 2015 Statut Membre Dernière intervention 18 août 2015
15 mai 2015 à 11:35
Car le titre de sa question est VBA compteur. Je lui est donc tout simplement proposé une solution en rapport avec son titre.

Ce n'est pas forcément plus compliqué, c'est juste une autre solution. Pour un programmeur cela sera moins "Casse tête" de faire tout en code.

Bien évidemment, cela reste mon avis personnel.
0