Masquer colonne selon utilisateur

Bonjour à tous,

Développant un petit module excel pour mon travail, j'ai une petite question :)

J'ai 6 utilisateurs différents. Chaque utilisateur se logue avec un mot de passe.

J'ai besoin que chaque utilisateur ait accès à un tableau unique mais selon l'utilisateur certaines colonnes doivent être masquée automatiquement.

Par exemple, le service compta soit avoir au tableau mais pas au colonne J, U KL ...

Est-ce que quelqu'un pourrait m'éclairer svp ?

Par avance, merci beaucoup pour votre réponse qui me sera d'une aide précieuse car je dois rendre mon module la semaine prochaine.

Heidi

Bonjour HeidiL,

Quand les utilisateurs se loguent, c'est avec un développement VBA ?

@+

oui tout a fait.

Re,

Donc il est assez simple de masquer les colonnes nécessaires après validation des identifiants

Il suffit de définir dans colonne les lettres des colonnes à masquer pour chaque utilisateur

@+

Bonjour Bruno et Merci pour votre réponse.

Pouvez-vous m'aider sur le bout de code svp ? Voici celui que j'ai mis en place pour les identifiants :

Private Sub CommandButton_fermer_Click()
Unload Me
End Sub

Private Sub CommandButton_valider_Click()

[_utilisateur] = TextBox_utilisateur

If TextBox_utilisateur = "" Then Exit Sub
If IsError([_motPasse]) Then
Feuil8.Activate
[_utilisateur] = "Invité"
MsgBox "Utilisateur inconnu"
ElseIf TextBox_motpasse <> [_motPasse] Then
Feuil8.Activate
[_utilisateur] = "Invité"
MsgBox "Mot de passe incorrect"

End If

Unload Me

End Sub

Il me manque donc de pouvoir laisser accès à certaine colonne d'une feuille en fonction des utilisateurs. Si vous aviez deux minutes pour m'aider, ça serait super ?

Je vous en remercie par avance

Bonne journée :)

Heidi

Bonjour HeidiL

Ne connaissant pas le fichier complet, voilà comment je vois les choses

Private Sub CommandButton_valider_Click()
  [_utilisateur] = TextBox_utilisateur
  ' Si non utilisateur vide
  If TextBox_utilisateur = "" Then Exit Sub
  ' Si utilisateur non trouvé
  If IsError([_motPasse]) Then
    Feuil8.Activate
    [_utilisateur] = "Invité"
    MsgBox "Utilisateur inconnu"
    GoTo FinValider
  End If
  ' Si mot de passe erroné
  If TextBox_motpasse <> [_motPasse] Then
    Feuil8.Activate
    [_utilisateur] = "Invité"
    MsgBox "Mot de passe incorrect"
    GoTo FinValider
  End If
  ' Tout est OK
  Select Case [_utilisateur]
    Case "NomUtilisateurCompta"
      ' Masquer les colonnes J, U KL
      Range("H:H,K:K,O:P").EntireColumn.Hidden = True
    Case "toto"
      ' Masquer les colonnes B, C, D
      Range("B:D").EntireColumn.Hidden = True

    Case Else
  End Select

FinValider:
  Unload Me
End Sub

On peut également définir dans la feuilles des utilisateurs (plutôt qu'en dur), les colonnes à masquer

@+

Super Merci beaucoup Bruno !

J'essaie tout ça !

Belle journée à vous :)

Heidi