Bonjour,
Je viens solliciter votre aide pour finaliser ma macro.
j'aimerais déclarer ma variable DateDeb et DateFin que je n'arrive pas pour la fonction datediff ci -joint la macro
Sub Macro4()
Application.ScreenUpdating = False
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim CalculSem As Variant
Dim DateDeb As Date
Dim DateFin As Date
Set FL1 = Worksheets("Feuil1")
With FL1
Set Plage = .Range("A3:A" & [G65356].End(xlUp).Row)
Plage.Offset(, 1).Resize(, 17).Interior.ColorIndex = xlNone
For Each Cell In Plage
If Cell <> "" Then
DateDeb = Range("G1").Value 'colonne avec les date de présence
DateFin = Range("X2").Value 'date du jour a la cellule X2
CalculSem = DateDiff("ww", DateDeb, DateFin, vbMonday) + 1
'If Cell.Value = "ATTENTE PO" Then Cell.Offset(, 16).Value = CalculSem
If Cell.Value = "ATTENTE PO" And Cell.Offset(, 6) < Date - 22 Then Cell.Offset(, 16).Value = CalculSem
End If
Next Cell
End With
Set FL1 = Nothing
Set Plage = Nothing
Application.ScreenUpdating = True
End Sub
merci pour votre aide
Je viens solliciter votre aide pour finaliser ma macro.
j'aimerais déclarer ma variable DateDeb et DateFin que je n'arrive pas pour la fonction datediff ci -joint la macro
Sub Macro4()
Application.ScreenUpdating = False
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim CalculSem As Variant
Dim DateDeb As Date
Dim DateFin As Date
Set FL1 = Worksheets("Feuil1")
With FL1
Set Plage = .Range("A3:A" & [G65356].End(xlUp).Row)
Plage.Offset(, 1).Resize(, 17).Interior.ColorIndex = xlNone
For Each Cell In Plage
If Cell <> "" Then
DateDeb = Range("G1").Value 'colonne avec les date de présence
DateFin = Range("X2").Value 'date du jour a la cellule X2
CalculSem = DateDiff("ww", DateDeb, DateFin, vbMonday) + 1
'If Cell.Value = "ATTENTE PO" Then Cell.Offset(, 16).Value = CalculSem
If Cell.Value = "ATTENTE PO" And Cell.Offset(, 6) < Date - 22 Then Cell.Offset(, 16).Value = CalculSem
End If
Next Cell
End With
Set FL1 = Nothing
Set Plage = Nothing
Application.ScreenUpdating = True
End Sub
merci pour votre aide