XL 2013 Message avec condition

[306255]

Bonjour à tous,

JE souhaiterais mettre un message "a remplir" si la case est vide à condition que le choix soit sur autre nationalité

Merci d'avance pour votre aide

 

[sylvanu]

Bonjour,
un essai en PJ avec une macro événementielle basée sur C8 :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C8]) Is Nothing Then
         If [C8] = "Autre nationalité" And [D8] = "" Then [D8] = "A remplir"
         If [C8] = "Française" And [D8] <> "" Then [D8] = ""
    End If
Fin:
End Sub

En D8 j'ai mis une liste déroulante basée sur la liste de la feuille 2.

 

[job75]

Bonjour 306255, sylvanu,

Ceci doit suffire :

Sub Worksheet_Change(ByVal Target As Range)
If LCase([D7]) = "autre nationalité" And [D8] = "" Then [D8] = "A remplir"
End Sub

A+

 

[sylvanu]

Re, Bonjour Job,
Si en D8 il y a une nationalité, et qu'en C8 on revient à Française alors je pense que D8 doit s'effacer, d'où la ligne :

If [C8] = "Française" And [D8] <> "" Then [D8] = ""

 

[306255]

Super comme toujours, merci pour vos réponse