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

[A2H]

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]

Bonjour A2H

Pour TabTrip je ne peux pas t'aider malheureusement. Pour les images j'ai mis un combobox plus simple d'utilisation.

 

[A2H]

Merci
C'est pas ce que je cherche, je veux zoomer une image selon la valeur du textebox

 

[Lone-wolf]

Re

@A2H :

Comment afficher une image ("picture") dans un "userform" selon la valeur d'une "Textbox"?

Et ceci c'est le Père Noël qui l'a écrit par hazard?!

 

[A2H]

HHHH
Nn Lone, j'ai changé l'idée tout simplement
Merci pour votre compréhension chère collègue

 

[Lone-wolf]

Re

@A2H:

je veux zoomer une image

Et elle est où cette image, sur la feuille?? Et si tu as changé d'idée, réédite le message.

 

[A2H]

Re

@A2H:

Et elle est où cette image, sur la feuille?? Et si tu as changé d'idée, réédite le message.

Nn l'image dans un frame sur userform

 

[A2H]

Lone
Cad au survol de la souris je veux zoomer l'image

 

[Lone-wolf]

Re

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

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

 

[phlaurent55]

Bonjour à tous,

un fichier retrouvé dans mes archives

à+
Philippe

 

[Lone-wolf]

Bonjour Philippe

@phlaurent55

Ce n'est pas tout à fait ça, A2H demande à zoomer sur l'image au survol de la souris.

 

[phlaurent55]

Re,, Bonjour Lone-wolf

@Lone-wolf ,

Bonjour Philippe

@phlaurent55

Ce n'est pas tout à fait ça, A2H demande à zoomer sur l'image au survol de la souris.

J'ai bien compris mais ma souris ne saurait pas survoler une image sur le fichier de A2H , (fichier faisant cruellement défaut)

à+
Philippe

 

[Lone-wolf]

Re

@phlaurent55 : oui mais, avec le code que j'ai mis tu aurais pu le faire.

 

[A2H]

Merci pour vous tous
C'est bien fait

 

[phlaurent55]

Re,

Juste pour le fun

à+
Philippe