ouvrir un usf en sélectionnant des lignes entières

pascal21

XLDnaute Barbatruc
bonjour le forum
en gros tout est dans le titre
j'ai une macro qui me permet de faire des calculs sur les lignes que j'ai sélectionnées
mais j'aimerais rendre ça plus, comment dire.... "fun!!"
j'aimerais savoir si il est possible d'ouvrir un usf lorsque je sélectionne des lignes entières
autrement j'envisage une autre solution
je sélectionne mes lignes
clic droit /menu contextuel
et là je trouverais une commande qui me lancerais ma macro
je sais que ça c'est possible
mais comment faire?
merci de votre aide
 

pascal21

XLDnaute Barbatruc
Code:
Private Sub Worksheet_Activate()
Application.CommandBars("Cell").Reset
'Crée une commande dans le menu
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Cellule Rouge" 'le nom de la commande
.BeginGroup = True 'ligne facultative si elle est précisée alors
' il y a un nouveau pavé de créer
.OnAction = "Macro1" ' la macro 1 est lancé
End With
End Sub
entre temps j'ai trouvé çà mais ça ne fonctionne pas en sélectionnant des lignes entières
mais çà fonctionne sur un clic droit sur une cellule
 

Discussions similaires

Statistiques des forums

Discussions
312 932
Messages
2 093 733
Membres
105 802
dernier inscrit
Witchun