Discussion :

[ciambe]

Bonjour,
Je souhaiterais cacher un commandButton à l'ouverture d'un classeur en fonction de l'utilisateur Windows.
Lorsqu'un utilisateur "Uwin02"par exemple ouvre le classeur le bouton doit être non visible si c'est un autre utilisateur le bouton est visible.
Ci joint le code placé dans un module
Merci pour votre aide
"Erreur d'exécution'91': Variable objet ou variable de bloc non définie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub PasdeCB()
 
Dim CdB1 As Object
'Recuperer le nom de l'utilisateur du PC
Range("C1") = Application.UserName
 
If Range("C1") = "UWIN02" Then  'Si Cellule = "Texte" alors
            CdB1.Visible = False   'Le Bouton est Non Visible
        Else    'Si non
            CdB1.Visible = True    'Le Bouton est Visible
    End If  'Fin de la Condition
 
End Sub

[Philippe Tulliez]

Bonjour,
La variable CdB1 est déclarée mais n'est assignée à aucun objet, il est donc normal d'avoir une erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim CdB1 As OLEObject
Set CdB1 = ThisWorkbook.Worksheets("Feuil3").OLEObjects("CommandButton1")

[EDIT]
La structure décisionnelle pourrait se résumer à une seule ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 CdB1.Visible = Application.UserName <> "UWIN02"

[ciambe]

Bonjour Philippe,
Merci pour votre réponse cela fonctionne parfaitement.
La structure décisionnelle sur une ligne simplifie mon code.