Liste déroulantes multiples

bonsoir , les photos doivent apparaître dans l'userform et les photos sont dans "images et sans conditions

est ce que le code est valide car je reçois un message " le fichier image n'existe pas "

re

est ce que le code est valide car je reçois un message " le fichier image n'existe pas "

Dans votre feuille Labo analyse en C1 vous avez le nom "Doumer" et donc votre fichier doit être nommé "Doumer.jpeg"

NB : essayez aussi avec "Doumer.jpg"

Lorsque vous chargez l'USF, je vois qu'il y a un espace avant le D de Doumer dans la combobox1.

Essayez déjà en réencodant le nom "Doumer"en C1 puis réouvrez l'USF

Cordialement

Bon après midi et bon déjeuner , j'ai tout essayé mais " le fichier image n'existe pas '

le code " MonFichier = ("C:\Users\maison\Images\") & nom & (".jpeg")" est il correct ?

à votre avis où ça cloche ?

j'ai trouvé ce qui n'allait pas c'était la taille de la photo , une question quand je nomme la photo en arabe elle n’apparaît pas comment faire pour contourner cet handicap merci

Re

Ah oui pour la taille. Dans votre code à la place de Image1.Picture = LoadPicture(MonFichier), vous pouvez peut être mettre ceci

With Image1
            .AutoSize = False
            .PictureSizeMode = fmPictureSizeModeZoom
            .Picture = LoadPicture(MonFichier)
End With

quand je nomme la photo en arabe elle n’apparaît pas

Comme les chiffres arabe sont identiques en Français (si je ne me trompe), pourquoi vous n'utilisez pas le numéro code client attribué dans le fichier pour nommer vos fichier images et utiliser ce code pour "Nomfichier"

Crdlt

bon après midi voici le code changé mais toujours même message

Re

Ok normal.

Dans votre Private Sub CommandButton2_Click() 'Bouton rechercher, déplacez ces deux lignes

code = Textcode.Value
MonFichier = ("C:\Users\maison\Pictures\") & code & (".jpg")

juste en dessous de cette ligne

Textcode.Value = Feuil1.Cells(no_ligne, 1).Value

Crdlt

merci Dan et bonne soirée

au fait pour effacer l'image est ce le bon code ?

Private Sub CommandButton4_Click()
Dim Ctrl As Control
  For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Or _
      TypeOf Ctrl Is MSForms.ComboBox Or _
      TypeOf Ctrl Is MSForms.Image Then
      Ctrl.Value = ""
    End If
  Next Ctrl
End Sub

Bonjour

au fait pour effacer l'image est ce le bon code

Prenez plutot celui-ci :

Private Sub CommandButton4_Click()
Dim Ctrl As Control

For Each Ctrl In Me.Controls
  If TypeOf Ctrl Is MSForms.TextBox Or _
    TypeOf Ctrl Is MSForms.ComboBox Then
    Ctrl.Value = ""
  End If
Next Ctrl
ListBox1.Clear
Image1.Picture = LoadPicture("")
End Sub

merci Dan pour toute l'aide que vous m'avez fournie

et à bientôt

cordialement

Bonsoir Dan , comment ajouter un bouton "suivant "dans l'userform merci