C
carlos
Guest
Bonsoir
tout fier de creer ma premiere vrai macro ; je m'apercois qu"elle modifie l'horloge interne de mon pc de 77 jours à chaque execution ( 7*11)
si qq'un peut m'aider , je ne suis pas merlin l'enchanteur ...
Sub dateur()
Dim dater As Date
Dim i As Byte
For i = 1 To 10
Range("d" & Range("d30").End(xlUp).Row + 1) = Date + i * 7
If Date + i * 7 > Range("a3") Then
Date = Date + 7
End If
Next
End Sub
merci
tout fier de creer ma premiere vrai macro ; je m'apercois qu"elle modifie l'horloge interne de mon pc de 77 jours à chaque execution ( 7*11)
si qq'un peut m'aider , je ne suis pas merlin l'enchanteur ...
Sub dateur()
Dim dater As Date
Dim i As Byte
For i = 1 To 10
Range("d" & Range("d30").End(xlUp).Row + 1) = Date + i * 7
If Date + i * 7 > Range("a3") Then
Date = Date + 7
End If
Next
End Sub
merci