Lancer un événement dans une macro

Question

J'ai créé l'événement ci-dessous : Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' La variable KeyCells contient les cellules qui déclencheront ' une alerte si elles sont modifiées. Set KeyCells = Range("B10") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then ' Affichage d'un message lorsque l'une des cellules désignées ' a été modifiée. ' Placez votre code ici. If MsgBox("Etes-vous certain du numéro de contrat ?", vbYesNo, "Demande de confirmation") = vbYes Then Call M1_SAISIE_NOM_TECHN End If End If End Sub Cela fonctionne sans problème. Mais ensuite ma macro vérifie que le numéro du contrat existe bien et s'il n'existe pas je voudrais appeler de nouveau l'événement. Comment faire ? Si dessous la macro ou je voudrais à la place de GoTo 10 lancer de nouveau l'événement..... 'Si contrat pas existant, message d'erreur If session.findById("wnd&#91;0&#93;/sbar").Text &lt;&gt; "" Then 'MsgBox ("Ce numéro de contrat n'existe pas, merci de le resaissir") session.findById("wnd&#91;0&#93;").maximize session.findById("wnd&#91;0&#93;/tbar&#91;0&#93;/btn&#91;3&#93;").press GoTo 10 MsgBox ("Ce numéro de contrat n'existe pas, merci de le resaissir") Else: GoTo 30 End If D'avance merci de votre aide...

Dan · Answer

Le numéro de contrat est situé dans quelle cellule et quelle feuille ? Crdlt...

Dan · Answer

Ré,

Ou je n'ai pas compris ou tu ne comprends pas ma demande.

J'ai bien vu que le contrat se place en b10 mais tu vérifies que le contrat existe bien.

Comment tu es sur de cette information ?

Soit tu compares avec une donnee existante ailleurs dans ton fichier ou soit tu regardes ta cellule pour vérifier que ce que tu as écris dans cette cellule existe bien.

Avec ton code si le numéro n existe pas tu sors de la macro. Dans ce cas on pourrait vider la cellule b10.

Explique moi comment tu procédes

Dan · Answer

Re, dans ta feuille remplace le code par celui-ci dessous Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range If Range("B10") = "" Then Exit Sub ' La variable KeyCells contient les cellules qui déclencheront une alerte si elles sont modifiées. Set KeyCells = Range("B10") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then ' Affichage d'un message lorsque l'une des cellules désignées a été modifiée. ' Placez votre code ici. If MsgBox("Etes-vous certain du numéro de contrat ?", vbYesNo, "Demande de confirmation") = vbYes Then _ Call M1_SAISIE_NOM_TECHN End If End Sub Dans le 2eme code, remplace MsgBox ("Ce numéro de contrat n'existe pas, merci de le resaissir") par MsgBox ("Ce numéro de contrat n'existe pas, merci de le resaissir"): Range("B10").ClearContents Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse pour cloturer le fil Cordialement...

Dan · Answer

Re, Il faudrait que tu dises un peu ce qui ne va pas. Car je n'ai pas tout le code ou le fichier et la partie SAP, je ne peux la vérifier Supprime déjà ces deux lignes GoTo 10 ' Retour à la saisie de la cellule B10 si le contrat n'existe pas Else: GoTo 30 ' La macro continue à se dérouler si le contrat existe.... Ensuite modifie la ligne : MsgBox ("Ce numéro de contrat n'existe pas, merci de le resaissir"): Range("B10").ClearContents : Range("B10").select A te relire...

Dan · Answer

Re, Remplace MsgBox ("Ce numéro de contrat n'existe pas, merci de le resaissir"): Range("B10").ClearContents: Range("B10").Select par MsgBox ("Ce numéro de contrat n'existe pas, merci de le resaissir"): Range("B10").ClearContents: Range("B10").Select : EXIT SUB essaie aussi d'utiliser les balises (CODE) lorsque tu places un code sur le forum, c'est nettement plus facile à lire Crdlt...