Bonjour @ tout le forum
Je vous joints le fichier
J’aurais besoin d’aide pour contrôlé mon tableau, en même temps m’aide à adapter cette macro que j’ai trouver sur le net.
Ce que je voudrais c’est une alerte de contrôle 5 jours avant en jaune,3 ours avant en orange ,1 ours avant en rouge après avoir reçu l’attestation de contrôle un report de 20 jours d’ou la macro.
Car les grues on des contrôle tous les x jours jusqu’à la fin du chantier et a la fin du chantier plus de rappel.
Cette macro est compliqué pour moi.
Merci d’avance de votre aide
Sub suiviDatNaissance()
Dim w1 As Worksheet
Dim i As Long
Dim Z As Long
Dim D As Date
Set w1 = Sheets("FEUIL1") 'Feuille qui contient les alertes
D = Date
For i = 2 To w1.Range("A" & Rows.Count).End(xlUp).Row ' faire toute la colonne A
p = D - w1.Range("A" & i)
If p > -5 And p <= 0 Then
MsgBox w1.Range("A" & i) & ": est la date de l'anniversaire de : " & " " & w1.Range("B" & i)
End If
Next
'reporter (+ une année) les taches expirées
Application.ScreenUpdating = False
For Z = w1.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If IsDate(w1.Cells(Z, 1)) Then
If CDate(w1.Cells(Z, 1)) < D Then
If MsgBox("L'anniversaire de : " & w1.Range("B" & Z) & " est déja passé !!! voulez vous mettre à jour ??", vbExclamation + vbYesNo) = vbYes Then
w1.Cells(Z, 1) = DateAdd("yyyy", 1, w1.Cells(Z, 1))
Else
w1.Cells(Z, 1).EntireRow.Delete
End If
End If
End If
Next Z
End Sub
Je vous joints le fichier
J’aurais besoin d’aide pour contrôlé mon tableau, en même temps m’aide à adapter cette macro que j’ai trouver sur le net.
Ce que je voudrais c’est une alerte de contrôle 5 jours avant en jaune,3 ours avant en orange ,1 ours avant en rouge après avoir reçu l’attestation de contrôle un report de 20 jours d’ou la macro.
Car les grues on des contrôle tous les x jours jusqu’à la fin du chantier et a la fin du chantier plus de rappel.
Cette macro est compliqué pour moi.
Merci d’avance de votre aide
Sub suiviDatNaissance()
Dim w1 As Worksheet
Dim i As Long
Dim Z As Long
Dim D As Date
Set w1 = Sheets("FEUIL1") 'Feuille qui contient les alertes
D = Date
For i = 2 To w1.Range("A" & Rows.Count).End(xlUp).Row ' faire toute la colonne A
p = D - w1.Range("A" & i)
If p > -5 And p <= 0 Then
MsgBox w1.Range("A" & i) & ": est la date de l'anniversaire de : " & " " & w1.Range("B" & i)
End If
Next
'reporter (+ une année) les taches expirées
Application.ScreenUpdating = False
For Z = w1.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If IsDate(w1.Cells(Z, 1)) Then
If CDate(w1.Cells(Z, 1)) < D Then
If MsgBox("L'anniversaire de : " & w1.Range("B" & Z) & " est déja passé !!! voulez vous mettre à jour ??", vbExclamation + vbYesNo) = vbYes Then
w1.Cells(Z, 1) = DateAdd("yyyy", 1, w1.Cells(Z, 1))
Else
w1.Cells(Z, 1).EntireRow.Delete
End If
End If
End If
Next Z
End Sub
