afichage de l'image choisie dans label [Résolu]

[timtof2011]

bonsoir,

voici mon soucis et encore une fois j'ai pas mal essayé beaucoup, grace à mercatog notement...

je vous joins mon code et j'espère que vous arriverai à resoudre mon problème mais moi j'y arrive pas et je tourne en rond...

j'aimerai qu'à chaque click sur la touche suivant m'affiche sa par exemple "c:\image1.jpg" 2eme click "c:\image2.jpg" etc...

ça fonctionne si le place ceci

Code :

1
2
3
Private Sub Label22_Click()
    Label22.Caption = Tb(Indx)
End Sub

mais je dois clicker sur le label pour afficher cette valeur mais j'aimerai qu'il s'affiche tout seul...

merci pour votre aide.

Tim

Code :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Explicit
Dim Tb() As String
Dim Indx As Integer
 
Private Sub Label22_Click()
    Label22.Caption = Tb(Indx)
End Sub
 
Private Sub Quittez_Click()
    Unload Me
End Sub
 
Private Sub Precedent_Click()
'--- Selection à chaque click de l'images du fond de monuserform à partir de c:\
    If UBound(Tb) >= 1 Then
    Indx = IIf(Indx = 1, UBound(Tb), Indx - 1)
    MENU.Picture = Tb(Indx)
End If
End Sub
 
Private Sub Suivant_Click()
'--- Selection à chaque click de l'images du fond de monuserform à partir de c:\
    If UBound(Tb) >= 1 Then
    Indx = IIf(Indx = UBound(Tb), 1, Indx + 1)
    MENU.Picture = LoadPicture(Tb(Indx))
 
End If
End Sub
 
Private Sub UserForm_Initialize()
Dim Chemin As String, FichImg As String
 
Dim i As Integer
 
'--- Affichage de la date
Label15.Caption = (Date)
 
'--- Selection de l'images du fond de mon userform Chemin = "C:\"
FichImg = Dir(Chemin & "*.jpg")
Do While FichImg <> ""
    i = i + 1
    ReDim Preserve Tb(1 To i)
    Tb(i) = Chemin & FichImg
    FichImg = Dir()
Loop
If UBound(Tb) >= 1 Then
 
    MENU.Picture = LoadPicture(Tb(1))
    Indx = 1
End If
End Sub

[mercatog]

De la même façon (regarde le commentaire dans la sub Chargement), à adapter

Code :

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
37
38
39
40
41
42
43
44
45
46
Option Explicit
Dim Tb() As String
Dim Indx As Integer
Private Sub Chargement()
 
'Image de fond de l'userform
Me.Picture = LoadPicture(Tb(Indx))
'Image dans control Image: Image1
Me.Image1.Picture = LoadPicture(Tb(Indx))
'Chemin de l'image dans le Label: Label1
Me.Label1.Caption = Tb(Indx)
End Sub
 
Private Sub UserForm_Initialize()
Dim Chemin As String, FichImg As String
Dim i As Integer
 
Chemin = "C:\Users\user\Pictures\"
FichImg = Dir(Chemin & "*.jpg")
Do While FichImg <> ""
    i = i + 1
    ReDim Preserve Tb(1 To i)
    Tb(i) = Chemin & FichImg
    FichImg = Dir()
Loop
If UBound(Tb) >= 1 Then
    Indx = 1
    Chargement
End If
End Sub
 
Private Sub CommandButton1_Click()
 
If UBound(Tb) >= 1 Then
    Indx = IIf(Indx = UBound(Tb), 1, Indx + 1)
    Chargement
End If
End Sub
 
Private Sub CommandButton2_Click()
 
If UBound(Tb) >= 1 Then
    Indx = IIf(Indx = 1, UBound(Tb), Indx - 1)
    Chargement
End If
End Sub

[timtof2011]

bonsoir mercatog...
Vous pouvez m'expliquer brièvement pourquoi vous placez Me.Picture, Me.Image1, Me.Label1 etc...car si je fais pareil ça ne fonctionne pas pour moi...alors que si je retire Me. ça fonctionne... je ne dois pas faire qqchose de correct.

