XL 2019 Interdire l'utilisation de la touche supprimer

[Steph44]

Bonjour à tous,

Je souhaiterai savoir s'il est possible d'empêcher l'utilisation de la touche supprimer sur deux cellules par exemple C79 et C80. J'aimerais également (si c'est possible) qu'un message apparaisse pour l'informer que cette touche supprimer n'est pas utilisable. Enfin, il faudrait malgré tout pouvoir la rendre accessible via un mot de passe.
L'utilisateur doit pouvoir saisir uniquement des valeurs numériques.

Je pense que c'est possible avec un code VBA mais je ne suis qu'un utilisateur exceptionnel du VBA et je ne sais pas en écrire. Je vois bien ou je veux en venir mais je ne sais pas le rédiger !!

Merci d'avance pour votre aide,

Cordialement,

Steph

 

[Staple1600]

Re

Sinon si ce n'est qu'une aide à la saisie
Données Validation
(Cela fonctionne)
la formule utilisée: =ESTNONTEXTE(C5)
Par contre , je n'arrive à comprendre pourquoi la macro équivalente refuse de fonctionner

Sub Macro1()
With [C5].Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=ESTNONTEXTE(C5)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Achtung Baby!"
        .InputMessage = ""
        .ErrorMessage = "Attention!" & Chr(10) & "" & Chr(10) & "Vous ne devez saisir que des chiffres," & Chr(10) & ""
        .ShowInput = False
        .ShowError = True
    End With
End Sub

NB: C'est pareil, si je mets l'équivalent anglais de la formule.

 

[Dudu2]

Ou encore, petite modif:

If Not Cellule Is Nothing Then
    MsgBox "Ça va pas la tête d'effacer " & Cellule.Address(0, 0) & " ?" & vbCrLf & _
           "Tu vas t'en prendre une belle en rentrant à la maison !"
End If

Perso, je préfère cette version

 

[Staple1600]

Re

C'est une impression où personne ne voit mes messages?

Allo la Terre ?

(voir la question dans le message#16)

 

[Eric C]

Bonsoir les zamis du fil

@Dudu2 : Dans le code de ton post #15, on ne peut entrer de valeur dans les cellules concernées ? Or Steph44 a dit :

on doit pouvoir modifier la valeur numérique inscrite dans la cellule mais pas la supprimer avec la touche DEL du clavier. En résumé on doit pouvoir écrire 0 pas supprimer le contenu !

@ Staple1600 : Si... moi je vois tes messages

@+ Eric c

 

[Staple1600]

Bonsoir @Eric C

Ouf
Et est-ce que tu as explication du pourquoi ca ne marche pas en VBA ?
Quand je fais Données/Validation manuellement cela fonctionne

Mais pas quand j'essaie avec le code VBA issu de l'enregistreur de macro.

 

[Dudu2]

Dans le code de ton post #15, on ne peut entrer de valeur dans les cellules concernées

@Eric C, ou est-ce que t'as vu qu'on pouvait pas entrer de valeur ?

@Staple1600, mais je te vois (signe de salut dans certaines communautés, sur Pandora aussi non ?)

 

[Eric C]

@Dudu2 : Oui, je ne sais pas ce qui est arrivé, j'ai redémarré XL et tout fonctionne ??? Désolé

 

[Staple1600]

Re

Personne pour m'expliquer pourquoi le Données/Validation ne fonctionne quand on le créé en VBA?

 

[Dudu2]

Oui, je ne sais pas ce qui est arrivé, j'ai redémarré XL et tout fonctionne

T'es passé à 2 doigts d'un procès.

 

[Dudu2]

Personne pour m'expliquer pourquoi le Données/Validation ne fonctionne quand on le créé en VBA?

Patience, patience, faut déjà qu'on capte le bidule et qu'on en fasse usage.

 

[Dudu2]

@Staple1600, c'est quoi ESTNONTEXTE ? Ça n'existe pas.

 

[Staple1600]

Re

Par contre celle-ci fonctionne

Sub Macro2()
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="0", Formula2:="10000000"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Alerte"
        .InputMessage = ""
        .ErrorMessage = "Uniquement des nombres!"
        .ShowInput = True
        .ShowError = True
    End With
End Sub

NB: Je publie le code VBA pour éviter les copie décran et un descriptif trop long.

 

[Dudu2]

Par contre celle-ci fonctionne

Oui, j'ai la même mais on peut effacer.

 

[Staple1600]

@Dudu2
Si elle existe

Fonctions EST

Utilisez les fonctions EST, comme ESTERREUR ou ESTERR pour voir si une condition d'erreur existe, ESTVIDE pour vérifier si les cellules sont vides ou ESTNUM pour vérifier si les valeurs sont des nombres.

support.microsoft.com

 

[Dudu2]

Ah oui, en 365 !