Rapport de message :*
 

Re: Afficher une msgbox

Titre du sujet : Re: Afficher une msgbox
par Parafun le 25/01/2021 09:58:43

Merci pour le retour

 

En effet ça mérite un complément d'information, 

dans l'onglet " introduire des Pylones", des données sont injectées en lançant la macro depuis une autre fichier. Ce fichier est une extraction pour l'exercice, le fichier principal est trop volumineux

La colonne f permet de recueillir l'identité de chaque pylone. Il peut y avoir doublon (car le pylone est sur 2 commune par exemple). Si Il y a doublon alors une alerte MSGBOX est déclenchée pour que l'operateur fasse une analyse (supprimer ou pas le doublon)

Voici le code que j'ai initié et qui me donne en partie satisfaction :

Sub Alerte()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 9).Value <> Cells(1, 11) Then
MsgBox "ATTENTION AU MOINS UN PYLONE EST EN DOUBLON!", , "CTO"
 End If

End Sub

Une fois le message affiché Je souhaite qu'il disparaisse définitivement lorsque l'operateur clique sur ok.

Encore Merci