Clic sur une image

Version imprimable

10/02/2008, 10h59
Apranax

Clic sur une image

Bonjour.

J'ai inséré une image dans une userforme ainsi qu'un combobox.L'ilage change en même temps que la valeur du combobox.
Mais quand je clique sur l'image (rien n'est sensé se passé, c un clic comme ça, au hasard :) ), celle-ci ne se modifie plus, elle est figée, quelle que soit la valeur de combobox.
Pouvez-vous M'aider ? Merci
10/02/2008, 11h05
Invité

Bonjour et bienvenue sur le Forum Office de DVP.

J'ai dut mal à comprendre ce que tu veux faire.

Veux-tu qu'il se passe quelque chose lorsque tu cliques sur l'image ?

Starec
10/02/2008, 11h21
ucfoutu

Citation:

Envoyé par Apranax

Bonjour.

J'ai inséré une image dans une userforme ainsi qu'un combobox.L'ilage change en même temps que la valeur du combobox.
Mais quand je clique sur l'image (rien n'est sensé se passé, c un clic comme ça, au hasard :) ), celle-ci ne se modifie plus, elle est figée, quelle que soit la valeur de combobox.
Pouvez-vous M'aider ? Merci

Je crois deviner que ce qui est exprimé n'est pas le constat d'un fait mais l'expression d'un souhait :lol:

Ce qui voudrait alors dire :
"je souhaite qu'une modification dans la combo ne puisse plus interagir avec une image qui a été cliquée"

Si c'est celà : il suffit d'utiliser une variable booléenne (false au départ et passé à True au Clic) et de subordonner l'exécution du code de la combo à la valeur de cette boléenne.
Il peut être plus intelligent d'utiliser la propriété tag de l'image (vide ===>> exécution . contenant du texte ? ===>> non exécution .... et y mettre du texte lors d'un clic sur l'image).
Mille et une autres solutions sont également possibles, parmi lesquelles l'utilisation d'un tableau dynamique, etc...
10/02/2008, 12h45
alsimbad

il y a peut etre un code qui s'est créé si tu a fait un double clik en mode création. du fait l'éxecution de ce code, meme s'il est vide empeche peut etre l'image de réagir au changement sur la combo.
je te répond un peu au pif parce que je ne connais pas la méthode pour faire changer une image sur une usf (d'ailleurs si tu mettais le fichier (en exemple, on pourrait mieux se faire une idée de ton probleme).
tu pourrais aussi, recréer un fichier similaire pour savoir si c'et un pb qui se reproduit (donc lié aux proriétés d'origine) ou qui ne se reproduit pas (et donc liée a tes codes ou tes parametrages des propriété de tes images).
pour le momment, pas d'autres suggestions

Merci pour vos réponses.

Voici ce qui se passe quand je clique sur le combobox :
Code:

