Microsoft 365 Rendre un champ obligatoire depuis une liste

L

Laurent78

XLDnaute Occasionnel

• 7 Janvier 2021

• #2

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".

 

Pièces jointes

• NDF_RD.xlsm

  25.6 KB · Affichages: 5

Vote positif 0 Vote négatif

S

Sarah2308

XLDnaute Nouveau

• 7 Janvier 2021

• #3

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. 😉

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 7 Janvier 2021

• #4

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

 

Pièces jointes

• NDF_RD.xlsm

  27.3 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

S

Sarah2308

XLDnaute Nouveau

• 8 Janvier 2021

• #5

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 !

 

Dernière édition: 8 Janvier 2021

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 8 Janvier 2021

• #6

Sarah2308 à dit:

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

Cliquez pour agrandir...

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))

 

Dernière édition: 8 Janvier 2021

Vote positif 0 Vote négatif

S

Sarah2308

XLDnaute Nouveau

• 11 Janvier 2021

• #7

Bonjour @laurent950 !

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

Merci encore !

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 11 Janvier 2021

• #8

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

 

Vote positif 0 Vote négatif