XL 2016 Création compteur pour différentes feuilles

Michest94

XLDnaute Occasionnel
Bonjour,
J'aimerais pouvoir mettre un compteur sur plusieurs feuilles d'un classeur.(cf fichier joint).
Merci à vous pour votre retour.
Cdt,
 

Pièces jointes

  • Compteurs.xlsm
    9.4 KB · Affichages: 17

Michest94

XLDnaute Occasionnel
Bonjour Phil69970

En fait ce que tu as fait correspond bien à mes besoins sauf qu'au lieux de compter des cellules par feuilles, le compteur sert à savoir le nombre de visites de la feuille sélectionnée dans l'exemple Page1,2 ou 3.
En ouvrant mon projet réel on arrive sur la feuille 'login' avec code d'accès et en fonction des droits d'accès cela donne droit à différentes feuilles et ce qui m'intéresses est de voir le nombre de visites.

Sachant que mes feuilles sont protégées je peux libérer une cellule pour le nombre de visite a chaque feuille.
En tout les cas merci
 

Phil69970

XLDnaute Barbatruc
Michest, le forum

Dans cette version chaque fois qu'une feuille est activée le compteur s’incrémente.

Le compteur sur chaque feuille ne sert à rien, c'est juste une info.
Tout est globalisé dans la feuille "Bilans cpt"

@Phil69970
 

Pièces jointes

  • Compteurs V2.xlsm
    25.4 KB · Affichages: 16

Michest94

XLDnaute Occasionnel
Bonjour Phil69970,

Je me permets de te relancer sur un projet compteurs de visite par page que tu m'avait réalisé.👍
J'aimerais apporté une petite variante si cela est possible.
En fait sur le fichier joint cela figure en rouge page Loging et Cpt.
Le but étant de savoir par rapport à l'identifiant correspondant à un profil ( ADMIN,RESPONSABLE,INTERVENANT,DISPATCHING) quelle est le profil se loggant le plus.

Merci,
 

Pièces jointes

  • Compteurs V3 (1).xlsm
    22.3 KB · Affichages: 6

Phil69970

XLDnaute Barbatruc
Michest, le forum

Ne sachant pas la procédure de connexion que tu as.

Je ne peux que en déduire des hypothèses.
Je ferais quelque chose comme cela....

VB:
'Tu testes le login de connexion si bon
If VarLlogin = MontestOk Then
'Si le login est bon tu lui affecte une variable public exemple VarLogin
VarLogin="Ta procédure de connexion qui identifie celui qui se connecte"   ' <== Ceci est un exemple
End If

'Et dans chaque feuille j'appelle mon select case

'****
'Et après tu fais un select Case en fonction de ta variable
Select Case VarLogin

Case ADMIN
Sheets(5).Range("H12") = Sheets(5).Range("H12") + 1

Case RESPONSABLE
Sheets(5).Range("I12") = Sheets(5).Range("I12") + 1

Case INTERVENANT
Sheets(5).Range("J12") = Sheets(5).Range("J12") + 1

Case DISPATCHING
Sheets(5).Range("J12") = Sheets(5).Range("J12") + 1

Case Else

End Select

@Phil69970
 

Michest94

XLDnaute Occasionnel
Phil69970
Ci joint le retour sur mon fichier original.
Cpt.jpg

Merci encore à toi pour ton aide
 

Michest94

XLDnaute Occasionnel
Bonjour Phil69970,

Encore une petite réflexion de ma part, si tu as une idée sinon ce n'est pas grave tu m'a déjà beaucoup aidé, encore merci.
Juste que mon tableau de gauche s'incrémente tout les jours et comme je suis en version beta (pour essais), je vais prochainement le mettre à dispo en version finale donc devoir l'ajuster par rapport à la date de départ mais bilans sur la droite de la feuille ne vont pas aimés des suppressions de lignes. Encore de la réflexion en perspective, à savoir si Excel me propose de supprimer des lignes simplement de la colonne A à la colonne H, cela m'étonnerait ?

Pas évident pour un néophyte passionné d'excel de réaliser des projets sans aller à la pêche aux infos et de faire du recollement et ajustement de codes.

@+
 

Discussions similaires

Réponses
2
Affichages
142

Statistiques des forums

Discussions
312 270
Messages
2 086 677
Membres
103 369
dernier inscrit
pasval