Paramétrer le nom d'un UserForm

**Harry Covair** · 10/10/2013, 11h38

Bonjour le forum,

Dans une application, j’ai créé deux UserForms :

UF_PNG qui contient un contrôle WebBrowser
UF_Pict qui contient un contrôle image

Dans le code ci-dessous, je précise dans la variable myUF le nom du UserForm en fonction du type de la photo traitée.
Un membre du forum pourrait-il m’aider afin d’afficher le bon UserForm et son contenu.

D’avance merci

Harry

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
Sub show_Pict(Row_Target)
myFile = Cells(Row_Target, 1).Value & "\" & Cells(Row_Target, 2).Value
If Right(myFile,3) = "png"  Then
    Dim Hauteur As Long, Largeur As Long, myUF As String
    Hauteur = UF_PNG.WebBrowser1.Height
    Largeur = UF_PNG.WebBrowser1.Width
    UF_PNG.WebBrowser1.Navigate _
     "ABOUT:<HTML><HEAD><body><IMG WIDTH=" & Largeur & " HEIGHT=" & Hauteur & " SRC='" & myFile & "'</IMG></BODY></HTML>"
        myUF = "UF_PNG"
Else:
Set UF_Pict.Image1.Picture = LoadPicture(myFile)
myUF = "UF_Pict"
End If
'affichage du UF
VBA.UserForms(myUF).Show '<======================
End Sub

**Docmarti** · 10/10/2013, 12h36

Bonjour Harry

La syntaxe requise est :

Code :

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

1
2
x = "Userform2"
VBA.UserForms.Add(x).Show

Cordialement

Docmarti.

**Harry Covair** · 10/10/2013, 13h32

Bonjour Docmarti,
Merci pour votre réponse.
J'ai adapté votre solution à mon environnement

Code :

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

VBA.UserForms.Add(myUF).Show

Le bon UF est affiché mais sans les données dans les contrôes.
C'est probablement la conséquence du "Add" qui, selon l'aide, ne fait pas partie des méthodes de la collection "Userforms" mais est accepté et réagit.
Par contre, la méthode "Load" génère une erreur de compilation. Les subtiliés VBA sont parfois difficiles à comprendre.
Je continue de chercher une solution mais toute suggestion est la bienvenue

Bonne journée

Harry

**Docmarti** · 10/10/2013, 21h23

Tu as raison.

Code :

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

VBA.UserForms.Add(myUF).Show

crée une nouvelle copie du Userform et ne montre pas le Userform lui-même.

Essaie plutôt

Code :

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

1
2
3
4
5
6
 
For Each userf In UserForms
  Debug.Print userf.Name
 Next
 
UserForms(Index).Show

Docmarti

**Harry Covair** · 11/10/2013, 07h18

Bonjour Docmarti,

Merci de vous intéresser à mon problème.
L'approche que vous proposez s'applique, je pense, à des UF déjà chargées (Load).
Je crains que mon souci initial - rendre le nom du UF à afficher variable - soit insoluble en VBA.
Je m'en sors par une solution classique de Select Case et un traitement individuel des UF et, partant, autant de .Show
Je vous souhaite une excellente journée

Harry

**Docmarti** · 12/10/2013, 00h42

Ca se fait en créant une collection des Userforms qui doit être mise à jour quand un Userform est fermé.

http://www.mrexcel.com/forum/excel-q...ollection.html

Docmarti.

Paramétrer le nom d'un UserForm

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager