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

Afficher un Userform en cliquant sur une image

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

maval

XLDnaute Barbatruc
Bonjour

J'ai sur mon premier Userform des photos, j'aimerai que lorsque je click sur une des photos j'ai le deuxième userform qui s'ouvre avec toutes les valeurs dans les textbox qui se trouve dans l'onglet "données".
Mes photos sont Charger avec se code:

Code: 
Dim Nom(300) As String
For i = 0 To ListImage.ListCount - 1
    Nom(i) = ListImage.List(i)
Next

Dim image As Control
Dim nb As Integer
nb = 0
répertoire = "J:\Photos\"

 For Each image In UserForm1.Controls
      If TypeName(image) Like "Image" Then
          image.Picture = LoadPicture(répertoire & Nom(nb) & ".jpg") ', 250, 178)
         image.PictureSizeMode = 3 '  0=partiel, 1 = étirer, 3= proportionnel
         On Error Resume Next
         nb = nb + 1
      End If
  Next
Je vous remercie d'avance
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Afficher un Userform en cliquant sur une image

Bonjour maval, mutzik, le forum,

Voyez le fichier joint avec un module de classe.

Dans UserForm1 un clic sur une image ou sur son Label charge UserForm2.

Nota :

1. Les noms des photos à charger doivent se trouver en colonne A de la feuille "Données".

A l'ouverture d'UserForm1 ces noms sont donnés à la propriété .Caption des Labels.

2. J'ai renommé les Labels avec le même numéro que l'image associée, c'est plus logique.

3. J'ai chargé une image "en dur" pour pouvoir tester UserForm2.

Bonne journée.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher un Userform en cliquant sur une image

Re,

Cela dit dans UserForm1 les Labels liés aux Images ne servent à rien, ils ne font qu'encombrer le code.

Il est bien plus simple de mettre les noms des photos dans la propriété ControlTipText des Images.

Nouveau fichier joint.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher un Userform en cliquant sur une image

Re maval,

On serait curieux de savoir combien de temps il vous faut pour charger 250 photos, à chaque ouverture.

Il paraît bien plus logique de faire le choix à l'aide d'une ComboBox, avec donc un seul UserForm :

Code: 
Private Sub ComboBox1_Change()
Dim i%, j As Byte
On Error Resume Next
i = Application.Match(ComboBox1, Feuil2.[A:A], 0)
For j = 2 To 13
  Me("TextBox" & j) = "" 'RAZ
  Me("TextBox" & j) = Feuil2.Cells(i, j).Text
Next
Image1.Picture = LoadPicture("") 'RAZ
'Image1.Picture = LoadPicture("J:\Photos\" & ComboBox1 & ".jpg") 'fichier réel
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ComboBox1 & ".jpeg") 'pour tester
End Sub
C'est simplissime non ?

Testez les fichiers joints après les avoir placés dans le même répertoire (le bureau).

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher un Userform en cliquant sur une image

Bonjour Job

Vous m'avez poser une question la réponse est exactement pour 268 photo 7 secondes

Je reste a votre disposition pour toute demande supplémentaires

regarder votre messagerie
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher un Userform en cliquant sur une image

Bonjour maval,

Merci pour votre réponse.

Bon 7 secondes c'est encore acceptable mais c'est limite...

Une autre question : dans UserForm1 comment disposez-vous vos 268 photos ?

Une solution est de les mettre dans un "Frame" avec ScrollBar pour les faire défiler.

A+
 
Vote positif 0 Vote négatif
Re : Afficher un Userform en cliquant sur une image

re

J'avait penser a ceci mais trop compliquer pour mon niveau VBA
Je vous remercie pour tous et vous souhaite une très bonne après midi
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
480
vgendron
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
1 K
Thomi
T
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
677
cathodique
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
255
JJ69
J
L
  • Question Question
Microsoft 365 Insérer une plage Excel en image sous VBA pour envoi mail auto
Réponses
1
Affichages
423
fanch55
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
312
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
422
oguruma
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
508
Jojo973
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
366
NONO14
N
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
898
Messan
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
608
ChTi160
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
552
tactic6
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
782
Liner77
L
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
830
Nico2978
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
620
Oneida
C
  • Résolu(e)
XL 2013 afficher image dans Userform via HyperText
Réponses
5
Affichages
848
Cyril-neo
C
W
  • Question Question
XL 2016 Supprimer une image.JPG puis Intégrer une nouvelle.JPG au-dessus du groupe de cellules A13:A14
Réponses
4
Affichages
579
Webperegrino
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…