Re : Alerte Date du mois
Re Paf,
J'ai voulu modifier le code pour que le message d'alerte me dise "Attention contrat UNTEL à renouveler le [date de renouvellement]" comme cela :
Sub Macro111()
'Définition des variables :
Dim ColDossier As String, ColDate As String
Dim MonMessage As String
'Affectation des variables
ColDossier = "A"
ColDate = "AY"
'Départ de la boucle à la dernière cellule de la feuille
ActiveCell.SpecialCells(xlLastCell).Select
Cells(ActiveCell.Row, ColDate).Select
Selection.End(xlUp).Select
'Début Boucle :
Do While ActiveCell.Row > 1 'pas d'action sur les lignes 1 à 1
If ActiveCell.Value > DateSerial(Year(Date), Month(Date), 1) And ActiveCell.Value < DateSerial(Year(Date), Month(Date) + 2, 0) Then 'controle valeur de date
MonMessage = MonMessage & _
"Attention contrat " & _
IIf(Cells(ActiveCell.Row, ColDossier).Value = "", _
Cells(ActiveCell.Row, ColDossier).End(xlUp).Value, _
Cells(ActiveCell.Row, ColDossier).Value) & _
" à renouveler le " & _
Cells(ActiveCell.Row, ColDate).Value & _
" ! " & Chr(13) 'affiche le message
End If
ActiveCell.Offset(-1, 0).Select 'passe une ligne
Loop
'Fin Boucle.
MsgBox MonMessage
End Sub
Le problème c'est que cela ne marche mais qu'à moitié
En effet il me donne bien la liste mais celle-ci est tronquée à savoir qu'il s'arrête avant la fin de la liste et au milieu du message. Par exemple au lieu de me donner la liste complète des 23 contrats à renouveler, il ne m'en donne que 21 et encore le 21ème ne me donne pas le date de renouvellement. Je ne comprend pas .