Compteur

Salut,

Ce problème ne peut être traité qu'en VBA, exemple en B2 tu veux compter le nombre de fois que tu saisiras le mot coucou résultat en A1

copie ce code dans les propriétés de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B2]) Is Nothing Then
If Target = "coucou" Then [A1] = [A1] + 1
End If
End Sub

pour la remise à zéro, créer un bouton ActiveX et le code est

Private Sub CommandButton1_Click()
[A1].ClearContents
End Sub

un exemple vaut mieux que longs discours

https://www.cjoint.com/?BHAnC20uyR5

Re,

Tu travailles sous quelle application et quelle version ?

excel office 2007

Re,

alors il n'y a aucun problème, le fichier Excel s'ouvre bien et compte en A1 le mot saisi en B2, voici un nouveau lien

https://www.cjoint.com/?BHAoO7OoI5E

Re,

as tu téléchargé et testé mon fichier !

Re,

Attention aux codes, tu ne peux utiliser plusieurs codes comme

Private Sub Worksheet_Change(ByVal Target As Range)

si c'est le cas il faut les imbriquer, si tu rencontres un problème il faudra mettre à notre disposition ton fichier

Re,

oh la pas étonnant que cela ne marche pas, les codes doivent être enregistrés dans le visual basic et un fichier contenant des macros, doit être enregistré sous l'ancien format Excel .xls ou .xlsm.
Après explique ce que tu veux faire sur ta feuille 1

Re,
peux tu envoyer ton fichier, pas celui avec le code macro qui ne va pas mais une copie de vrai que je vois tes formules

Re,

J'ai revu tes formules et adapté le code, initialisé le bouton de remise à zéro que tu peux remonter l'effacement est sécurisé par mot de passe qui est titi

https://www.cjoint.com/?BHBopn2M4y2

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

re,
normal il faut modifier le code, cette partie fait référence à I21 il convient de remplacer par I18

Else
[G4,E12:H12,I21].ClearContents
[G4].Select
End If

également ici remplacer I21 par I18

Else
[I21] = [I21] + 1
End If

re,

MERCI cela fonctionne à merveille.

Merci pour ton aide ainsi que celle de CCM81

Cordialement

et à une prochaine
Encore merci