suppresion de lignes

Denis,

Il manque juste la désactivation des touches Ctrl- (pavé alpha et numérique)

Mais je suis en train d'y penser. Si moi, on m'interdisai de supprimmer des lignes, je ferai un copier de toutes les
lignes actives (+1 ligne) en dessous de la ligne que je veux supprimer et je copierai les données sur la ligne en
question...

A+
Benead

michdenis a écrit:

Bonjour Jean,

Voici une alternative à celle proposé par Benead,

Dans la feuille module où l'action se déroule, copie ceci :

'-----------------------
Private Sub Worksheet_Activate()
EnleverLaFonctionSupprimerLignesEtColonnes
End Sub
'-----------------------
Private Sub Worksheet_Deactivate()
RemettreLaFonctionSupprimerCommeAvant
End Sub
'-----------------------



Tu copies tout ce qui suit dans un module Standard :

'-------------------------------------------------
Sub EnleverLaFonctionSupprimerLignesEtColonnes()

'déclaration des variables
Dim Cbar As CommandBar, D As CommandBarControl
Dim C As CommandBarControl

On Error Resume Next
For Each Cbar In Application.CommandBars
For Each C In Cbar.Controls
If C.Caption = "&Supprimer..." Then
C.OnAction = "Bonjour"
End If
Err = 0
For Each D In C.Controls
Err = 0
If D.Caption = "&Supprimer..." Then
D.OnAction = "Bonjour"
End If
Next
Next
Next
End Sub
'-------------------------------------------------
Sub Bonjour()

'Chaque fois que tu vas cliquer sur le bouton
'supprimer, c'est cette macro qui va s'excécuter
'Tu peux inscrire le code que tu veux.
MsgBox "Cette commande n'est pas disponible"

End Sub
'-------------------------------------------------

Sub RemettreLaFonctionSupprimerCommeAvante()

'déclaration des variables
Dim Cbar As CommandBar, D As CommandBarControl
Dim C As CommandBarControl

On Error Resume Next
For Each Cbar In Application.CommandBars
For Each C In Cbar.Controls
If C.Caption = "&Supprimer..." Then
C.OnAction = ""
End If
Err = 0
For Each D In C.Controls
Err = 0
If D.Caption = "&Supprimer..." Then
D.OnAction = ""
End If
Next
Next
Next
End Sub
'-------------------------------------------------



Salutations!





"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
B684BFBA-4D74-4146-9819-67F9C99FFA01@microsoft.com...
bjr,

il n'y a pas un autre moyen sans proteger la feuille

"Philippe.R" wrote:

Bonjour Jean,
Dans ces conditions, oublie ma proposition ci avant et opte plutôt pour la protection / déprotection ou
deprotection / reprotection de la feuille.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
ED34AA7F-CDE6-4BDD-8F8A-8FF8FA95F343@microsoft.com...

je veux interdire la suppression de ligne sur toutes mes lignes de la
feuilles, mais si je met fin,je voudrai qu'on ne puisse pas voir fin.

eet le module de la feuille le programme je ne comprend pas trop.

j'ai un bouton de commande qui me permettra de supprimer les lignes
selectionnes.

mais je ne veux pas que les utilisateurs les supprimes directement en
selectionnant la ligne et faire supprimer?

merci

"Philippe.R" wrote:

Bonsoir Jean,
Tu nommes "fin" la dernière cellule de la plage dans laquelle tu veux interdire la suppression de
ligne
et dans le module de feuille tu colles :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [fin].Row <> 20 Then SendKeys "^z"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
9A084263-B74C-4F63-8D00-FBD350ACA7CE@microsoft.com...

Bonsoir,
est t'il possible d'empecher l'utilisateur de supprimer des lignes dans une
feuille excel, a savoir que cette feuille n'est pas protégé.

merci.