Comptabiliser le nombre de clic sur 1 cellule
Résolu/Fermé
Bruthe
-
18 mars 2010 à 11:03
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 31 août 2011 à 15:34
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 31 août 2011 à 15:34
A voir également:
- Comptabiliser le nombre de clic sur 1 cellule
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- En raison d'un nombre important d'échec de connexion snapchat - Forum Snapchat
- Excel compter le nombre de cellule contenant le même texte ✓ - Forum Excel
7 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
18 mars 2010 à 16:48
18 mars 2010 à 16:48
Bonjour,
Dans le module de la feuille tu copie...
Quand tu clic sur B2 la cellule C2 mémorise les clic.
A+
Dans le module de la feuille tu copie...
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$2" Then Range("C2") = Range("C2") + 1 Range("B3").Select End Sub
Quand tu clic sur B2 la cellule C2 mémorise les clic.
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
31 août 2011 à 15:34
31 août 2011 à 15:34
Bonjour,
Behhh oui... tu a deux fois End Sub !!
A+
Behhh oui... tu a deux fois End Sub !!
A+
Merci c'est super !
Petit pb.... j'ai une multitude de données que j'ai donc rentré dans les champs concernés. ça marche, ça m'a pris du temps mais ça marche...
Le pb c'est B3 qui s'active systématiquement et qui (lorsque je suis en bas de page) revient en haut de page (et c'est très énervant)
Si tu as une solution c'est top, sinon bah je m'en contenterai !
Merci encore !
Petit pb.... j'ai une multitude de données que j'ai donc rentré dans les champs concernés. ça marche, ça m'a pris du temps mais ça marche...
Le pb c'est B3 qui s'active systématiquement et qui (lorsque je suis en bas de page) revient en haut de page (et c'est très énervant)
Si tu as une solution c'est top, sinon bah je m'en contenterai !
Merci encore !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
19 mars 2010 à 14:16
19 mars 2010 à 14:16
Tu enlève la ligne...
Range("B3").Select
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
20 mars 2010 à 17:42
20 mars 2010 à 17:42
D'après ce que je comprend tu a une multitude de cellules auquel tu dois mémoriser le nombre de clic ?
Si oui, j'espère que tu n'a pas retaper le IF... une quantité de fois... ?
A+
Si oui, j'espère que tu n'a pas retaper le IF... une quantité de fois... ?
A+
Bonjour,
J'ai aussi besoin de compter le nombre de clic sur une certains case d'un fichier excel.
Pour être honnete je suis novice en VBA.
J'arrive à faire fonctionner cette macro mais je n'arrive pas a l'enregistrer.
Quand je fais "créer" la macro, je la nome "comptage" puis je colle le code indiqué en début de poste.
Cela donne:
Sub comptage()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$2" Then Range("C2") = Range("C2") + 1
Range("B3").Select
End Sub
End Sub
Au final j'ai le message d'erreure "Compile errore, Expected End Sub".
Pouvez vous m'aider.
Merci d'avance
J'ai aussi besoin de compter le nombre de clic sur une certains case d'un fichier excel.
Pour être honnete je suis novice en VBA.
J'arrive à faire fonctionner cette macro mais je n'arrive pas a l'enregistrer.
Quand je fais "créer" la macro, je la nome "comptage" puis je colle le code indiqué en début de poste.
Cela donne:
Sub comptage()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$2" Then Range("C2") = Range("C2") + 1
Range("B3").Select
End Sub
End Sub
Au final j'ai le message d'erreure "Compile errore, Expected End Sub".
Pouvez vous m'aider.
Merci d'avance