[VBA-Excel] Propriété MouseMove

Bonjour,

Je souhaiterai réaliser les même fonctionalités par exemple lorsqu'on fait un clic droit sur une feuille Excel, c'est à dire qu'une fenêtre s'active avec différentes fonctionalités (copier, coller...)

Ma macro marche actuellement comme ceci :
Lorsque je fais un clic droit, j'ai bien ma nouvelle fenêtre qui s'affiche (mais avec la crois de fermeture en haut à droite)
Après, sur cette forme, j'ai mis des Label correposndant à mes copier-coller par exemple. Lorsque ma souris se positionne dessus, j'utilise la propriété MouseMove qui me change la couleur de l'arrière fond et du texte de mon Label. Par contre quand le curseur de ma souris sort de mon Label les couleurs ne redeviennent pas comme avant ?

Alors j'aurai 2 questions :
- N'y aurait-il pas un moyen plus simlple pour développer ceci.
- Pourquoi mon Label ne redevient pas comme avant :

Code:

---

1 2 3 4 5

Private Label1_MouseMove(.........) Label1.BackColor=RGB(0,0,255) Label1.ForeColor=RGB(255,255,255) End Sub

---

Merci d'avance

pourrai tu être plus clair jusqu'à la je pensai que tu désiré créer ou modifier le menu contextuel des feuilles de calculs

Citation:

---

Envoyé par marsupilami34

Bonjour,

Je souhaiterai réaliser les même fonctionalités par exemple lorsqu'on fait un clic droit sur une feuille Excel, c'est à dire qu'une fenêtre s'active avec différentes fonctionalités (copier, coller...)

---

et la je ne comprends plus rien!

Citation:

---

Envoyé par marsupilami34

Ma macro marche actuellement comme ceci :
Lorsque je fais un clic droit, j'ai bien ma nouvelle fenêtre qui s'affiche (mais avec la crois de fermeture en haut à droite)
Après, sur cette forme, j'ai mis des Label correposndant à mes copier-coller par exemple. Lorsque ma souris se positionne dessus, j'utilise la propriété MouseMove qui me change la couleur de l'arrière fond et du texte de mon Label. Par contre quand le curseur de ma souris sort de mon Label les couleurs ne redeviennent pas comme avant ?

Alors j'aurai 2 questions :
- N'y aurait-il pas un moyen plus simlple pour développer ceci.
- Pourquoi mon Label ne redevient pas comme avant :

Code:

---

1 2 3 4 5

Private Label1_MouseMove(.........) Label1.BackColor=RGB(0,0,255) Label1.ForeColor=RGB(255,255,255) End Sub

---

Merci d'avance

---

Ce que je souhaiterai faire c'est comme le montre le fichier joint.
J'ai une forme UserForm1 sur la quelle j'effectue un clic droit alors la forme UserForm2 apparait. Mon problème était de savoir comment on pouvait faire pareil que sur un doc word, c'est à dire :
- placer la forme la ou le clic a eu lieu
- enlever la croix de fermeture en haut à droite
- Et pouvoir lorsque on seplace sur un label qu'il se sélectionne (dans l'exemple fourni, il devient bleu).

J'espère que j'ai pu clarifier mon problème :?

Merci d'avance

A+

Bonjour,

En fait ma question serait plutot de savoir comment détecter que la souris se trouve ou non sur un Label ou Textbox par exemple ?

Merci

tiens vooir :

Code:

---

1 2 3 4 5 6 7

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1.BackColor = vbBlue End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1.BackColor = vbGreen End Sub

---