alerte insertion et suppression

fred65200

XLDnaute Impliqué

• 9 Octobre 2007

• #2

Re : alerte insertion et suppression

re bonsoir,
tu peux toujours protéger ta feuille et cocher les cases qui t'intéressent.

Pas d'alerte

@+

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 9 Octobre 2007

• #3

Re : alerte insertion et suppression

Salut Eric, Fred,

Pourquoi ne pas prévoir un t'it code pour inserer ou supprimer.....

Supprimer en respectant les formules, leurs liaisons au cas où...

Inserer, en reportant les formules, si elles existent....

Bonne nuit tous...

Jean-Pierre

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Octobre 2007

• #4

Re : alerte insertion et suppression

Bonsoir à tous


Peut-etre ici de quoi t'aider:

https://www.excel-downloads.com/threads/peut-on-detecter-linsertion-de-rows.15278/

A+

JM

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Octobre 2007

• #5

Re : alerte insertion et suppression

Re bonjour le forum

Merci a vous trois pour vos differentes pistes, mais je n'ai pas trouver mon bonheur

peut-on interdire la suppression ou l'insertion entre les ligne de la colonne A si ses cellules contiennent des valeurs?

Merci pour votre aide

 

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 9 Octobre 2007

• #6

Re : alerte insertion et suppression

Bonjour le forum,

Tu peux essayer ceci

Code:

Private Sub Worksheet_Activate()
ActiveSheet.Protect AllowDeletingRows:=False
End Sub

Bon aprés midi,

Ninbihan

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Octobre 2007

• #7

Re : alerte insertion et suppression

Bonjour ninbihan

j'ai mis ce code dans la feuille mais rien ne se passe

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Octobre 2007

• #8

Re : alerte insertion et suppression

Bonjour



A utiliser avec prudence

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Controls("Insertion").Controls("Lignes").Enabled = True

End Sub

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Controls("Insertion").Controls("Lignes").Enabled = False
End Sub

Je te laisse découvrir qu'il y encore un moyen d'insérer ...

(.... contexuel ....)

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Octobre 2007

• #9

Re : alerte insertion et suppression

Re

Bonjour Staple1600, petite question ou je mets ce code?

j'ai essayer dans la feuille rien ne se passe, j'ai essayer aussi dans worboock mais rien non plus

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Octobre 2007

• #10

Re : alerte insertion et suppression

Re

Dans le code de ThisWorkBook



Ci-joint un exemple (précision s'applique à tout le classeur )

A utiliser également avec prudence (je le repète)

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 9 Octobre 2007

• #11

Re : alerte insertion et suppression

bonjour, juste pour savoir,

avec le code de Mr Staple1600, que se passe t'il si tu fais Ctrl + + ou Ctrl + -?

Faut il aussi désactiver les raccourcis clavier.

fred65200

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Octobre 2007

• #12

Re : alerte insertion et suppression

Bonjour Fred65200


Exact j'avais oublié les raccourcis.


Je te laisse le plaisir de les désactiver par VBA.


A+

JM

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 9 Octobre 2007

• #13

Re : alerte insertion et suppression

Re
de mémoire pour les raccourcis clavier

Sub SupprRacc()
Application.OnKey "^{+}", " "
Application.OnKey "^{-}", ""
End Sub
Sub RemettreRacc()
Application.OnKey "^{+}"
Application.OnKey "^{-}"

End Sub

fred65200

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Octobre 2007

• #14

Re : alerte insertion et suppression

Re

C'est ce que j'avais comme code

mais cela ne fonctionne pas (sous XL2000)

Le racccouci CTRL+ est toujours actif


PS: j'appelle bien la macro dans une procédure événementielle pourtant

Même comme ca, raccourci toujours actif

Sub SupprRacc()
Application.OnKey "^{+}", "pas_ctrl_plus_moins"
Application.OnKey "^{-}", "pas_ctrl_plus_moins"
End Sub
Sub pas_ctrl_plus_moins()
MsgBox "Commande désactivée"
End Sub

 

Dernière édition: 9 Octobre 2007

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 9 Octobre 2007

• #15

Re : alerte insertion et suppression

re

exact ça ne fonctionne pas avec ^{+}

la fonction OnKey fonctionne pourtant avec ^c

Very strange
fred65200

 

Vote positif 0 Vote négatif