Création compteur par feuilles
Résolu
Michest94
Messages postés
80
Date d'inscription
Statut
Membre
Dernière intervention
-
Michest94 Messages postés 80 Date d'inscription Statut Membre Dernière intervention -
Michest94 Messages postés 80 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerais pouvoir mettre un compteur sur plusieurs feuilles d'un classeur.(cf fichier joint).
Merci à vous pour votre retour.
Cdt,
https://mon-partage.fr/f/k31mcuJC/
J'aimerais pouvoir mettre un compteur sur plusieurs feuilles d'un classeur.(cf fichier joint).
Merci à vous pour votre retour.
Cdt,
https://mon-partage.fr/f/k31mcuJC/
A voir également:
- Création compteur par feuilles
- Compteur électrique - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Creation compte gmail - Guide
- Création site web - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
7 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
quel obstacle rencontres-tu?
quel obstacle rencontres-tu?
Je souhaiterais mettre un cpt general sur la page Login qui s'incrémente et garde à jour le comptage. idem pour les pages de navigation.
Comment faire?
Comment faire?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
https://mon-partage.fr/f/agHcLokm/
Re-
En fait le fichier joint actuel compte le nb de cellule cliquez par feuilles et je voudrais qu'il compte le nb d'accès à la feuille.
sachant que les feuilles de mon projet sont protégées et je peux libérer une cellule dédiée par feuille.
Re-
En fait le fichier joint actuel compte le nb de cellule cliquez par feuilles et je voudrais qu'il compte le nb d'accès à la feuille.
sachant que les feuilles de mon projet sont protégées et je peux libérer une cellule dédiée par feuille.
Bonjour,
remplace ton code pour chaque feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets(5).Range("E12") = Sheets(5).Range("E12") + 1
End Sub
par
mais si tu mets ce code dans la Thisworkbook tu supprimes tous les codes de tes feuilles
remplace ton code pour chaque feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets(5).Range("E12") = Sheets(5).Range("E12") + 1
End Sub
par
Private Sub Worksheet_Activate() Sheets(5).Range("E12") = Sheets(5).Range("E12") + 1 End Sub
mais si tu mets ce code dans la Thisworkbook tu supprimes tous les codes de tes feuilles
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveSheet.Name <> "Bilans cpt" Then Range("B2") = Range("B2") + 1 End Sub
https://mon-partage.fr/f/oetqJQPL/
En fait j'ai trouver mon bonheur!!!!
Merci à tous ceux qui m'ont aidés et parfois pas compris mon post car pas très clair dans ma demande
En fait j'ai trouver mon bonheur!!!!
Merci à tous ceux qui m'ont aidés et parfois pas compris mon post car pas très clair dans ma demande