XL 2016 Afficher les images en fonction des valeurs definies du top, left, width et height

[melltel]

bonjour, svp je reviens pour solliciter votre aide.
enfet je ne parviens pas a positionner mes deux images au même endroit sur le UserForm. Ceci avec les valeurs définies dans un petit tableau sur la feuille excel. ( ex: on consulte le tableau , ses valeurs . et en fonction du top, left... les images se positionnent directement )

merci pour votre aide
voici mon fichier

 

[danielco]

Bonjour,

Comme ceci ?

Private Sub UserForm_Click()

Dim Im As Integer
Im = Range("C9")
 If Im = 1 Then
    Image1.Visible = True
    Image2.Visible = False
 Else
    If Im = 2 Then
       Image1.Visible = False
       Image2.Visible = True
    End If
 
 End If
 Me.Image1.Left = [Feuil1!C6]
 Me.Image1.Top = [Feuil1!C5]
 Me.Image1.Height = [Feuil1!C7]
 Me.Image1.Width = [Feuil1!C8]
 Me.Image2.Left = [Feuil1!C6]
 Me.Image2.Top = [Feuil1!C5]
 Me.Image2.Height = [Feuil1!C7]
 Me.Image2.Width = [Feuil1!C8]
End Sub

Daniel

 

[melltel]

Bonjour,

Comme ceci ?

Private Sub UserForm_Click()

Dim Im As Integer
Im = Range("C9")
 If Im = 1 Then
    Image1.Visible = True
    Image2.Visible = False
 Else
    If Im = 2 Then
       Image1.Visible = False
       Image2.Visible = True
    End If
 
 End If
 Me.Image1.Left = [Feuil1!C6]
 Me.Image1.Top = [Feuil1!C5]
 Me.Image1.Height = [Feuil1!C7]
 Me.Image1.Width = [Feuil1!C8]
 Me.Image2.Left = [Feuil1!C6]
 Me.Image2.Top = [Feuil1!C5]
 Me.Image2.Height = [Feuil1!C7]
 Me.Image2.Width = [Feuil1!C8]
End Sub

Daniel

bonjour Daniel.
Merci. je ne sais pas si chez toi ca prend, mais chez moi ca ne marche pas.

 

[melltel]

c

Bonjour,

Comme ceci ?

Private Sub UserForm_Click()

Dim Im As Integer
Im = Range("C9")
 If Im = 1 Then
    Image1.Visible = True
    Image2.Visible = False
 Else
    If Im = 2 Then
       Image1.Visible = False
       Image2.Visible = True
    End If
 
 End If
 Me.Image1.Left = [Feuil1!C6]
 Me.Image1.Top = [Feuil1!C5]
 Me.Image1.Height = [Feuil1!C7]
 Me.Image1.Width = [Feuil1!C8]
 Me.Image2.Left = [Feuil1!C6]
 Me.Image2.Top = [Feuil1!C5]
 Me.Image2.Height = [Feuil1!C7]
 Me.Image2.Width = [Feuil1!C8]
End Sub

Daniel

c'est comme un appel de manière automatik, les valeurs du tableau. merci

 

[danielco]

c

c'est comme un appel de manière automatik, les valeurs du tableau. merci

Le code d de la macro s'exécute quand tu fais un clic sur le userform.

Daniel

 

[danielco]

Bonjour,

on consulte le tableau , ses valeurs . et en fonction du top, left... les images se positionnent directement

Si tu veux dire qu'en changeant les valeurs dans le tableau, les images s'alignent automatiquement, il faut faire autrement. Est-ce que tu souhaites ?

Daniel