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

A2H · 29 Août 2018

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 · 29 Août 2018

Bonjour A2H

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

A2H · 29 Août 2018

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

Lone-wolf · 29 Août 2018

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 · 29 Août 2018

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

Lone-wolf · 29 Août 2018

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 · 29 Août 2018

Lone-wolf à dit:
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 · 29 Août 2018

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

Lone-wolf · 29 Août 2018

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

phlaurent55 · 29 Août 2018

Bonjour à tous,

un fichier retrouvé dans mes archives

à+
Philippe

Lone-wolf · 29 Août 2018

Bonjour Philippe

@phlaurent55

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

phlaurent55 · 29 Août 2018

Re,, Bonjour Lone-wolf

@Lone-wolf ,

Lone-wolf à dit:
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 · 29 Août 2018

Re

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

A2H · 31 Août 2018

Merci pour vous tous
C'est bien fait

phlaurent55 · 31 Août 2018

Re,

Juste pour le fun

à+
Philippe

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

A2H

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

A2H

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

A2H

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

A2H

XLDnaute Nouveau

A2H

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

A2H

XLDnaute Nouveau

phlaurent55

Nous a quittés en 2020

Pièces jointes

Discussions similaires