Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

afficher une image(Picture) dans un userform selon la valeur d'un textbox

A2H

XLDnaute Nouveau
Bonjour
J'espères bien que vous êtes bien.
J'ai besoin d'aide SVP, j'ai deux questions.
1. Comment éviter les répétitions suivantes dans mon code (En dessous)?
2. Comment afficher une image ("picture") dans un "userform" selon la valeur d'une "Textbox"?
Merci d'avance pour vos collaborations
RQ.: Jesuis débutante en programmation VBA
Private Sub TabStrip1_Change()
Select Case TabStrip1.Value
Case Is = 0
G11.Visible = True
G12.Visible = False
G13.Visible = False
G14.Visible = False

Titre11.Visible = True
Titre12.Visible = False
Titre13.Visible = False
Titre14.Visible = False
Case Is = 1
G11.Visible = False
G12.Visible = True
G13.Visible = False
G14.Visible = False

Titre11.Visible = False
Titre12.Visible = True
Titre13.Visible = False
Titre14.Visible = False
Case Is = 2
G11.Visible = False
G12.Visible = False
G13.Visible = True
G14.Visible = False

'Titre11.Visible = False
'Titre12.Visible = False
Titre13.Visible = True
Titre14.Visible = False
Case Is = 3
G11.Visible = False
G12.Visible = False
G13.Visible = False
G14.Visible = True

Titre11.Visible = False
Titre12.Visible = False
Titre13.Visible = False
Titre14.Visible = True
End Select
End Sub
 

Lone-wolf

XLDnaute Barbatruc
Re

Au lieu d'une frame, mais un contrôle image, c'est beaucoup mieux. Et ensuite

VB:
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 110 And Y < 110 Then
Image1.PictureSizeMode = fmPictureSizeModeZoom
Else
Image1.PictureSizeMode = fmPictureSizeModeClip
End If
End Sub
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…