Tester la commande insertion dans le menu contextuel

Version imprimable

26/08/2016, 10h38
marcelisa2

Tester la commande insertion dans le menu contextuel

Bonjour

Je cherche depuis quelques jours à pouvoir tester la fonction insertion ,(ou suppression) du menu contextuel par un utilisateur.

Pour être plus précis, je veux tester si l utilisateur clique droit sur la référence d une ligne sur une feuille Excel et choisit la commande insertion dans la barre de menu qui apparait.

Quelle code dois je utiliser?

J essaye de trouver via commandbars sans succès.

Merci par avance pour votre aide
26/08/2016, 13h53
Menhir

Pourrais-tu développer un peu ? En fonction du résultat du test, que souhaites-tu faire ? Préremplire la ligne ? Empêcher l'insertion ? Autre ?
En fonction du besoin, il peut peu être y avoir des solutions mais elles seront différentes suivant les cas.
27/08/2016, 12h49
marcelisa2

Bonjour Menhir,

merci beaucoup pour ton retour.

EN fait, mon besoin est le suivant :

si l'utilisateur clique droit sur la référence de la ligne et ensuite choisit la commande insertion pour ajouter une ligne, je souhaite réaliser la déprotection de toute la ligne, sachant que la feuille est complètement protégée. Une fois que l'utilisateur a complété saisi ses informations dans certaines cellules, j'ai un bouton qui permet de faire des calculs.

Pour l'instant, l'utilisateur insère une ligne mais pour compléter ses cellules sur une ligne, il est nécessaire qu'il appuie une première fois sur le bouton pour la dé protection et une 2ème fois pour les calculs en fonction des informations saisies.

Je souhaitais éviter qu'il appuie sur le bouton pour la déprotection des cellules ( ou suppression de la ligne ) et d'utiliser les sheetchange fonction pour récupérer l'action de l'utilisateur qui effectue les 2 actions "clique droit sur la référence ligne" + "clique sur la commande insertion"

Merci pour ton aide.

Bonjour à tous,
souhaitez vous d'autres informations pour répondre à mon besoin?
je pensais utiliser la fonction Workbook_SheetBeforeRightClick pour tester le clique droit lorsque l'utilisateur sélectionne la référence de la ligne mais ensuite il faudrait arriver à déterminer qu'il a sélectionné la commande "insertion" et là je n'ai pas encore trouvé dans les forums comment tester cette commande.
Merci pour votre aide.
27/08/2016, 13h52
Marc-L

Bonjour,

avec une feuille protégée, juste prévoir un bouton pour l'insertion, un autre pour la supression, etc …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
27/08/2016, 17h44
marcelisa2

Bonjour
Merci beaucoup. J y avais pensé mais je souhaitais éviter d alourdir les actions de l utilisateur et le laisser libre de saisir ses données après que j aurai capté ses actions de "selection de la ligne en référence + insertion". Merci bcp pour vos idées de code.
28/08/2016, 00h40
eriiic

Bonjour,

s'il s'agit de l'insertion d'une ligne entière il suffit de cocher cette option lors de la protection de la feuille.
eric
28/08/2016, 09h13
marcelisa2

Bonjour eriic
Merci beaucoup pour ta reponse.
En effet j ai deja aujourd hui lors de la protection par defaut de la feuille coché la case insertion de ligne et suppression de ligne. Ainsi l utilisateur pourra inserer ou supprimer une ligne sur la feuille protégée.
Mon besoin est de pouvoir par code vba determiner quand il a realise cette action pour pouvoir, de maniere transparente, pour lui deprotegee la ligne automatiquement qu il a insere.
Merci pour votre aide

Bonjour,

tu pourrais faire ainsi :
Dans un module Standard :

Code:

Public nblig As Long

Dans ThisWorbook :

Code:

1
2
3
Private Sub Workbook_Open()
    nblig = Feuil1.Cells.Find("*", , , , xlByRows, xlPrevious).Row
End Sub

Dans le module de ta feuille :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lig As Long
    lig = Target.Row
    If lig = nblig + 1 Then
        ' ajout en fin de tableau
        '... suite du code
    ElseIf Cells.Find("*", , , , xlByRows, xlPrevious).Row > nblig Then
        'ligne insérée en lig
        '... suite du code
    ElseIf Cells.Find("*", , , , xlByRows, xlPrevious).Row < nblig Then
        'ligne supprimée en lig
        '... suite du code
    End If
    nblig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
End Sub

eric

28/08/2016, 12h59
marcelisa2

Bonjour Eric,

merci beaucoup pour ta proposition que je vais tester tout de suite.
Mon cas particulier supplémentaire est que je génère automatiquement la feuille où l'utilisateur va rajouter des lignes
Donc je vais intégrer dans le Thisworkbook le code du module feuille que tu me proposes.

