Photo dans userform
#1
Débutant XLPages

Inscription: 10/02/2008

Messages: 3

Posté le : 10-02-2008 15h25
Bonjour à tous,

Voilà j'ai un Userform que j'ai nommé "Essai" avec dedans un combobox nommé "Liste noms", un textbox nommé "Prénoms" et deux cadres photo que j'ai nommé "Photos" et "Drapeaux".

Sur la feuille j'ai une colonne (A) nommée "Noms", une colonne (B) nommée "Prénoms", une colonne (C) nommée "Photos", et une colonne (D) nommée "Drapeaux".

Les photos ainsi que les drapeaux portent le même noms que les personnes, sauf que les drapeaux ont le mot "drapeau" en plus.
(Ex. Nom:Notardi - Photo: Notardi - Drapeau: Drapeaunotardi)

Voila mon problème:
Je souhaiterais afficher dans l'userform la photo de la personne, et son drapeau.

Pour les noms et les prénoms, pas de problème ça marche, mais pour les photos et drapeaux.

En général j'aime bien me débrouiller seul, mais là je coince.

Quelqu'un pourrait m'aider ?

Par avance merci.


P. S. j'ai même pas besoin de faire quoique ce soit comme formule, au fur et à mesure qu'on saisi des noms et prénoms en colonne A et B, ils sont mis ensuite dans l'userform...
... Si possible qu'il en soit de même pour les photos et les drapeaux.
Pièce jointe:
zip Essai.zip   [ Taille: 23.06 Ko - Téléchargements: 653 ]
Hors Ligne
Rapport   Haut 

Re: Photo dans userform
#2
Débutant XLPages

Inscription: 12/08/2007

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
XP
Posté le : 10-02-2008 16h48
bonjour


tu peux tester cette adaptation


Private Const Fichier As String "C:\ImageTemp.gif"
Private Const FichDrapeau As String "C:\ImageTempDrapeau.gif"

Private Sub Liste_noms_Change()
    
Dim Nb As Integer
    Dim Sh 
As Shape
    
    
'Affiche le prénom
    Prénoms = Cells(Me.Liste_noms.ListIndex + 2, 2)
   
    Application.ScreenUpdating = False
    
    '
------------------
    
'Supprime l'image temportaire si elle existe
    
If Dir(Fichier) <> "" Then Kill Fichier
    Set Sh 
Feuil1.Shapes(Me.Liste_noms)
    
Sh.CopyPicture
    
    With Feuil1
.ChartObjects.Add(00_
                        Sh
.WidthSh.Height).Chart
        
.Paste
        
.Export Filename:=Fichierfiltername:="GIF"
    
End With
    
    
'Affiche l'image dans l'UserForm
    Photos.Picture = LoadPicture(Fichier)
    
    Nb = Feuil1.ChartObjects.Count
    '
supprime le graphique
    Feuil1
.ChartObjects(Nb).Delete
    DoEvents
    
    
'------------------
    If Dir(FichDrapeau) <> "" Then Kill FichDrapeau
    Set Sh = Feuil1.Shapes("Drapeau" & Me.Liste_noms)
    Sh.CopyPicture
    
    With Feuil1.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste
        .Export Filename:=FichDrapeau, filtername:="GIF"
    End With
    
    '
Affiche l'image dans l'UserForm
    Drapeaux
.Picture LoadPicture(FichDrapeau)
    
    
Nb Feuil1.ChartObjects.Count
    
'supprime le graphique
    Feuil1.ChartObjects(Nb).Delete
    
    Application.ScreenUpdating = True
    
End Sub


Private Sub UserForm_Terminate()
   '
Supprime l'image temporaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
   If Dir(FichDrapeau) <> "" Then Kill FichDrapeau

End Sub



 ' 
Documente le menu déroulant
Private Sub UserForm_Initialize()
    
Range("A2").Select
  
Do While ActiveCell <> ""
    
Me.Liste_noms.AddItem ActiveCell
    ActiveCell
.Offset(10).Select
  Loop
End Sub


Private Sub Sortie_Click()
End
End Sub




il existe d'autres solutions, notamment en utilisant le module PastePicture de Stephen Bullen



ps
évite les accentuations dans le nom de tes controles car cela peut être une source d'erreur
(Prénoms = Cells(Me.Liste_noms.ListIndex + 2, 2))


