Discussion :

[maxval18]

Bonjour,

J'aimerai modifier mon code qui a était réaliser par Mercatog que je salut au passage. J'ai un USF avec une combobox et j'aimerai afficher sur l'USF le blason de la région en fonction de la combobox.

Ci joint mon fichier avec les explications.

Merci d'avance de votre aide.

Cordialement.

Max

[sdispro]

Salut

Il te faut un dossier ou tu met toute tes images.
Récuprer ce dossier

et dans le combobox change tu met ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Fen, ImageX As StdPicture
 
  ChDir "c:\IMAGES\"
 
  Fen = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif),*.gif;*.jpg;*.tif")
 
  Set ImageX = LoadPicture(Fen)
 
  Set Image1.Picture = ImageX

après c:\images\ tu rajoutes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& combobox1.value & "extansion du format image"

A+

[maxval18]

Bonjour sdispro

Je te remercie d'avoir répondu j'ai fait ceci mes sa ne fonctionne pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub ComboBox1_Change()                   'au changement dans la ComboBox1
Dim R As Range                                   'déclare la variable r (Recherche)
Dim Ld As Integer                                'déclare la variable ld (Ligne de Départ)
Dim Lf As Integer                                'déclare la variable lf (Ligne de Fin)
Dim i As Integer                                 'déclare la variable i (incrément)
 
 
 
Dim Fen, ImageX As StdPicture
 
  ChDir "C:\Users\MaVal\Desktop\Regions\Images\alsace.jpg" & ComboBox1.Value & "jpg"
 
  Fen = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif),*.gif;*.jpg;*.tif")
 
  Set ImageX = LoadPicture(Fen)
 
  Set Image1.Picture = ImageX
Me.ListBox1.Clear                                'vide la ListBox1
With Sheets("Feuil1")                            'prend en compte l'onglet "Feuil1"
    Lf = .Cells(.Rows.Count, 8).End(xlUp).Row    'définit la ligne de fin
    Set R = .Columns(8).Find(Me.ComboBox1.Value, , xlValues, xlWhole)    'définit la recherche
    If Not R Is Nothing Then                     'condition : si il existe au moins une occurrence
        Ld = R.Row + 1                             'définit la ligne de départ
        Set R = Nothing
        For i = Ld To Lf                     'boucle de la ligne de départ à la ligne de fin
            If UCase(.Cells(i, 8)) <> .Cells(i, 8) Then    'si la couleur de la cellule est "jaune clair", sort de la procédure
                Me.ListBox1.AddItem .Cells(i, 8)    'ajoute la valeur de la cellule en colonne H à la ListBox1
            Else
                Exit For
            End If
        Next i                                   'prochaine ligne de la boucle
    Else                                         'sinon
        MsgBox "Région non trouvée !"            'message
    End If                                       'fin de la condition
End With                                         'fin de la prise en compte de l'onglet "Feuil1"
End Sub

J'ai du certainement me planter

Merci d'avance

Bonne journée

Max

[sdispro]

re,

avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Fen, ImageX As StdPicture
 
Private Sub CommandButton1_Click()
 
 
  ChDir "C:\Users\SDISPRO\Desktop\Nouveau dossier\"
 
  Fen = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif),*.gif;*.jpg;*.tif")
 
  Set ImageX = LoadPicture(Fen)
 
  Set Image1.Picture = ImageX
 
End Sub

Remplace mon chemin d'accès par le tien.

Logiquement tu devrait avoir le repertoire selectionner qui s'ouvre.
Si tuc lique sur l'image elle se charge.
Si tu es a cette etape c'est tout bon.
Pour moi cela marche

Re:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Filename = "C:\Users\SDISPRO\Desktop\Nouveau dossier\" & ComboBox1 & ".jpg"
 
Image1.Picture = LoadPicture(Filename)

Oubli pas de mettre les noms de fichier dans la source du combobox.

Je te garanti que cela marche.

Tiens moi au jus.

[maxval18]

Re,

Je ne te suis plus du tous je suis perdu? je n’aie aucun CommandButton1 ou alors il faut que je fasse un autre USF?

@+
Max

[sdispro]

Excuse moi de t'avoir perdu, je suis parti dans tous les sens.

1-Tu crée un Userform simple
2-Tu met un cadre image
3-Tu met un combobox
4-Tu crée un dossier ou tu veux avec le nom des images a charger
5-Tu alimente ta combobox avec le nom de ces images
6-Tu récupère le chemin du dossier et tu remplace "C:\Users\SDISPRO\Desktop\Nouveau dossier\"
7-sa marche