Interdire la suppression d'une ligne en vba

[13GIBE59]

Bonjour le forum. 🙂

Je voudrais interdire en vba la suppression d'une ligne (par ex ligne 5), que celle-ci soit seule sélectionnée, ou qu'elle fasse partie d'une plage de lignes sélectionnées.

Est-ce possible ?

Merci d'avance.

 

[tototiti2008]

Re : Interdire la suppression d'une ligne en vba

Bonjour 13GIBE59,

en protégeant la feuille ?

 

[13GIBE59]

Re : Interdire la suppression d'une ligne en vba

Bonjour tototiti.

Merci de ta réponse, mais je ne peux opter pour ce choix, car je ne peux protéger la feuille, ni cette ligne d'ailleurs...

 

[Robert]

Re : Interdire la suppression d'une ligne en vba

Bonjour le fil, bonjour le forum,

peut-être comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Count Mod 256 = 0 Then ActiveCell.Select
End Sub

 

[13GIBE59]

Re : Interdire la suppression d'une ligne en vba

Bonjour Robert. 🙂

Sympa ton code. Et original. On y est presque (enfin, surtout toi...).

Malheureusement, ce code s'applique à toutes les lignes. Comment l'appliquer à une seule ligne ?

PS : pourquoi Mod 256 = 0 ? 😕

 

[roro69]

Re : Interdire la suppression d'une ligne en vba

Bonjour sans vba:
Sur la ligne à protéger, sélectionne deux cellules ou plus, tape ="" et valide par ctrl+Maj+enter
A++

 

[13GIBE59]

Re : Interdire la suppression d'une ligne en vba

Bonjour roro69.

Ton truc ne marche pas...

 

[Robert]

Re : Interdire la suppression d'une ligne en vba

Bonjour le fil, bonjour le forum,

Voici un code à adapter. Ici la ligne 5...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Count = 256 And ActiveCell.Row = 5 Then ActiveCell.Select
End Sub

Une ligne contient 256 cellulles. x MOD 256 renvoie le reste de la division de x par 256, mon permier code empêchait de sélectionner une ou plusieurs lignes...


Roro j'ai pas compris ton plan...

 

[13GIBE59]

Re : Interdire la suppression d'une ligne en vba

Super Robert.

C'est exactement ce que je voulais. La grande classe.

Merci beaucoup.

 

[Robert]

Re : Interdire la suppression d'une ligne en vba

Bonjour le fil, bonjour le forum,

Attention Jean-Bernard, la manip suivante permet de supprimer la ligne 5 malgré tout :
Clic-droit sur entête de lige 5
Choisir Supprimer... dans le menu contextuel
Choirsir l'option Ligne entière dans la boîte de dialogue
Valider par OK

 

[pierrejean]

Re : Interdire la suppression d'une ligne en vba

bonjour a tous

Pas tout a fait la reponse mais
Impossibilité de selectionner des cellules de la ligne 5

 

[13GIBE59]

Re : Interdire la suppression d'une ligne en vba

Bonjour pierrejean. 🙂

J'aime bien ton truc aussi. Je n'ai que l'embarras du choix...Merci.

L'aide de vba m'indique "mot clé introuvable" pour Flag. A part que c'est un drapeau en anglais, qu'est-ce donc au juste en vba ? 😕

A +

 

[Robert]

Re : Interdire la suppression d'une ligne en vba

Bonjour le fil. bonjour le forum,

PierreJean si je ne sélectionne que la ligne 5 ça sélectionne la 4 et la 5 puis message mais je peux ensuite effacer...

 

[pierrejean]

Re : Interdire la suppression d'une ligne en vba

Re

Merci Robert

Version modifiée

 

[Robert]

Re : Interdire la suppression d'une ligne en vba

Bonjour le fil, bonjour le forum,

En reprenant l'idée de PierreJean et en simplifiant, sachant que la suppression du flag va faire tourner deux fois la macro...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 5 Then MsgBox ("La ligne 5 ne peut être sélectionnée"): ActiveCell.Offset(1, 0).Select
End Sub