XL 2010 Comment obliger quelqu'un à remplir une celulle

[denys65]

Bonjour,
Je recherche une solution pour que si une question n'est pas remplie qu'il y ai un message d'erreur et que la suite soit bloquée jusqu'à ce que la question soit remplie.
J'ai tenté avec IF et THEN et ce n'est pas concluant.

Merci d'avance pour votre aide

 

[_Thierry]

Bonjour @denys65 , le Forum

Un exemple en macro évènementielle... (Dans le Private Module de la "Sheet1")

Bonne journée
@+Thierry

 

[job75]

Bonjour denys65, bienvenue sur XLD, salut _Thierry

Une solution voisine :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [D4] 'à adapter
    If IsEmpty(.Value) Then .Select: CreateObject("wscript.shell").SendKeys "{F2}" 'mode édition
End With
End Sub

A+

 

[Victor21]

Bonjour à tous.

Vous pouvez également utiliser la validation conditionnelle.

 

[Dudu2]

Bonjour,
Victor, qu'est-ce que tu appelles la validation conditionnelle ?
Cordialement

 

[Victor21]

RE,

 

[Dudu2]

J'avais essayé cette méthode de validation de données mais sans succès.
La validation de données n'entre en jeu que si on saisit quelque chose.
Or là on ne saisit rien et ça passe.

 

[Dudu2]

Sinon, histoire de bavarder un peu , un version proche de celle de Thierry et Job75 qui diffère par le fait que tant qu'on n'y est pas venu, rien n'est exigé (pas vu pas pris).

Private Const CelluleContenuObligatoire = "D4"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static CelluleContenuObligatoire_Selection As Boolean
  
    If CelluleContenuObligatoire_Selection Then
        If IsEmpty(Me.Range(CelluleContenuObligatoire)) Then
            Application.EnableEvents = False
            Me.Range(CelluleContenuObligatoire).Select
            Application.EnableEvents = True
            MsgBox "Ach ! Du musst antworten !"
        End If
    ElseIf Not Intersect(Target, Me.Range(CelluleContenuObligatoire)) Is Nothing Then
        CelluleContenuObligatoire_Selection = True
    End If
End Sub

Edit: par contre je n'ai pas réussi à braquer la lampe dans le visage de l'utilisateur

 

[denys65]

Bonjour à tous,

Merci pour votre aide, la solution de Thierry me semble pas mal mais je n'ai pas encore eu le temps de la tester sur mon fichier.
Pour la solution de Dudu2, je n'ai pas Userform mais c'est peut-être une erreur mais ou je bosse c'est déjà bien si un fichier Excel avec une petite macro est acceptée.

Je reviens vous dire si ça fonctionne dans mon fichier.

A++ Denys65