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

melltel · 19 Mai 2021

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 · 19 Mai 2021

Bonjour,

Comme ceci ?

VB:

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 · 19 Mai 2021

danielco à dit:

Bonjour,

Comme ceci ?

VB:

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 · 19 Mai 2021

c

danielco à dit:

Bonjour,

Comme ceci ?

VB:

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 · 19 Mai 2021

melltel à dit:
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 · 20 Mai 2021

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

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

melltel

XLDnaute Occasionnel

Pièces jointes

danielco

XLDnaute Accro

melltel

XLDnaute Occasionnel

melltel

XLDnaute Occasionnel

danielco

XLDnaute Accro

danielco

XLDnaute Accro

Discussions similaires