Microsoft 365 Rendre un champ obligatoire depuis une liste

[Sarah2308]

Bonjour,

En colonne C, j'ai une liste avec plusieurs libellés de dépenses. Je souhaite avoir un pop up "Entrer le détail de la dépense" quand je sélectionne "Autres transports" dans ma liste, et que le champ "commentaires" (colonne I) devienne obligatoire. Je ne peux pas continuer ma saisie si je ne remplis pas le champ commentaire.
J'ai vu dans d'autres sujets qu'il y avait des solutions VBA mais je ne touche pas du tout et je n'arrive pas à appliquer à mon sujet.

Merci d'avance pour votre aide !

 

[Laurent78]

Bonjour,
une piste sans VBA en pièce jointe. Cela ne force pas le passage par la cellule commentaire, mais l'affiche en rouge. Si "Autres Transports", alors il doit être saisie dans la cellule autre chose que "à renseigner".

 

[Sarah2308]

Merci @Laurent78 pour cette piste facile à laquelle je n'avais pas pensé.
A défaut d'avoir une autre piste qui règle mon problème c'est un bon intermédiaire.

 

[laurent950]

Bonsoir @Sarah2308 , @Laurent78

A ajouter dans le module de la feuille. Feuil1 (NDF)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C14:C" & Cells(65536, 5).End(xlUp).Row)) Is Nothing Then
        If Target.Value = "Autres Transports" Then
            Target.Offset(, 6) = InputBox("Qu'elle est votre commentaire", "COMMENTAIRES OBLIGATOIRE", "")
        End If
    End If
End Sub

 

[Sarah2308]

Bonjour @laurent950 ,

Merci pour ta réponse, j'ai bien mis le code dans le module mais il ne se passe rien.
Soit je rate un truc, soit il y a une erreur dans le VBA.... Malheureusement, si c'est le cas je manque clairement de compétences pour le voir...
Pour compléter ça m'affiche une erreur de bloc if sans end if
Merci pour ton aide !

 

[laurent950]

Merci pour ta réponse, j'ai bien mis le code dans le module mais il ne se passe rien.

Bonsoir c'était le bon Module :
J'ai posté le fichier en poste #4 le Module était (A ajouter dans le module de la feuille. Feuil1 (NDF))

 

[Sarah2308]

Bonjour @laurent950 !

Merci pour ta réponse, ça fonctionne parfaitement !
J'avais oublié un "End if".

Merci encore !

 

[laurent950]

Bonjour @Sarah2308
Vous pouvez cocher l'option Résolu de votre Poste
Merci à vous