Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

affichage feuille en fonction du login

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion popof
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

popof

XLDnaute Occasionnel
Bien le bonjour au forum et à tous ceux qui liront 😉

Question du jour :

Est il possible de masquer des lignes / colonnes en fonction du nom de l'utilisateur.

J'explique, sur un fichier en réseau, chaque utilisateur ne sert que d'une partie des informations et masque donc les colonnes inutile à son domaine, je sais que l'on peut faire afficher une textbox avec le nom de l'utlilisateur mais je n'arrive pas à appliquer cela à une macro 'd'entrée' dans le document.

Explication:

Ouverture par utilisateur X -->Masque des colonnes Z à AX ( Exemple)
fermeture par l'utilisateur X ---> afficher toute les colonnes
Ouverture par l'utilisateur Y --> Masque les colonnes A à Y
Fermeture par l'utilisateur Y --> afficher toute les colonnes


En espérant avoir été explicite

Amicalement

Popof :whistle:
 
Trier par date Trier par votes
Bonjour

Dans un module :

Code: 
Public username as string

Declare Function GetUserName Lib 'advapi32.dll' Alias 'GetUserNameA' _
(ByVal lpBuffer As String, nSize As Long) As Long

Sub Get_User_Name()

Dim lpBuff As String * 25
Dim ret As Long
ret = GetUserName(lpBuff, 25)
username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

End Sub

dans this_workbook

Code: 
Private Sub Workbook_Open()

Get_User_Name

If username='X' then
Columns('Z:AX').EntireColumn.Hidden = True
elseif username='Y'
Columns('A:Y').EntireColumn.Hidden = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Columns('A:IV').EntireColumn.Hidden = False
End Sub

Bon courage

Message édité par: Pascal76, à: 07/06/2005 13:47
 
Vote positif 0 Vote négatif
bonjour


il faut utliser une procédure évènementielle.
l'évènement est 'à l'ouerture du classeur'.

pur cela, tu peux double-cliquer sur l'objet 'ThisWorkbook' de ton classeur excel, que tu trouveras via l'explorateur de projets VBA, puis utiliser une procédure évènementielle du genre suivant

Private Sub workbook_open()
MsgBox Environ('username')
Select Case Environ('username')
Case 'auguste': Set rg = ActiveSheet.[Z:AX]
Case 'y': Set rg = ActiveSheet.[A:Y]
End Select
If Not rg Is Nothing Then rg.EntireColumn.Hidden = True
end sub


Tu peux aussi créer des affichages personnalisés via le menu affichage.
 
Vote positif 0 Vote négatif
Re le fil

Pascal76 STephane, merci pour ces réponses rapides, je vais voir se que cela donne qur un fichier et essayer de le faire approuver par tout le monde ( mais bon il y aura au moins un raleur 🙁 ) mais c pas grave.

J'essai et tiens au courant d'un éventuel problème.

Merci bOcoup messieu 😛
 
Vote positif 0 Vote négatif
Bonjour Pascal, Popof, STéphane, le Forum


WOW STéphane, Tu m'as Scotché (une fois de plus)...

Environ Function !!!

Dire que, comme Pascal, j'utilisais intégralement l'appel l'API Offert par Microsoft dans le 'Sample.xls' depuis des années pour retourner le Log-In du User...

Et toi.......... Paf !!! MsgBox Environ('username')

Merci à Toi STéphane

Bon Aprèm
@+Thierry
 
Vote positif 0 Vote négatif
Monique nous surpasse largement en formules, faut bien se rattraper quelquepart :woohoo:


allez, voilà un pointeur.
<Ce site n'existe plus


bien que je n'ai plus le temps demettre à jour mon site (mes modifs d'octobre sont encore sur mon pc), je suis preneur de macros ou corrections des bouts de code de mes pages.


Ciao
 
Vote positif 0 Vote négatif
re le forum

Bon je viens de d'aller faire un tour sur le lien et g effectivement 2 ou 3 corrections à apporter :

Donc :

1/ la couleur
2/ texte bizarre écrit en anglais
3/ je sais pas je cherche toujours

Bon plus sérieusement merci pour le lien il va faire partie des mes favoris ' help excel ' on ne sait jamais 😉


En se qui concerne les formules apparement il n'y a pas d'erreur mais en passant C quoi une formule ??? :whistle:
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
B
  • Question Question
Microsoft 365 autoriser acces suivant nom de cellule
Réponses
5
Affichages
643
jm.andryszak
J
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
885
Lu76Fer
K
  • Question Question
Microsoft 365 Activation d'onglet en rapport avec l'encodage dans une ligne
Réponses
1
Affichages
605
eCHO
E
  • Résolu(e)
XL 2013 changer la valeur d'une plage en fonction du texte d'une cellule
Réponses
7
Affichages
901
Staple1600
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
T
  • Question Question
Microsoft 365 Comment afficher/masquer les lignes en fonction des utilisateurs
Réponses
11
Affichages
3 K
tahr76
T
J
  • Question Question
Excel -VBA : Envoie plusieurs partie du même tableau dans un corps mail en fonction de certaines conditions
Réponses
0
Affichages
2 K
JBIK
J
Z
  • Question Question
XL 2019 Rapatriement de donnée d'un onglet vers un autre onglet en fonction d'une valeur identique
Réponses
2
Affichages
2 K
Zlataa21
Z
T
  • Résolu(e)
XL 2016 Affichage d'une date automatiquement en fonction du remplissage d'une ligne
Réponses
2
Affichages
1 K
Theo_citron
T
S
  • Résolu(e)
XL 2016 Séparateurs décimales & milliers sur un import csv
2
Réponses
18
Affichages
3 K
sabrina_
S
C
  • Résolu(e)
Microsoft 365 Extraire dans plusieurs colonnes les données d'une autre feuille en sautant des lignes et sans macro
Réponses
4
Affichages
3 K
Caillou_
C
O
  • Question Question
XL 2019 Excel VBA - Condition selon le nom du fichier
Réponses
5
Affichages
2 K
Staple1600
L
  • Question Question
XL 2013 Date et heure automatique et accès multiples
Réponses
2
Affichages
1 K
Ludo58
L
U
  • Question Question
[RÉSOLU] La dernière ligne du mois reste en couleur alors que...
Réponses
6
Affichages
1 K
Paritec
Y
  • Question Question
XL 2016 Choix unique pour le même utilisateur
2
Réponses
20
Affichages
2 K
Staple1600
Z
  • Question Question
Forcer l'ouverture sur un feuille sans workbook_open
Réponses
12
Affichages
5 K
zorglubxp
Z
M
  • Question Question
XL 2013 Erreur d'exécution 9 ou 13 que je n'arrive pas à résoudre.
2
Réponses
20
Affichages
3 K
massol
M
S
  • Question Question
XL 2010 limiter les infos d'une feuille data selon utilisateur
Réponses
3
Affichages
1 K
sofie13
S
G
  • Question Question
Transposer des valeurs de colonne en ligne de colonne côte à côte en supprimant des valeurs
Réponses
1
Affichages
775
JHA
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…