[VBA]Marquage du clic sur une image de userform

Question

http://img191.exs.cx/my.php?loc=img191&image=bary7xr.jpg



Lors du clic cela enregiste les coodonn&#233;es du pointeur par 


Private Sub carte_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.cics = X
Me.cigrec = Y
End Sub


CE que je veux c'est lorsqu'on clic sur l'image du userform un point ou petit cercle s'affiche et reste.


Vous pensez que c'est r&#233;alisable ?

jpleroisse · Answer

Je ne vois q'une solution, avec le PaintBrush r&#233;alise un point o&#249; un cercle et enregistre-le, ensuite impote-le dans une image que tu rends invisible(Image2.Visible = False)
dans le code du Click de ta 1&#232;re image, tu place Image2.Visible = True.
Peut-&#234;tre y-at'il moyen par code de cr&#233;er un cercle en VBA, mais je connais pas. 

jpleroisse

titibobo2 · Answer

Oui c'est ceu que je veux, faire apparaitre une imagel&#224; ou je clic, pas besoin de code le cercle

j'ai cr&#233;e l'image que j'ai import&#233; de la meme fa&#231;on que la carte

mais dans le code du click :

Private Sub carte_click()
Range("start").Offset(Ligne, 0) = Ligne + 1
Range("start").Offset(Ligne, 1) = cics
Range("start").Offset(Ligne, 2) = cigrec
controle = MsgBox("Etes-vous sur du lieu ? ", vbYesNo, "Contr&#244;le")
If controle = vbNo Then
    Range("start").Offset(Ligne, 1) = cics
    Range("start").Offset(Ligne, 2) = cigrec
Else
dataclient.Show
Ligne = Ligne + 1
End If
End Sub

si je rajoute Image2.Visible = True juste en dessous de private sub carte_click()
cela ne change rien l'iamge 2 reste toujours  &#224; la meme place, ne se place jamais la o&#249; j'ai cliqu&#233; ...

jpleroisse · Answer

Si tu veux que l'image apparaisse &#224; un endroit pr&#233;cis, tu dois l'indiquer.
Par exemple.
Image2.Visible = True
Image2.Top = 100
Image2.Left = 200

titibobo2 · Answer

ok et comme je veux quelle apparaisse au clic il suffit que je mettre les variables cics et cigrec

Par contre je pense qu'au 2eme clic l'image sera d&#233;plac&#233;e et non copi&#233;e ..

jpleroisse · Answer

Exact, je ne connais aucun code qui permet de copier une image dans un UserForm en mode ex&#233;cution. C'est possible sur un Sheets.

jpleroisse

[VBA]Marquage du clic sur une image de userform

5 réponses

Discussions similaires