VBA Mise a jour de la date et collone suivante

[Bens7]

Bonjour a tous !
j'ai un ptit code qui fonctionne tres bien pour mettre les dates de la collones G a jour:

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 :

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

 

[gilbert_RGI]

Re : VBA Mise a jour de la date et collone suivante

bonjour,

comme ceci

Option Explicit

Sub majclient()
    
    Dim h As Range

    For Each h In Sheets("CLIENT").Range("h2:h65536")
        If h.Offset(0, -1) < Date And h.Offset(0, -1) <> "" Then
            h = ""
            h.Offset(0, -1) = Date
        End If
    Next h


End Sub