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

Dudu2 à dit:

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:

VB:

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é:

Code:

Sub Bouton1_Cliquer()
    UserForm1.Show vbModeless
End Sub

Cliquez pour agrandir...