bonne soirée
michel
Edité par MichelXld le 10/02/2008 18:18:17
Hors Ligne
Rapport   Haut 

Re: Photo dans userform
#3
Débutant XLPages

Inscription: 10/02/2008

Messages: 3

Posté le : 10-02-2008 20h40
ok Michel,
on m'a déjà proposé une autre solution sur un autre site, mais je vais tout de même essayer ta version.

Je ne sais pas s'il faut que je mette la solution qu'on m'a proposé ailleur,
mais si je peux et je dois, dites le moi parce que je me suis déjà fait gronder ici ou ailleurs.

En tous les cas merci pour ton aide Michel, je vais essayer, et te tiens au courant.

Bye, Hulk.
Hors Ligne
Rapport   Haut 

Re: Photo dans userform
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 11-02-2008 00h24
Bonsoir Hulk, MichelXLD, le Forum,

Citation :

Hulk a écrit:
ok Michel,
on m'a déjà proposé une autre solution sur un autre site, mais je vais tout de même essayer ta version.

Je ne sais pas s'il faut que je mette la solution qu'on m'a proposé ailleur,
mais si je peux et je dois, dites le moi parce que je me suis déjà fait gronder ici ou ailleurs.

En tous les cas merci pour ton aide Michel, je vais essayer, et te tiens au courant.

Bye, Hulk.

Mettre la solution qu'on t'a proposé ailleurs, non ce n'est pas une bonne idée.
Par contre, mettre un lien pointant sur cet "ailleurs" et plus particulièrement sur la solution donnée, alors là oui, c'est tout à fait indiqué !

Sauf erreur, ce n'est pas dans ce fil Excel Downloads - Photo dans Userform, mais ce serait plutôt la solution de notre ami Vériland qui aurait retenu ton attention : Veriti.net - Photo dans Userform...

Merci de revenir confirmer si c'est le cas (et clore ce fil en le préfixant [résolu]) ou infirmer et poursuivre la piste donnée par MichelXLD si tu le souhaites...

Ceci dit, Hulk je me dois de t'informer (tu n'as pas l'air d'être très habitué aux forums de discussions alors on ne va pas t'en vouloir pour cette fois) : faire du multipostes un peu partout comme tu l'as fait, ce n'est pas très bien vu par les intervenants en général... Pour preuve, en me basant uniquement sur le présent sujet et les 2 liens que j'indique plus haut, 5 personnes se sont visiblement penchés sur ton problème et parmi eux, 3 n'ont pas encore connaissance que tu détiens une solution (en effet, à cette heure, tu ne l'as toujours pas précisé sur XLD et certains d'entre eux cherchent peut-être encore...). Tu comprendras aisément que ceux qui planchent peut-être encore sur ton sujet ne vont pas sauter de joie quand ils vont apprendre que tu as déjà ta solution depuis cet après-midi...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Photo dans userform
#5
Débutant XLPages

Inscription: 10/02/2008

Messages: 3

Posté le : 11-02-2008 19h34
Bonsoir à tous,

Je tenais avant tout à m'excuser auprès de tous ceux à qui ça a pu agacer mes différents poste, je pensais que plus j'étalais mon problème, plus de réponse j'aurais, bref encore pardon.

Je tenais donc à finaliser ce post, étant donné qu'on a réussi à trouver une solution qui me convient.

Je voulais aussi dire à Michel que j'ai regardé ce que tu m'avais proposé, et je n'ai pas vraiment réussi à décrypter tout ça.

J'ai opté pour la méthode que j'ai joint... ... désolé Michel

Voilà en espérant m'être fait pardonner, (il y a intérêt sinon je deviens tout vert ) je souhaite à tout le monde une bonne soirée et à bientôt sur ce super site.

En tous les cas, merci à tous ceux qui ont tenté et se sont creusés les neuronnes pour moi, merci encore.

Bye, Hulk.
Pièce jointe:
zip Test.zip   [ Taille: 29.63 Ko - Téléchargements: 869 ]
Hors Ligne
Rapport   Haut 

Re: Photo dans userform
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 12-02-2008 02h17
Bonsoir Hulk, MichelXLD, le Forum,

Merci de ton retour d'info Hulk et de ta compréhension.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes