Bonjour a tous !
j'ai un ptit code qui fonctionne tres bien pour mettre les dates de la collones G a jour:
Donc quand j'ouvre mon classeur toute les date de rapel ce mette a la date d'aujourdhui
par contre j'aimerais egalement que :
Si les date de la collones G sont inferieur a aujourdhui alors que dans la collone H (de la meme ligne) soit vide ... j'ai essayer ca met ca passé pas :
Merci d'avance
j'ai un ptit code qui fonctionne tres bien pour mettre les dates de la collones G a jour:
Code:
Option Explicit
Sub majclient()
Dim g As Range
For Each g In Sheets("CLIENT").Range("G2:G65536")
If g < Date And g <> "" Then g = Date
Next g
End Sub
Donc quand j'ouvre mon classeur toute les date de rapel ce mette a la date d'aujourdhui
par contre j'aimerais egalement que :
Si les date de la collones G sont inferieur a aujourdhui alors que dans la collone H (de la meme ligne) soit vide ... j'ai essayer ca met ca passé pas :
Code:
Option Explicit
Sub majclient()
Dim g As Range
Dim h As Range
For Each h In Sheets("CLIENT").Range("h2:h65536")
If g < Date And g <> "" Then h = ""
Next h
For Each g In Sheets("CLIENT").Range("G2:G65536")
If g < Date And g <> "" Then g = Date
Next g
End Sub
Merci d'avance