XL 2019 Interdire l'utilisation de la touche supprimer

Steph44 · 10 Octobre 2022

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 · 10 Octobre 2022

Ceci dit, la solution d'@Eric C je la verrais plutôt comme ça...

VB:

Private Const RangeInterdit = "D3,G3"

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cellule As Range
   
    If Not Intersect(Target, ActiveSheet.Range(RangeInterdit)) Is Nothing Then
        For Each Cellule In ActiveSheet.Range(RangeInterdit)
            If Len(CStr(Cellule.Value)) = 0 Then
                Application.EnableEvents = False
                Application.Undo
                Application.EnableEvents = True
                Exit For
            End If
        Next Cellule
       
        If Not Cellule Is Nothing Then
            MsgBox "Ça va pas la tête d'effacer " & Cellule.Address(0, 0) & " ?"
        End If
    End If
End Sub

Staple1600 · 10 Octobre 2022

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

VB:

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 · 10 Octobre 2022

Ou encore, petite modif:

Code:

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 · 10 Octobre 2022

Re

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

Allo la Terre ?

(voir la question dans le message#16)

Eric C · 10 Octobre 2022

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 · 10 Octobre 2022

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 · 10 Octobre 2022

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 · 10 Octobre 2022

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

Staple1600 · 10 Octobre 2022

Re

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

Dudu2 · 10 Octobre 2022

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 · 10 Octobre 2022

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 · 10 Octobre 2022

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

Staple1600 · 10 Octobre 2022

Re

Par contre celle-ci fonctionne

VB:

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 · 10 Octobre 2022

Par contre celle-ci fonctionne

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

Staple1600 · 10 Octobre 2022

@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 · 10 Octobre 2022

Ah oui, en 365 !

XL 2019 Interdire l'utilisation de la touche supprimer

Steph44

XLDnaute Nouveau

Dudu2

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

Eric C

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Fonctions EST

Dudu2

XLDnaute Barbatruc

Discussions similaires