1 2 3 4 5 Private Sub ListGroupMusc_Change() If ListGroupMusc.Text <> "" Then PhotoGroupMusc.Picture = LoadPicture("I:\Pictures\Groupes musculaires\Images pour groupes\" & ListGroupMusc.Text & ".jpg") End If End Sub
L'image change suivant la valeur du combo, c'est parfait, c'est ce que je veux.

Cependant, lorsque je clique sur cette image (à laquelle jen n'ai rien associé, et je ne souhaite rien associer, cele-ci est comme figée. J'ai beau changer les valeurs du combobox, elle ne change pas. Cela se produit sur deux feuille différentes.

10/02/2008, 20h34
ucfoutu

J'ai de plus en plus de difficultés à "cerner" ton problème ...

Questions :

1) quelles instructions contiennent les évènements utilisés de ton Image (et quels sont ces évènements) ?
2) aurais-tu installé un timer (par utilisation de l'Api de Windows puisque VBA ne possède pas de contrôle Timer) ?

En résumé : explique plus clairement et avec détails ton problème en nous confirmant que tu es bien le rédacteur (et pas seulement l'héritier) du code écrit ...
11/02/2008, 09h20
Apranax

D'abord, merci de vous intéresser à mon problème, mais j'avoue que je pensais être très clair. Je suis bien l'auteur. Je peut mettre tout le code de la form mais àa ne fera que embrouiller les choses. Il n'ya pas de timer, d'ailleurs je ne sais pas ce que c'est.

Donc j'ai une form sur laquelle il y a une combobox qui peut prendre différentes valeurs et un control image dont la proprité picture change suivant la valeur du combobox. Je lance la form. Pas de problème, lorsque je fiais change la valuer du combobox, l'image change (c'est la portion de code que j'ai donné). Simplement quand je clique avec la souris sur l'image et qu'en suite je fais à nouveau changer la valeur du comboox, l'image ne change plus.
Il n'y a aucune procédure événementielle associée à mon image.
11/02/2008, 10h14
ouskel'n'or

Peux-tu interdire l'accès à ton image ou veux-tu conserver la possibilité de détecter un événement sur l'image ?
Si non, tu as la propriété Enabled=false de l'image qui en interdit l'accès.
11/02/2008, 10h30
Apranax

Merci beaucoup, ça marche. 9a règle le problème pour une image. Mais pour l'autre je souhaité associer le clique à un zoom sur l'image. Quand je clqiue le oom apparaît, mais du coup, je ne peux plus faire changer l'image....

Alors donne le focus à ton combo dans le clic sur image
Code:

1 2 3 4 5 Private Sub Image1_Click() Image1.Height = Image1.Height * 2 Image1.Width = Image1.Width * 2 ComboBox1.SetFocus End Sub

Ca ne change rien avec le focus. Pour le zoom, je viens d'assocoer ce code à un click :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub ImageExo_Click() If ImageExo.Tag = Petit Then With ImageExo .Height = ImageExo.Height * 2 .Width = ImageExo.Width * 2 .Tag = Grand End With Else With ImageExo .Height = ImageExo.Height / 2 .Width = ImageExo.Width / 2 .Tag = Petit End With End If End Sub
Ca marche bien. Voici ce quis e passe pour mon prob de départ.
Je chois une valeur pour le combo, l'image change. Je clique sur l'image, il y a un zoom. Je change, la valeur du combo, l'image ne chage pas. Je clique sur l'image, elle dezoom et change.
quand aucune action n'était associée au click sur l'image, le click sur celle-ci ne la faisait pas changer. Il y a peut-être une commande qui permet de "rafraichir" le control ?

11/02/2008, 15h46
Apranax

ça marche en introduisant dans le coe du combo :

ImageExo.Visible = False
ImageExo.Visible = True

Ca recharge l'image. Je ne sais pas si on peut faire autrement? En tout cas merci pour votre aide :) !
11/02/2008, 22h36
Qwazerty

SAlut
Peut être

Code:

ImageExo.Update

A++
Qwaz

Citation:

Envoyé par Apranax

J'ai inséré une image dans une userforme ainsi qu'un combobox.L'ilage change en même temps que la valeur du combobox.

En lisant ça, on pouvait penser que tu choisissais le nom d'une image dans le combo, non un facteur d'agrandissement. Il aurait été bien que tu expliques le problème dès le début.
Tu places une image et qu'un combo tout propres dans un userform tout neuf et tu mets ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Largeur As Integer, hauteur As Integer
Private Sub UserForm_Initialize()
    ComboBox1.AddItem 10        'ListIndex = 0
    ComboBox1.AddItem 20        'ListIndex = 1
    ComboBox1.AddItem 30        'ListIndex = 2
    ComboBox1.AddItem 40        'ListIndex = 3
    ComboBox1.AddItem 50        'ListIndex = 4
    ComboBox1.AddItem 60        'ListIndex = 5
    ComboBox1.AddItem 70        'ListIndex = 6
    ComboBox1.AddItem 80        'ListIndex = 7
    ComboBox1.AddItem 90        'ListIndex = 8
    ComboBox1.AddItem 100       'ListIndex = 9
    Me.Image1.PictureSizeMode = 3
    hauteur = Me.Image1.Height
    Largeur = Me.Image1.Width
End Sub

Code:

1
2
3
4
Private Sub ComboBox1_Click()
    Me.Image1.Height = hauteur * Val(ComboBox1.Value) / 100
    Me.Image1.Width = Largeur * Val(ComboBox1.Value) / 100
End Sub

Tu testes et tu nous dis