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

[pascal21]

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]

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

 

[Dranreb]

Bonjour.
Ça ne marcherait pas avec une Worksheet_SelectionChange et If Target.Rows.Count = 1 And Target.Columns.Count >200 Then UserForm.Show ?

 

[pascal21]

bonjour Dranreb et merci
ce bout de code ouvre bien un usf mais uniquement si je selectionne une seule ligne
j'ai modifié
If Target.Rows.Count = 1
en
If Target.Rows.Count > 1
et ça fonctionne