Afficher un Userform en cliquant sur une image

[maval]

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:

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

 

[mutzik]

Re : Userform1 vers Userform2

bonjour,

perso, il serait beaucoup plus simple de ne faire qu'un seul usf et remplir les champs que quand on clique sur une image

 

[maval]

Re : Userform1 vers Userform2

Bonjour Bernard

Oui mais avec se que j'ai déjà fait je ne peut plus revenir en arriére

je te remercie

Bonne journée

 

[maval]

Re : Userform1 vers Userform2

Bonjour

Personne peut m'aider??
Bonne journée

 

[job75]

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.

 

[job75]

Re : Afficher un Userform en cliquant sur une image

Re,

J'ai revu la logique du fichier précédent.

A+

 

[job75]

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+

 

[maval]

Re : Afficher un Userform en cliquant sur une image

Bonjour Job

Je vous remercie beaucoup cela est Nickel

Merci et bonne fin d'aptes midi

 

[job75]

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 :

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+

 

[maval]

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

 

[job75]

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+

 

[maval]

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

 

[job75]

Re : Afficher un Userform en cliquant sur une image

Re,

On peut aussi grouper les photos à l'aide d'un Multipage, fichier joint.

A+

 

[maval]

Re : Afficher un Userform en cliquant sur une image

Re,

Je vous remercie Bonne soirée