alerte insertion et suppression

[eduraiss]

Re

voila j'ai une feuille ou je voudrais avoir la chose suivante

une msgbox qui se declanche si la personne veut soir inserer une ligne soit en supprimer une

Merci a vous

 

[fred65200]

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

@+

 

[jeanpierre]

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

 

[Staple1600]

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

 

[eduraiss]

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

 

[ninbihan]

Re : alerte insertion et suppression

Bonjour le forum,

Tu peux essayer ceci

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

Bon aprés midi,

Ninbihan

 

[eduraiss]

Re : alerte insertion et suppression

Bonjour ninbihan

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

Merci

 

[Staple1600]

Re : alerte insertion et suppression

Bonjour



A utiliser avec prudence

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 ....)

 

[eduraiss]

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

 

[Staple1600]

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)

 

[fred65200]

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

 

[Staple1600]

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

 

[fred65200]

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

 

[Staple1600]

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

 

[fred65200]

Re : alerte insertion et suppression

re

exact ça ne fonctionne pas avec ^{+}

la fonction OnKey fonctionne pourtant avec ^c

Very strange
fred65200