Notification pop-up à l'ouverture

Bonjour,

je souhaite avoir une pop-up à l'ouverture de mon fichier Excel selon des dates d'échéance.

J'ai réussi à le faire mais j'ai une pop-up par date.

je voudrais regrouper le tout en une seule pop-up et récupérer la référence du contrat à renouveler.

For Each cell In Range("J2:J50")
If cell.Value < Date + 90 And cell.Value <> "" Then
MsgBox "Le Contrat" & cell.Value(Row, A) & "à renouveler", vbExclamation
End If
Next

End Sub

La référence contrat est dans la colonne A et les date en Colonne J. Ma recherche de valeur n'est surement pas la bonne.

Est-ce que quelqu'un peut m'aider

merci

Bonjour

Stocker les infos dans une variable et l'afficher une fois en sortie de boucle

For Each cell In Range("J2:J50")

If cell.Value < Date + 90 And cell.Value <> "" Then

Mon_gros_pop_up = Mon_gros_pop_up & " , " & cell.Value(Row, A)

End If

Next

MsgBox "Les Contrats" & Mon_gros_pop_up & "sont à renouveler", vbExclamation

End Sub

Bonjour,

j'ai une erreur 450 : Nombre d'arguments incorrect ou affection de propriété incorrecte.

Rebonjour,

Dans le code que tu as mis il y a cell.Value(Row, A) et c'est ca qui pose problème et qui genere erreur 450

Voila un code qui fonctionne

Sub Macro1()
Dim Mon_gros_pop_up As String
For Each cell In Range("J2:J50")
If cell.Value < Date + 90 And cell.Value <> "" Then
Mon_gros_pop_up = Mon_gros_pop_up & " , " & Range("A" & cell.Row).Value
End If
Next
MsgBox "Les Contrats" & Mon_gros_pop_up & "sont à renouveler", vbExclamation
End Sub

Parfait Merci !