msgBox

[Maguy]

Bonjour!

J'aimerais savoir si quelqu'un pourrais vérifier mon code pour savoir quel est mon erreur;

IF k45 = l45 MsgBox("Ce lot est terminé",VbMsgBoxStyle=VbOKonly,"AVIS",,) then "_"
END IF
Ceci est pour faire apparaitre un msgbox pour avertir l'usager que le lot est terminé quand il ira sur la feuille du lot en question.

Merci beaucoup

 

[Pascal76]

Bonjour

cette ligne suffit

If k45 = 145 Then MsgBox "Ce lot est terminé", vbOKOnly, "AVIS"

Bonne journée

Pascal

 

[Maguy]

Merci pascal,

mais maintenant pour la faire apparaitre lors que la feuille est sélectionner???
un gros merci!!!

 

[Pascal76]

tu places ce code dans

Private Sub Worksheet_Activate()

If k45 = 145 Then MsgBox "Ce lot est terminé", vbOKOnly, "AVIS"

End Sub

Pascal

 

[Maguy]

Wow!

Merci beaucoup pascal t'es un ange