Je fais un retour sur ta proposition
Merci encore

Marc
28/08/2016, 14h20
eriiic

Bon ça va, tu as plus que des rudiments ;-)
28/08/2016, 16h20
marcelisa2

Re,
Je viens d essayer ta très bonne idée.
Il y a encore une difficulté.
Le worksheetchange réagit des la 1ère action de l utilisateur c est à dire la selection de la référence ligne où il veut ajouter une ligne. Mais pas sur la 2ème action qui est l insertion de la ligne par la commande du menu contextuel. Donc les calculs sur le nblig ne se fait pas. Et donc la gestion de la deprotection de la ligne non plus.
Il faudrait pouvoir connaitre le code de la commande insertion.
28/08/2016, 18h36
eriiic

1 pièce(s) jointe(s)

Heuuuu, bizarre. Quelle version d'excel ?
Tu n'as pas pris Workbook_SheetSelectionChange au lieu de Workbook_SheetChange des fois ?
eric

PS : une chose à laquelle je viens de penser aussi, une insertion de ligne entraine également un Calculate.
Si tu n'as pas besoin de détecter l'ajout d'une ligne en fin de tableau ça peut être intéressant.

Une autre solution:

Tu créer un menu dans ton clic droit!

Dans la feuil concerné de ton Michrosoft excel objets si dans feuil1 ou autre tu place ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 Option Explicit Private Sub Worksheet_Activate() CreationMenuContext End Sub Private Sub Worksheet_Deactivate() delMenuContext End Sub
Puis dans un module ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Option Explicit Sub InserLigneActive() Dim ligne As Variant ActiveSheet.Unprotect 'déprotection ligne = ActiveCell.Row Sheets("feuil1").Range("a" & ligne).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ActiveSheet.Protect 'protection End Sub 'Création d 'un menu contextuel (Click droit) Sub CreationMenuContext() With Application.CommandBars("Cell").Controls.Add(msoControlButton) .Caption = "Insersion ligne active au dessous" .BeginGroup = True .OnAction = "InserLigneActive" End With End Sub 'Réinitialise le menu contextuel Sub delMenuContext() Application.CommandBars("Cell").Reset End Sub
ainsi lorsque tu active ta feuille tu trouveras dans ton clique droit un nouveau menu qui te donne la possibilité d'insérer une ligne tout en déprotégeant et en reprotégeant

A adapter bien-sur !

J'avais oublié qu'il fallait entrer des éléments ds la ligne alors

ds le thisworkbook :

Code:

1
2
3
4
5
6
7
Option Explicit
 
Private Sub Workbook_Open()
 
If ActiveSheet.Name = "Feuil1" Then CreationMenuContext 'adapte le nom de la feuille concernée
 
End Sub

dans la feuille:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Private Sub Worksheet_Activate()
 
CreationMenuContext
 
End Sub
 
 
Private Sub Worksheet_Deactivate()
delMenuContext
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If LiGne <> "" Then
 
    If ActiveCell.Row <> LiGne Then
 
      Select Case MsgBox("Avez-vous terminé de modifier la ligne ?", vbYesNo Or vbQuestion Or vbMsgBoxRtlReading Or vbDefaultButton1, "")
 
        Case vbYes
        LiGne = ""
        ActiveSheet.Protect 'protection de la feuille
 
          Exit Sub
        Case vbNo
        ActiveSheet.Range("a" & LiGne).Select
 
      End Select
    End If
End If
End Sub

et enfin dans un module:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
Public LiGne As Variant
 
Sub InserLigneActive()
 
ActiveSheet.Unprotect 'déprotection
 
 
LiGne = ActiveCell.Row
 
 
Sheets("feuil1").Range("a" & LiGne).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
 
End Sub
 
 
'Création d 'un menu contextuel (Click droit)
 
Sub CreationMenuContext()
 
 
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Insersion ligne active au dessous"
.BeginGroup = True
.OnAction = "InserLigneActive"
End With
 
End Sub
 
'Réinitialise le menu contextuel
 
Sub delMenuContext()
Application.CommandBars("Cell").Reset
End Sub

ainsi avec un clic droit tu pourras insérer une ligne en déprotégeant, puis modifier la ligne concernée et à partir du moment ou tu quitte cette ligne il te demande si les modification sont terminées si OUI alors protection de la feuille et si NON retour en colonne A et la ligne concernée!

29/08/2016, 12h05
marcelisa2

Bonjour à tous,
merci encore à Eric et jijie pour ces excellentes idées.
J'ai enfin réussi à faire fonctionner la gestion de l'insertion (et suppression) de ligne grâce à vos idées.
Un grand merci