afficher une forme à l'emplacement du clic

[jeffe]

Bonjour à tous et toutes,
je cherche à positionner une forme à l'emplacement du curseur dans des zones bien precises
Au clic, une liste apparait, et en fonction de la liste, je positionne la bonne forme et ensuite je recupere toutes ces infos dans la feuille BD

merci pour votre aide

 

[pedrag31]

Re : afficher une forme à l'emplacement du clic

Bonjour Jeffe, bonjour le forum,

Quelques elements de reponse dans le fichier joint.

1. Une macro qui te donne la position du curseur lorsque que tu fais Ctrl+Q. Source Detect the Cursor Position within an Edit Control
2. Une macro qui copie/colle une Shape "nommee".
3. Les codes ColorIndex pour tes couleurs de Shape.

En attendant d'avoir plus de details de ta part pour poursuivre...

Bonne journee. 🙂

 

[jeffe]

Re : afficher une forme à l'emplacement du clic

bonjour pedrag31
merci pour ces debuts d'infos
je dois faire une erreur qqupart,en testant, je ne positionne pas la shape à l'emplacement du curseur??
pour le moment je garde le ctrl Q pour lancer ta macro

 

[jeffe]

Re : afficher une forme à l'emplacement du clic

bonjour à tous et toutes
un petit up si qqun à une idée

 

[klin89]

Re : afficher une forme à l'emplacement du clic

Bonjour à tous,
Bonjour jeffe,

Par l'exemple, j'ai repris la macro de skoobi dans le fil ci-dessous.

Je l'ai associée à l'événément BeforeDoubleClick

https://www.excel-downloads.com/threads/copier-des-formes-automatiques.109633/

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cell As Range
  For Each cell In Selection
    ActiveSheet.Shapes("Rectangle 1").Copy
    cell.Select
    ActiveSheet.Paste
    With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
      .Height = .TopLeftCell.Height
      .Width = .TopLeftCell.Width
    End With
  Next
End Sub

A la relecture de ton post, je crains que ce ne soit cela que tu recherches 😎

Trop tard, c'est posté.

Klin89

 

[jeffe]

Re : afficher une forme à l'emplacement du clic

salut hé ben ,non mais c'est merci beaucoup
je vais encore attendre c'est encor les vacances pour beaucoup
bonne soirée

 

[klin89]

Re : afficher une forme à l'emplacement du clic

Re jeffe,

Peut-être ce fil :

https://www.excel-downloads.com/threads/photo-taille-cellules.70490/

Vois aussi le travail de Boisgontier ci-dessous :

https://www.excel-downloads.com/threads/liste-deroulante-avec-dessins.120891/

klin89

 

[klin89]

Re : afficher une forme à l'emplacement du clic

Bonjour le forum,
Bonjour jeffe,

Je suis tombé par hasard sur ce fil, cela date mais le travail de Michel a l'air vraiment sympa 🙂

https://www.excel-downloads.com/threads/macro-excel-symbole.10306/

Klin89

 

[jeffe]

Re : afficher une forme à l'emplacement du clic

hello
effectivement c'est du beau boulot qu'a réalisé michel mais ça corespond pas avec ce que je voudrais realiser

je continue de checher une solution pour cartographier mes defauts...
merci

 

[jeffe]

Re : afficher une forme à l'emplacement du clic

hello à tous
un peti up au cas ou quelqu'un aurait une idée
au mieux je souhaiterais positionner un point sur une image à l'emplacement du clic dans un USF