Tout interdire si une cellule non renseignée

[man95]

Bonjour à vous tous

J'aimerai savoir s'il est possible d'interdire toute action dans une feuille tant que la cellule A10 (dans l'exemple)n'est pas rempli

Merci de vos réponses et impatient de vous lire

MPR95

 

[Pierrot93]

Re : Tout interdire si une cellule non renseignée

Bonjour Man

peut être comme ceci
-tu dévérroulles la cellule A10 (barre de menu => format => cellule => onglet "protection")

-tu protèges la feuille avec mot de passe "toto" (barre de menu => outils => protection => protéger la feuille, tu indiques et confirmes le mot de passe)

-tu places le code ci-dessous dans le module de la feuille concernée (click droit sur le nom de l'onglet => visualiser le code).

Ensuite si tu saisies "titi" dans la cellule A10, le feuille est déprotégée, sinon elle reste protégé.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$10" And Target.Value = "titi" Then _
    Me.Unprotect "toto"
End Sub

bon après midi
@+

 

[Compte Supprimé 979]

Re : Tout interdire si une cellule non renseignée

Salut Man95, Pierrot93

Une autre soution sans prendre en compte les mises en forme

Private Sub Worksheet_Change(ByVal Target As Range)
  If Range("A10") = "" Then
    MsgBox "Merci de remplir la cellule A10"
    Application.EnableEvents = False
    Application.Undo
    Range("A10").Select
    Application.EnableEvents = True
  End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("A10") = "" Then
    MsgBox "Merci de remplir la cellule A10"
    Application.EnableEvents = False
    Range("A10").Select
    Application.EnableEvents = True
  End If
End Sub

Voir fichier joint 😉

A+

 

[man95]

Re : Tout interdire si une cellule non renseignée

Merci de vos réponses
je test de ce pas

Merci encore

MPR

 

[man95]

Re : Tout interdire si une cellule non renseignée

Merci de vos réponses
je test de ce pas

Merci encore

MPR