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

[melltel]

bonjour, svp e reviens pr solliciter votre aide.
enfet je ne parviens pas a positionner mes deux images au même endroit exactement. avec les valeurs définies dans un petit tableau sur la feuille excel.

merci pour votre aide

 

[Dudu2]

Bonjour,
Comprends pas trop ce que tu veux faire.
En "C9" y a rien. le 1 ou 2 est en "B16".
En supposant que les positions indiquées sont applicables au UserForm:

Private Sub UserForm_Initialize()
    Me.Image1.Top = ActiveSheet.Range("C5")
    Me.Image1.Left = ActiveSheet.Range("C6")
    Me.Image1.Height = ActiveSheet.Range("C7")
    Me.Image1.Width = ActiveSheet.Range("C8")
    '
    Me.Image2.Top = Me.Image1.Top
    Me.Image2.Left = Me.Image1.Left
    Me.Image2.Height = Me.Image1.Height
    Me.Image2.Width = Me.Image1.Width
 
    Call UserForm_Click
End Sub

Private Sub UserForm_Click()
    Dim Im As Integer
 
    Im = Range("B16")
 
    Select Case Im
        Case 1
            Image1.Visible = True
            Image2.Visible = False
     
        Case 2
            Image1.Visible = False
            Image2.Visible = True
         
        Case Else
            MsgBox "Im non défini"
    End Select
End Sub

Et si tu veux pouvoir changer le 1 en 2 (en validant l'entrée après modif de la cellule "B16") quand le UserForm est affiché:

Sub Bouton1_Cliquer()
    UserForm1.Show vbModeless
End Sub

 

[melltel]

Bonjour,
Comprends pas trop ce que tu veux faire.
En "C9" y a rien. le 1 ou 2 est en "B16".
En supposant que les positions indiquées sont applicables au UserForm:

Private Sub UserForm_Initialize()
    Me.Image1.Top = ActiveSheet.Range("C5")
    Me.Image1.Left = ActiveSheet.Range("C6")
    Me.Image1.Height = ActiveSheet.Range("C7")
    Me.Image1.Width = ActiveSheet.Range("C8")
    '
    Me.Image2.Top = Me.Image1.Top
    Me.Image2.Left = Me.Image1.Left
    Me.Image2.Height = Me.Image1.Height
    Me.Image2.Width = Me.Image1.Width
 
    Call UserForm_Click
End Sub

Private Sub UserForm_Click()
    Dim Im As Integer
 
    Im = Range("B16")
 
    Select Case Im
        Case 1
            Image1.Visible = True
            Image2.Visible = False
    
        Case 2
            Image1.Visible = False
            Image2.Visible = True
        
        Case Else
            MsgBox "Im non défini"
    End Select
End Sub

Et si tu veux pouvoir changer le 1 en 2 (en validant l'entrée après modif de la cellule "B16") quand le UserForm est affiché:

Sub Bouton1_Cliquer()
    UserForm1.Show vbModeless
End Sub

merciiii dudu2