Merci

[mercatog]

le Me indique l'userform dans lequel les contrôles sont placés.
Tout le code que je t'avais donnée est mis dans le module de ton userform.

F1 sur Me

Me

Voir aussi
Le mot clé Me se comporte comme une variable déclarée de façon implicite. Il est automatiquement disponible pour toutes les procédures d'un module de classe. Lorsqu'une classe peut comporter plusieurs instances, le mot clé Me offre la possibilité de faire référence à l'instance de la classe dans laquelle le code est exécuté. Il s'avère particulièrement utile pour passer les informations concernant l'instance d'une classe en cours d'exécution à une procédure d'un autre module. Par exemple, supposez que la procédure suivante se présente dans un module :
Sub ChangeFormColor(FormName As Form) FormName.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) End Sub Vous pouvez appeler cette procédure et passer l'instance en cours de la classe Form comme un argument à l'aide de l'instruction suivante :
ChangeFormColor Me

[timtof2011]

merci bcp pour tes infos...j'ai tout compris...
je vais replacer ton code et l'adapter à mon programme...c'est pas gagné...

Merci à toi mercatog.

Tim.

bonsoir à tout le monde,

@mercatog, si tu es présent sur le forum...
j'ai un problème qui n'existe pas sur mon pc version excel2007
chez mon amie là ça me donne une erreur avec le même fichier bien sur...


ici chez mon amie au lancement de mon userform excel me renvoi une erreur "Erreur d'execution '9' l'indice n'appartientpas à la selection"

en cherchant un peu, ça me renvois au code de boucle for et index...

si je réessaye mon fichier excel à la maison ça tourne et ici ça ne fonctionne pas...

dois je activer qqchose ou bien desactiver qqchose ?
au niveau des securité macro tout est desactivé...

merci pour votre aide.

Tim

[mercatog]

Bonsoir
Il fallait adapter le chemin où sont stockées les photos

Code :

Chemin = "C:\Users\user\Pictures\"

EDIT: Pour laisser à l'utilisateur le choix de sélectionner le dossier des images et pour pallier au problème rencontré au cas où le dossier ne comporte aucune image, ci-joint code modifié

Code :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Explicit
Dim Tb() As String
Dim Indx As Integer
Dim Cpt As Integer
Private Sub Chargement()
 
'Image de fond de l'userform
Me.Picture = LoadPicture(Tb(Indx))
'Image dans control Image: Image1
Me.Image1.Picture = LoadPicture(Tb(Indx))
'Chemin de l'image dans le Label: Label1
Me.Label1.Caption = Tb(Indx)
End Sub
 
Private Sub UserForm_Initialize()
Dim Chemin As Variant
Dim FichImg As String
 
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then
        Chemin = .SelectedItems(1) & "\"
        FichImg = Dir(Chemin & "*.jpg")
        Do While FichImg <> ""
            Cpt = Cpt + 1
            ReDim Preserve Tb(1 To Cpt)
            Tb(Cpt) = Chemin & FichImg
            FichImg = Dir()
        Loop
        If Cpt >= 1 Then
            Indx = 1
            Chargement
        End If
    End If
End With
End Sub
 
Private Sub CommandButton1_Click()
 
If Cpt >= 1 Then
    Indx = IIf(Indx = UBound(Tb), 1, Indx + 1)
    Chargement
End If
End Sub
 
Private Sub CommandButton2_Click()
 
If Cpt >= 1 Then
    Indx = IIf(Indx = 1, UBound(Tb), Indx - 1)
    Chargement
End If
End Sub

[timtof2011]

Merci bcp à toi mercatog...
Bien vu mon chemin n'était pas complet...!!!

Pour ta nouvelle proposition c'est bien gentil mais je préfère ne pas laisser le choix de ce promener sur le disque.

Vraiment fort sympa de tes services.

Bonne soirée. Tim

[mercatog]

