Discussion :

[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...)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

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!

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marsupilami34]

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+

[marsupilami34]

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

[SfJ5Rpw8]

tiens vooir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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