Discussion :

[Nospam54]

Bonjour à toutes, tous,

J'ai un petit souci d'exécution de macro VBA sous Excel 2016. Selon l'utilisateur, mon UserForm doit s'ouvrir avec telle ou telle image en toile de fond. Cette image est récupérée via un test de l'User sur un tableau contenu sur une des feuilles. Jusque là pas de souci, je récupère bien le nom de l'utilisateur et le nom de l'image qui lui est associé.
Ensuite je souhaite utiliser la variable contenant le nom de l'image pour l'appliquer à mon UserForm avant qu'il ne s'ouvre. Et là j'ai le message d'erreur suivant : "Erreur de compilation - Membre de méthode ou de donnée introuvable".

Quelqu'un peut-il m'indiquer là où je me trompe (très certainement) et, plus généralement, est-il possible d'utiliser une variable pour ce type de choix dans un Userform ?

Merci d'avance !

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub SelImage()
'
Dim c As Range
Dim User As String
Dim SelImage As String
'
User = Application.UserName
'
UserForm_Initialize
'
Set c = Worksheets("Listes").Range("Tab_Users").Find(User, LookIn:=xlValues, lookat:=xlPart)
'
If Not c Is Nothing Then
    SelImage = c.Offset(0, 1)
    Set c = Nothing
    UserForm1.SelImage.Visible = True
    UserForm1.Show 0
'
End If
'
End Sub

[unparia]

Bonjour
SelImage n'est pas un membre d'un objet Userform.
Que contient l'objet range c.Offset(0, 1) ? (mets i_ci un copié/collé de son contenu)