Pour éviter le bug au cas où aucune image n'est présente dans le dossier

Code :

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
37
38
39
40
41
42
43
44
45
46
47
Option Explicit
Dim Tb() As String
Dim Indx As Integer
Dim Cpt As Integer
Private Sub Chargement()
 
'Image de fond de l'userform
Me.Picture = LoadPicture(Tb(Indx))
'Image dans control Image: Image1
Me.Image1.Picture = LoadPicture(Tb(Indx))
'Chemin de l'image dans le Label: Label1
Me.Label1.Caption = Tb(Indx)
End Sub
 
Private Sub UserForm_Initialize()
Dim Chemin As Variant
Dim FichImg As String
 
Chemin = "C:\Users\user\Pictures\"                         'A Adapter
FichImg = Dir(Chemin & "*.jpg")
Do While FichImg <> ""
    Cpt = Cpt + 1
    ReDim Preserve Tb(1 To Cpt)
    Tb(Cpt) = Chemin & FichImg
    FichImg = Dir()
Loop
If Cpt >= 1 Then
    Indx = 1
    Chargement
End If
End Sub
 
Private Sub CommandButton1_Click()
 
If Cpt >= 1 Then
    Indx = IIf(Indx = UBound(Tb), 1, Indx + 1)
    Chargement
End If
End Sub
 
Private Sub CommandButton2_Click()
 
If Cpt >= 1 Then
    Indx = IIf(Indx = 1, UBound(Tb), Indx - 1)
    Chargement
End If
End Sub

[timtof2011]

bonsoir à tous...

@Philippe JOCHMANS, désolé pour l'oubli des balises...je vais tacher d'y pensé.

@mercatog, encore bien merci pour ton code comme d'hab il fonctionne parfaitement et bien pensé pour cette solution lorsqu'il n'y a pas d'images dans le chemein spécifié...

Plus j'avance et plus les idées me viennent à l'esprit...et depuis hier soir je cherche à mettre en memoire le choix d'une image choisie dans la selection de l'userform1 à un moment précis..par exemple l'image3.jpg est choisie comment je peux faire pour que ce choix se repéte sur mon mon userform2...

Code :

1
2
3
4
5
6
7
 
'--- UserForm2
 
Private Sub Chargement()
    'Image de fond choisie de l'userform1
     UserForm1.Picture = LoadPicture(Tb(Indx))
End Sub

et donc je pensais qu'en faisant ainsi cette image ce répéterai dans les autres userform lorsque je les afficherai... mais non !!!

merci à toi ou tout autres conseils.

[mercatog]

Bonsoir
Dans un module standard

Code :

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Public Tb() As String
Public Indx As Integer
Public Cpt As Integer
 
Public Sub Chargement(Frm As UserForm)
 
'Image de fond de l'userform
Frm.Picture = LoadPicture(Tb(Indx))
End Sub

Dans module de userform1

Code :

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
Option Explicit
 
Private Sub UserForm_Initialize()
Dim Chemin As Variant
Dim FichImg As String
 
Chemin = "C:\Users\user\Pictures\"                         'A Adapter
FichImg = Dir(Chemin & "*.jpg")
Do While FichImg <> ""
    Cpt = Cpt + 1
    ReDim Preserve Tb(1 To Cpt)
    Tb(Cpt) = Chemin & FichImg
    FichImg = Dir()
Loop
If Cpt >= 1 Then
    Indx = 1
    Chargement Me
End If
End Sub
 
Private Sub CommandButton1_Click()
 
If Cpt >= 1 Then
    Indx = IIf(Indx = UBound(Tb), 1, Indx + 1)
    Chargement Me
End If
End Sub
 
Private Sub CommandButton2_Click()
 
If Cpt >= 1 Then
    Indx = IIf(Indx = 1, UBound(Tb), Indx - 1)
    Chargement Me
End If
End Sub

Dans module de Userform2

Code :

1
2
3
4
5
6
Option Explicit
 
Private Sub UserForm_Initialize()
 
