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

pascal21 · 26 Avril 2017

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 · 26 Avril 2017

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

Dranreb · 26 Avril 2017

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

pascal21 · 26 Avril 2017

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

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

pascal21

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires