Compteur
Résolu
ping 13
Messages postés
138
Statut
Membre
-
ping 13 Messages postés 138 Statut Membre -
ping 13 Messages postés 138 Statut Membre -
Bonjour,
Je cherche à créer un compteur et je n'y arrive pas.
Ce compteur devra le nombre de fois que le mots bien apparaitra dans une cellule,
suite à des questions posées.
Et il faudrait pouvoir le remettre à zéro
merci de votre aide
crdlt
Je cherche à créer un compteur et je n'y arrive pas.
Ce compteur devra le nombre de fois que le mots bien apparaitra dans une cellule,
suite à des questions posées.
Et il faudrait pouvoir le remettre à zéro
merci de votre aide
crdlt
11 réponses
-
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 ?
-
-
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 bonjour
J'ai vraiment un problème
Je te joints une copie du code qui se trouve déjà sur ma feuille
https://www.cjoint.com/?3HAsdoOyWjb
Crdlt
-
-
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
