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

 

[Dudu2]

Une micro modif pour factoriser le rétablissement de la valeur.

 

[patricktoulon]

@Eric C
bon ben pour ta V 2 c'est mort aussi et c'est même encore plus simple que la V1
il te suffit de selectionner une autre cellule avec et hop la touch suppr

 

[Dudu2]

Alors mes loulous, on n'a pas encore mis en défaut la solution proposée en Post #46 ?
Je vous croyais plus vindicatifs

.

Mais ptet que comme pour @Staple1600, vous ne me voyez pas / plus.
Pourtant je fais des efforts

.

 

[Eric C]

Coucou le fil

Bon... Bin moi j'vais prendre mes gouttes et aller me "couquer" (oui me coucher, j'suis de ch'nord à l'origine). Concernant le code de notre ami Dudu2 (bonsoir mon loulou ), je ne trouve rien à redire sur ce code que je vais devoir décortiquer mais bon je ne suis pas comme notre ami Patrick (Bonsoir mon autre loulou ) à trouver les failles de nos codes.
Bisous (je m'autorise) à toutes & à tous et je suis content du retour à son domicile de notre ami Gérard (job75).
@+ Eric c

 

[patricktoulon]

re
@Eric C ne le prends pas mal je fait ce que tout bon partenaire ferait
a savoir mettre en lumière les trou dans les raisonnements et la conception
je fait pareil avec tout le monde et pire avec moi même

 

[Eric C]

Mon bon Patrick. Nous avons déjà conversé en "off" et sache que je ne prends que très rarement "la mouche". J'ai eu (lors de mon temps d'activité) de nombreux démêlés avec moultes individus que je me suis toujours évertué à raisonner et j'ai presque toujours réussi. Ici, je me suis toujours senti zen et accepte les commentaires (bons ou mauvais...qui sont constructifs). Comme déjà dit, je ne suis qu'un petit "joueur" qui s'amuse dans le bac à sable des grands que vous êtes.
Bien à toi
Eric

 

[Phil69970]

Bonjour à tous

Je reviens sur la question de @Staple1600

==> #16 et suivant #18, #20, #23

Et voici la solution :

Sub Macro1()
With [C5].Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=ISNONTEXT(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

@Staple1600 tu pourras passé une bonne soirée

@Phil69970

 

[Eric C]

Re le fil

Hé bin mon loulou de Dudu , je n'ai pas trouvé de faille dans ton code .... même en employant les biais de notre ami Patrick (je n'ai pas trouvé le fil sur DVP). Chapeau bas l'artiste.
Bonne soirée
@+ Eric c

 

[Staple1600]

Bonjour à tous

Je reviens sur la question de @Staple1600

==> #16 et suivant #18, #20, #23

Et voici la solution :

Sub Macro1()
With [C5].Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=ISNONTEXT(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

@Staple1600 tu pourras passé une bonne soirée

@Phil69970

Comprends, il me semblait avoir testé avec la formule en anglais
(comme d'ailleurs je le précisais)

Merci @Phil69970 d'avoir sauvé ma soirée