If Cpt >= 1 Then Chargement Me
End Sub

[timtof2011]

merci mercatog, mais lorsque je reviens de mon userform2 et que je repasse dans mon userform1il revient à la première image1 de ma liste et il ne garde pas définitivement mon choix...

suis chiant...je m'en rends compte désolé

ne rois tu pas qu'il serait bon d'écrire dans une cellule par mon userform1 une valeur image(x) et que lorsque je redémarre mon fichier qu'il test si la dernière valeur choisie et ainsi me remettre la bonne image...

[mercatog]

Tu dois comprendre ce que tu fais (ou ce que tu copies),
Remplace donc la ligne 16 du code de userform1 comme ceci

Code :

    If Indx = 0 Then Indx = 1

EDIT

ne rois tu pas qu'il serait bon d'écrire dans une cellule par mon userform1 une valeur image(x) et que lorsque je redémarre mon fichier qu'il test si la dernière valeur choisie et ainsi me remettre la bonne image...

ça dépends de ce que tu veux faire.

[timtof2011]

effectivement tu as raison,
alors voilà,

je démarre mon fichier sur l'userform1 la je choisi une image de fond par mes selections avant ou retour une fois que cette image est déterminée...j'aimerai quelle soit à chaque fois re selectionnée au démarrage de mon fichier.

si par contre lors du démarrage je re selectionne une autre image et bien ça devient cette nouvelle image qui reste en vigueur...

Pas comppliqué le gars...

[mercatog]

Et tu es sûr que le dossier des images ne connaitrait aucun changement tel que ajout ou suppression d'images?

[timtof2011]

non j'ai placé 30 images dedant comme ceci :

image1.jpg
image2.jpg

donc au pire je pourrai remplacer une image par le nom de l'ancienne image...

[mercatog]

On va donc écrire l'index de l'image choisie en A1 de Feuil3
Module de Userform1

Code :

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 UserForm_Initialize()
Dim Chemin As Variant
Dim FichImg As String
 
Chemin = "C:\Users\user\Pictures\"                         'A Adapter
FichImg = Dir(Chemin & "*.jpg")
Do While FichImg <> ""
    Cpt = Cpt + 1
    ReDim Preserve Tb(1 To Cpt)
    Tb(Cpt) = Chemin & FichImg
    FichImg = Dir()
Loop
Indx = Val(Worksheets("Feuil3").Range("A1"))
If Cpt >= 1 Then
    If Indx = 0 Then Indx = 1
    Chargement Me
End If
End Sub
 
Private Sub CommandButton1_Click()
 
If Cpt >= 1 Then
    Indx = IIf(Indx = Cpt, 1, Indx + 1)
    Worksheets("Feuil3").Range("A1") = Indx
    Chargement Me
End If
End Sub
 
Private Sub CommandButton2_Click()
 
If Cpt >= 1 Then
    Indx = IIf(Indx = 1, Cpt, Indx - 1)
    Worksheets("Feuil3").Range("A1") = Indx
    Chargement Me
End If
End Sub

[timtof2011]

Mercatog,

j'ai une erreur de compilation à la ligne 16 (nombre d'arguments incorrect ou affectation de propriété incorrecte....

[mercatog]

Cf réponse #10
Change le code de userform1 par celui de la réponse #16.

[timtof2011]

si je retire le Me de la ligne 16,25 et 34 je n'ai plus d'erreur mais lorsque je démarre mon fichier il reste sur la même image mais alors je n'ai plus le loisir de changer lorsque j'en ai envie.

En plus sur la feuille3 en A1 il n'écrit rien...

[mercatog]

C'est désolant de remarquer que tu ne te donne pas le temps pour comprendre le code qu'on teste pour toi
Tu as auras besoins d'un module standard (cf. code réponse #10)
Une feuille Feuil3
Le code de l'userform1 (cf réponse #16)
Le code d'userform2 (cf réponse #10)

PS: Je passe la main, je ne répondrai plus à ce sujet car tu as tout.