Compteur
Résolu/Fermé
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
-
26 août 2012 à 12:05
ping 13 Messages postés 127 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 15 janvier 2013 - 27 août 2012 à 15:11
ping 13 Messages postés 127 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 15 janvier 2013 - 27 août 2012 à 15:11
A voir également:
- Compteur
- Compteur électrique - Guide
- Comment ralentir un compteur linky forum - Accueil - Objets connectés
- Compteur communicant - Guide
- Compteur de contractions - Télécharger - Santé & Bien-être
- Voici l'arme secrète d'Enedis pour surveiller les compteurs Linky à distance - Guide
11 réponses
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
26 août 2012 à 13:29
26 août 2012 à 13:29
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
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
26 août 2012 à 14:12
26 août 2012 à 14:12
Re,
Tu travailles sous quelle application et quelle version ?
Tu travailles sous quelle application et quelle version ?
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
30
26 août 2012 à 14:18
26 août 2012 à 14:18
excel office 2007
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
26 août 2012 à 14:41
26 août 2012 à 14:41
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
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
30
26 août 2012 à 14:45
26 août 2012 à 14:45
le problème provient peut-être du fait que le mot BIEN qui apparait dans ma cellule H15 est
issu d'une formule
issu d'une formule
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
26 août 2012 à 14:49
26 août 2012 à 14:49
Re,
as tu téléchargé et testé mon fichier !
as tu téléchargé et testé mon fichier !
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
30
Modifié par ping 13 le 26/08/2012 à 14:52
Modifié par ping 13 le 26/08/2012 à 14:52
oui et sa fonctionne sur une feuille excel, mais pas dans ma feuille de questionnaire
Le code que ta m'as donné je le copie à la suite des codes existants ?
Le code que ta m'as donné je le copie à la suite des codes existants ?
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
26 août 2012 à 15:20
26 août 2012 à 15:20
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
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
30
26 août 2012 à 18:04
26 août 2012 à 18:04
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
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
26 août 2012 à 18:24
26 août 2012 à 18:24
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
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
30
26 août 2012 à 19:01
26 août 2012 à 19:01
merci de ta patience
Il faudrait que ma cellule I19 comptabilise le nombre de fois que le mot VRAI
apparaitra dans la cellule H15
Il faudrait que ma cellule I19 comptabilise le nombre de fois que le mot VRAI
apparaitra dans la cellule H15
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
26 août 2012 à 19:54
26 août 2012 à 19:54
Mais le mot vrai en H15 est saisie manuellement ou est le résultat d'une formule si c'est le cas quel est ta formule
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
30
26 août 2012 à 20:27
26 août 2012 à 20:27
il s'agit d'une formule
=SI($B$15="";"";SI($B$15=RECHERCHEV($G$4;listeq;8;FAUX);"VRAI";"FAUX"))
=SI($B$15="";"";SI($B$15=RECHERCHEV($G$4;listeq;8;FAUX);"VRAI";"FAUX"))
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
26 août 2012 à 21:28
26 août 2012 à 21:28
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
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
30
27 août 2012 à 10:02
27 août 2012 à 10:02
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
Modifié par Mike-31 le 27/08/2012 à 14:35
Modifié par Mike-31 le 27/08/2012 à 14:35
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.
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
30
27 août 2012 à 14:44
27 août 2012 à 14:44
re bonjour
c'est impeccable,mais si je remonte le compteur en I18 et le bouton en H18
afin que ce soit visible a l'écran plus rien ne fonctionne
c'est impeccable,mais si je remonte le compteur en I18 et le bouton en H18
afin que ce soit visible a l'écran plus rien ne fonctionne
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
27 août 2012 à 15:02
27 août 2012 à 15:02
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
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
ping 13
Messages postés
127
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
15 janvier 2013
30
27 août 2012 à 15:11
27 août 2012 à 15:11
re,
MERCI cela fonctionne à merveille.
Merci pour ton aide ainsi que celle de CCM81
Cordialement
et à une prochaine
Encore merci
MERCI cela fonctionne à merveille.
Merci pour ton aide ainsi que celle de CCM81
Cordialement
et à une prochaine
Encore merci
26 août 2012 à 14:10
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