Soustraction de date en vba

Re : Soustraction de date en vba

bonsoir,

Quelques corrections (le nom de feuille n'est pas "futur" mais "Avenir" , Date à la place de today)

Il te faut écrire le code nécessaire à ce que tu veux faire à la place de Msgbox ....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
Dim cell As Range
j = 2

Do Until ActiveWorkbook.Sheets("Avenir").Cells(j, 1) & "" = ""


For Each cell In Sheets("Avenir").Cells(j, 1)
a = cell.Value - 8
If cell.Value - 8 > Date Then

MsgBox "ok"
End If
j = j + 1

Next cell
Loop

End Sub

Re : Soustraction de date en vba

Bonsoir CHALET53 et merci pour ton aide 🙂

Ton code marche impec (cependant c'était inferieur au lieu de superieur, un detail 😛)

J'ai des difficultes pour mon copier/coller (qui remplace mon msgbox)

Si la date dans Avenir est < à aujourd'hui, je souhaite couper cette ligne et la coller à la fin de Encours.

J'ai un souci dans ma boucle je pense... une idée?

merci de ton aide !


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
Dim cell As Range
j = 2

Do Until ActiveWorkbook.Sheets("Avenir").Cells(j, 1) & "" = ""


For Each cell In Sheets("Avenir").Cells(j, 1)
a = cell.Value - 8
If cell.Value - 8 > Date Then

Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy

With Sheets("Encours")

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
End With
End If
j = j + 1

Next cell
Loop

End Sub

Re : Soustraction de date en vba

Bonjour, tprlechef, CHALET53, le Forum,

Une autre suggestion, à placer dans l'onglet "Encours" :


A bientôt 🙂

Re : Soustraction de date en vba

Merci DoubleZero 🙂

c'est top !