afficher ce message

[DAMIEN]

Bonjour,
je voudrai lancer ce message
Sub infonoire()
Dim information
Dim Title
information = "Ce navire est sur la LISTE NOIRE."
Title = "Information"
Réponse = MsgBox(information, 64, Title)
End Sub

lorsque la cellule que je viens de remplir dans la collone R = noire
merci

 

[jaccard]

Hello, si ce message doit s'afficher quand dans la même ligne de la cellule saisie et à la colonne x il y a "noire"
Ecris dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim strTitle, strInformation As String
Dim intColumn As Integer

'numéro de colonne
intColumnX = 5

If Ucase(Me.Cells(Target.Row, intColumnX).Value) = "NOIRE" And Target.Column <> intColumnX Then
strInformation = "Ce navire est sur la LISTE NOIRE."
strTitle = "Information"
MsgBox strInformation, vbInformation + vbOKOnly, strTitle
End If
End Sub

Aux fines herbes

 

[DAMIEN]

merci

mais rien ce passe

 

[DAMIEN]

merci ça marche