Microsoft 365 Rendre un champ obligatoire depuis une liste

Sarah2308 · 7 Janvier 2021

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 !

laurent950 · 7 Janvier 2021

Bonsoir @Sarah2308 , @Laurent78

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

VB:

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

Laurent78 · 7 Janvier 2021

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 · 7 Janvier 2021

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 · 7 Janvier 2021

Bonsoir @Sarah2308 , @Laurent78

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

VB:

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 · 8 Janvier 2021

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 · 8 Janvier 2021

Sarah2308 à dit:
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 · 11 Janvier 2021

Bonjour @laurent950 !

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

Merci encore !

laurent950 · 11 Janvier 2021

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

Microsoft 365 Rendre un champ obligatoire depuis une liste

Sarah2308

XLDnaute Nouveau

Pièces jointes

laurent950

Laurent78

XLDnaute Occasionnel

Pièces jointes

Sarah2308

XLDnaute Nouveau

laurent950

XLDnaute Barbatruc

Pièces jointes

Sarah2308

XLDnaute Nouveau

laurent950

XLDnaute Barbatruc

Sarah2308

XLDnaute Nouveau

laurent950

XLDnaute Barbatruc

Discussions similaires