Discussion :

[BenoitL77]

Bonjour à tous,
Pour ceux qui serait intéressé, j'ai trouvé une autre méthode. Avec ces avantages et inconvénient elle aussi...
Elle consiste à griser/rendre inopérant le bouton "supprimer" ID293 du menu qui apparait quand on fait clic droit.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Application.CommandBars.FindControl(ID:=293).Enabled = True 'remet supprimer
 
Nosupp = WorksheetFunction.CountA(Target.Columns(1)) 'Nosupp = le nb de cellule non vide de la 1ère colonne du target
 
End Sub
 
 Private Sub worksheet_beforerightclick(ByVal Target As Range, Cancel As Boolean)
 
 If Target.Address = Target.EntireRow.Address And Nosupp > 0 Then
 
 Application.CommandBars.FindControl(ID:=293).Enabled = False  'grise supprimer
 
 End If
 
 End Sub

Aux conditions que :
-sélection 1 ou plusieurs ligne complète
-la somme des valeurs de la 1ère colonne (donc colonne A quand on sélectionne une ligne complète) soit >0. non vide

La sélection d'une autre cellule permet de réafficher le bouton.

Bien sûr, on peut contourner le code en supprimant la ligne via le menu "Accueil"

J'aimerai faire de même avec le bouton "couper"...mais je n'arrive pas à trouver l'ID correspondant. Où puis je trouver ça?

Merci
Benoit

[pijaku]

Bonjour,

Copier : ID = 29
Couper : ID = 21
Coller : ID = 22

[BenoitL77]

Bonjour Franck
Merci pour ton retour. J'en perds mon latin...
Pour commencer doucement, j'ai juste remplacé les 293 de mon code précédent par 21 : couper reste visible, idem avec 22 : coller reste visible. Et je ne vois pas d'autres boutons grisés
Si je remplace par 29...ça plante ! Variable objet ou variable de bloc With non définie, ligne 2

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars.FindControl(ID:=29).Enabled = True 'remet supprimer 293
Nosupp = WorksheetFunction.CountA(Target.Columns(1)) 'Nosupp = le nb de cellule non vide de la 1ère colonne du target
End Sub

C'est frustrant...
Je suis en 2019...une influence?
Comment trouve tu les N° ID, j'ai fouillé le net 1h sans trouvé de liste. J'avais testé 21, mais faute de résultat, j'en avais déduit que ce n'était pas le bon.

A+

[Philippe Tulliez]

Bonjour,

Bien sûr, on peut contourner le code en supprimant la ligne via le menu "Accueil"

Ou tout simplement la combinaison Ctrl & - dans la cellule de la ligne si c'est un tableau structuré et si c'est une plage de cellules classique Ctrl & - après avoir sélectionné la ligne (Raccourci Shift & Barre d'espacement)

J'avais prédis que ce serait une usine à gaz.

SI vraiment il faut contrôler tout cela.
Pourquoi ne pas bloquer simplement l'accès à la feuille en la protégeant ou en la cachant et effectuer les mises à jour par formulaire ?

[pijaku]

Bonjour,

Comme depuis le début, je rejoins Philippe...

Pour la liste des FindControl de la CommandBars :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ListeFindControlById()
Dim i As Long, cpt As Long, strC As String
For i = 1 To 100000
    On Error Resume Next
    strC = Application.CommandBars.FindControl(ID:=i).Caption
    If Err.Number = 0 Then
        cpt = cpt + 1
        Cells(cpt, 1) = Application.CommandBars.FindControl(ID:=i).Caption
        Cells(cpt, 2) = i
    End If
    On Error GoTo 0
Next
End Sub

Macro un peu longuette...

Ici une liste différente : https://ebooks.at.ua/forum/4-6-1

[BenoitL77]

Bonjour Messieurs,
Merci pour votre persévérance. Qui n'a d'équivalent que mon entêtement...
J'aimais bien cette idée de macro et comme à chaque pas, je pensais touché la solution du doigt j'ai continué dans cette voie et négligé la voie "protéger la feuille".
Un peu aussi pcq mes précédentes expérience sur ce sujet n'avaient pas été concluante.

Nouvelle journée...nouveau départ !
Je viens de protéger ma feuille avec des cellules verrouillées/pas verrouillées et des autorisations adaptées et devinez quoi... c'est nickel!
-suppression de mes fameuses lignes de titre interdite, mais je peux les masquer/afficher
-possible de copier/coller, couper/insérer, insérer les autres lignes
-possible de modifier les cellules, leur format etc...

J'entends déjà Philippe dire : "je te l'avais bien dis"...
Oui, mea culpa.
Merci pour le temps que vous avez consacré à ce sujet. J'aurai au moins appris des choses

Bonne journée
Benoit

[Philippe Tulliez]

Bonjour Benoit,
Sage décision.
En fait avant de passer au VBA, il faut penser d'abord à Excel et dès que l'on programme, utiliser les méthodes utilisant les fonctionnalités d'excel et pour l'algorithme penser "Comment ferais-je cela manuellement ?" et le traduire en VBA.