Message de saisi conditionnel

[Eny]

Message de saisi conditionnel [Terminé]

Bonjour a tous,

Je croyais pouvoir récupérer la solution recherché dans un fichier présent sur ce forum, mais ce n'est pas exactement ce que je recherche.

Du coup, malgré mes nombreuses recherches, sur ce site et sur le net également, je n'ai pas encore trouvé mon bonheur.

Je souhaiterai faire apparaitre sur une cellule un "message de saisi" (similaire à un commentaire, mais qui se créé via Donnée / Validation puis onglet "Message de saisi") différent en fonction du contenu d'une autre cellule.

Exemple (pour un tableau de note de frais) :
Soit :
A1 un type de dépense, (sélection via une liste)
B1 le montant TTC de la dépense
C1 la TVA de la dépense
D1 le montant HT
...

Si A1 = "Péage", alors le message de saisi de C1 sera :"La TVA est récupérable si et seulement si elle est mentionné sur le ticket de péage et si la dépense à eu lieu sur la France"

Si A1 = "Pourboire", alors le message de saisi de C1 sera :"Il n'y a pas de TVA récupérable sur les pourboires"

Etc etc ...

Je viens de penser que je pourrai faire ceci via une RECHERCHEV ... Mais je ne voudrais pas "polluer" la feuille de saisie des notes de frais.

Sinon, si quelqu'un a une autre idée, je suis aussi preneur bien sur.

Merci à tous.

++

Julien

 

[kjin]

Re : Message de saisi conditionnel

Re,
La précision était utile

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'limité à la colonne 2, entre les lignes 2 et 5
If Target.Column = 2 And Target.Row > 1 And Target.Row < 6 Then
Target.Validation.Delete
Target.Validation.Add Type:=xlValidateInputOnly
    Select Case Target.Offset(0, -1).Value
        Case "Péage"
        Target.Validation.InputMessage = "La TVA est récupérable si et seulement si elle est mentionné sur le ticket de péage et si la dépense à eu lieu sur la France"
        Case "Pourboire"
        Target.Validation.InputMessage = "Il n'y a pas de TVA récupérable sur les pourboires"
            'tu peux rajouter autant de Case que tu le souhaites
    End Select
End If
End Sub

A+
kjin

 

[Eny]

Re : Message de saisi conditionnel

Re,
La précision était utile
...

Mais je l'avais pourtant précisé dans mon tout premier message ! 😛

...

Je souhaiterai faire apparaitre sur une cellule un "message de saisi" (similaire à un commentaire, mais qui se créé via Donnée / Validation puis onglet "Message de saisi") différent en fonction du contenu d'une autre cellule.
...

Merci pour ce dernier code, je regarderai ce soir.

++

 

[Eny]

Re : Message de saisi conditionnel [Terminé]

Re,
La précision était utile

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'limité à la colonne 2, entre les lignes 2 et 5
If Target.Column = 2 And Target.Row > 1 And Target.Row < 6 Then
Target.Validation.Delete
Target.Validation.Add Type:=xlValidateInputOnly
    Select Case Target.Offset(0, -1).Value
        Case "Péage"
        Target.Validation.InputMessage = "La TVA est récupérable si et seulement si elle est mentionné sur le ticket de péage et si la dépense à eu lieu sur la France"
        Case "Pourboire"
        Target.Validation.InputMessage = "Il n'y a pas de TVA récupérable sur les pourboires"
            'tu peux rajouter autant de Case que tu le souhaites
    End Select
End If
End Sub

A+
kjin

Ce code, à adapter à chaque classeur bien entendu, correspond parfaitement à mes attentes !!!
Un grand merci à vous tous !!!
Le vainqueur est donc kjin pour avoir trouver le code !😀