VBA message box dans un autre onglet

Bonjour à tous,

J'ai un pb pour créer un message d'erreur lorsqu'une donnée apparait dans un onglet X et que le message doit apparaitre dans l'onglet Y

Je m'explique :

J'ai créé un planning (voir ci-joint)

Onglet Planning : on saisie les acteurs, moyens et activités

Onglet Dispo : disponibilité des acteurs et moyens.

A créer : message d'erreur lorsque dans l'onglet Dispo le OK devient erreur. Mais je voudrais que ce message apparaisse dans l'onglet Planning.

Pouvez-vous m'aider ?

Merci

Cordialement

Florence

Bonjour,

Avec une procédure évenementielle sur la feuille Planning étant donné que la feuille Dispo est dépendante de tes choix renseignés dans la Feuille Planning, toute modification de cette feuille peut donner une erreur en Dispo qui est alors évaluée par la fonction VBA .Find.

Cf. Fichier joint avec action personnalisable.

Cdlt,

Bonjour Ergotamine,

Ca fonctionne bien.

Merci beaucoup

A bientôt

Bonjour,

A partir toujours du même planning j'ai à nouveaux besoins d'aide.

A partir de la macro d'Ergotamine

Private Sub Worksheet_Change(ByVal Target As Range)

Set ERREUR = Worksheets("Dispo").Range("D:I").Find(What:="erreur*", LookIn:=xlValues)
If Not ERREUR Is Nothing Then
MsgBox ("Surutilisation d'un salarié ou d'un moyen")

End If
End Sub

J'aimerais que la macro s'arrête à partir du moment où le message s'est affiché une fois et qu'on a cliqué sur OK. Malheureusement la condition est toujours vrai (lorsque l'on a pas fait de modification volontairement suite à l'erreur) et donc je n'arrive pas à l'arrêté.

Avez-vous une solution ?

Merci

Florence