Création d'un message d'alerte lors de la saisie

Bonjour

Je cherche à créer un message d'alerte lors de la saisie sur un fichier de gestion de carburant.

J'ai créé quelque chose (en recopiant à partir d'autres sujets) mais ce n'est pas satisfaisant car le message ne s'affiche que lorsqu'on lance la macro.

Comment peut-elle se lancer seule lors de la saisie ?

Cordialement

Ci-joint le fichier

MARDEL

Excel 2013

Bonjour,

MARDEL a écrit :

ce n'est pas satisfaisant car le message ne s'affiche que lorsqu'on lance la macro.

Comment peut-elle se lancer seule lors de la saisie ?

il faut faire appel à une macro événementielle

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("R2")) Is Nothing Then Message_jauge_carburant
End Sub

Bonjour Steelson

Merci pour ta réponse.

J'ai téléchargé le fichier et malheureusement j'ai supprimé la macro "Lancement..." par erreur.

Lorsque je le télécharge à nouveau elle n'apparaît plus. Bizarre !!

J'ai essayé de la créer à partir du script que tu as mis mais j'ai un message d'erreur "attente d'un End" ou quelque chose comme ça.

Pourrais-tu me le renvoyer stp?

PS : j'avais modifié le R2 en Y2

Question subsidiaire :

Dans la macro "Message_alerte_carburant" peut-on afficher directement le nombre de litres qui apparaît en Y2 ?

Bonne journée

Cordialement

MARDEL

MARDEL a écrit :

Lorsque je le télécharge à nouveau elle n'apparaît plus. Bizarre !!

elle se trouve DANS la feuille correspondante et non dans un module

Ce n'est pas "Message_alerte_carburant" qui a sauté mais ta macro "Lancement..." car sur ta copie d'écran il n'y a pas :

"Private Sub Worksheet_Change(ByVal Target As Range)

End Sub"

Aurais-tu une solution pour ma 2ème question :

Dans la macro "Message_alerte_carburant" peut-on afficher directement le nombre de litres qui apparaît en Y2 ?

Cordialement

MARDEL

MARDEL a écrit :

Ce n'est pas "Message_alerte_carburant" qui a sauté mais ta macro "Lancement..." car sur ta copie d'écran il n'y a pas :

"Private Sub Worksheet_Change(ByVal Target As Range)

End Sub"

est-ce que c'est bon ? y a -t-il autre chose ?

MARDEL a écrit :

Aurais-tu une solution pour ma 2ème question :

Dans la macro "Message_alerte_carburant" peut-on afficher directement le nombre de litres qui apparaît en Y2 ?

voir dans le fichier

Je dois être dur de la comprenelle !!

Pour la 2ème question : super

Pour la première : la macro que tu avais créée pour un lancement automatique lors de la saisie n'apparaît pas et donc ne fonctionne pas.

Ou bien je n'ai rien compris.

Cordialement

MARDEL

il n'y a pas de macro "lancement ..."

en fait la macro que tu avais faite est activée dès lors que la zone R2 est modifiée (car c'est elle qui induit une variation de Y2)

j'ai aussi ajouté un message en ouverture

Private Sub Workbook_Open()
Message_jauge_carburant
End Sub

Super pour le message à l'ouverture

Par contre c'est Y2 qui doit générer le message et non R2

J'ai essayé de modifier le R2 en Y2 dans la macro mais ça ne fonctionne pas

à te lire

en effet, c'est ce que j'avais vu

ok je vais améliorer

essaie ceci

Excellent

Je te remercie beaucoup

Cordialement

MARDEL

merci pour ce retour