ILOVEUBB
XLDnaute Occasionnel
bonjour
je bloque actuellement sur un problème , je cherche dans un classeur excel la colonne ("H") la date du jour +2 soit deux jour après la date du jour et afficher un msgbox a l'ouverture du classeur , mais je bloque
j'ai ce code il marche bien sur la version 32bit mais pas sur la 64bit que j'utilise
code :
Dim c As Range
Dim X As String
X = vbTab & vbTab & vbTab
Application.ScreenUpdating = False
With Feuil1 'Nom feuille à adapter
'Colonne à adapter
With .Range("C1:C" & .Range("C65536").End(xlUp).Row)
.AutoFilter field:=1, Criteria1:=">" & Date * 1, _
Operator:=xlAnd, Criteria2:="<=" & _
DateSerial(Year(Date), Month(Date), Day(Date) + 2) * 1
For Each c In .SpecialCells(xlCellTypeVisible)
If IsDate(c) Then
With c
Message = .Offset(, -2) & _
.Offset(, -1) & X & vbCrLf
End With
End If
Next
.AutoFilter
End With
End With
Application.ScreenUpdating = False
If Message <> "" Then
MsgBox Message, , "Attention Date Prévu(s): "
End If
quelqu'un peut m'aidez
merci
je bloque actuellement sur un problème , je cherche dans un classeur excel la colonne ("H") la date du jour +2 soit deux jour après la date du jour et afficher un msgbox a l'ouverture du classeur , mais je bloque
j'ai ce code il marche bien sur la version 32bit mais pas sur la 64bit que j'utilise
code :
Dim c As Range
Dim X As String
X = vbTab & vbTab & vbTab
Application.ScreenUpdating = False
With Feuil1 'Nom feuille à adapter
'Colonne à adapter
With .Range("C1:C" & .Range("C65536").End(xlUp).Row)
.AutoFilter field:=1, Criteria1:=">" & Date * 1, _
Operator:=xlAnd, Criteria2:="<=" & _
DateSerial(Year(Date), Month(Date), Day(Date) + 2) * 1
For Each c In .SpecialCells(xlCellTypeVisible)
If IsDate(c) Then
With c
Message = .Offset(, -2) & _
.Offset(, -1) & X & vbCrLf
End With
End If
Next
.AutoFilter
End With
End With
Application.ScreenUpdating = False
If Message <> "" Then
MsgBox Message, , "Attention Date Prévu(s): "
End If
quelqu'un peut m'aidez
merci