Forcer la saisie d'une cellule

Bonjour

Voici mes problèmes

1/ Colonne G (CDD: Remplacement) : Si on choisit LOA, forcer la saisie d'un commentaire a la colonne H

2/ Colonne I : Si dans la colonne D(Fonction), on choisit Handler, alors dans la colonne I (D-Icer), on doit écrire oui ou non

Merci

Fa

Salut Faly,

voici ton fichier.
J'utilise la cellule [C1] pour évaluer les situations. Si elle est utilisée, choisir une cellule vierge d'utilisation et changer [C1] dans le code par l'adresse adéquate.

Il me manque une info : si, d'aventure, l'utilisateur annule son choix "Handler" ou "LOA", faut-il effacer les valeurs en [G:G] ou [I:I] ??

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Application.EnableEvents = False
'
If [C1] <> "" And Target.Address <> [C1] Then _
    MsgBox "Vous devez compléter la colonne " & Range(Left([C1], 1) & 15).Value & " !", vbInformation + vbOKOnly, [A1]: _
    Range([C1]).Select
'
Application.EnableEvents = True
'
End Sub

A+