Compteur
Résolu
ping 13
Messages postés
127
Date d'inscription
Statut
Membre
Dernière intervention
-
ping 13 Messages postés 127 Date d'inscription Statut Membre Dernière intervention -
ping 13 Messages postés 127 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Compteur
- Compteur électrique - Guide
- Compteur de contractions - Télécharger - Santé & Bien-être
- Comment ralentir un compteur linky forum - Accueil - Objets connectés
- Compteur point fléchette excel - Télécharger - Sport
- Compteur cyber café gratuit - Télécharger - Outils professionnels
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
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,
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
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,
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
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
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
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
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.
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.
J'ai mis le code dans ma feuille ,qui en comporte déjà d'autres et cela ne marche pas.
D'autres part le lien que tu me donne pour exemple me donne un fichier codé
Crdlt