XL 2013 Peut-on simplifier ce code VBA?

[Halffy]

Bonjour à tous,

Je souhaiterais vous joins un fichier (qui fonctionne), mais serait-il possible d'en simplifier la routine ("même" routine écrite 6 fois d'affilée)?
Merci de votre concours,

Cordialement /.

 

[JBARBE]

Bonjour à tous,
Peut-être ceci en faisant une boucle :

Sub Macro2()

With Sheets("Feuil1").Cells
For i = 1 To 6

Set result = .Find(Format(Date - i, "m/d/yy"), LookIn:=xlValues)
If Not result Is Nothing Then
FirstAddress = result.Address
Range(FirstAddress).Select

ActiveCell.Offset(0, -1).Select
  With Selection.Interior
   .Color = 15773696
End If
Next i
    End With


End Sub

Bonne journée !

 

[Halffy]

Impec! Merci [U]JBARBE,[/U] Cela fait plus Pro, tout de meme, il n'y a pas photo 😉🙂

 

[pierrejean]

Bonjour Halffy

A tester:

Sub Macro3()
With Sheets("Feuil1").Cells
For n = 1 To 6
  Set result = .Find(Format(Date - n, "m/d/yy"), LookIn:=xlValues)
     If Not result Is Nothing Then
          result.Offset(0, -1).Interior.Color = 15773696
     End If
Next n
End With
End Sub

Edit Salut JBARBE

 

[Halffy]

Bonjour PierreJean,

Encore mieux !! 😎
Merci beaucoup de ta contribution également /
Cela fait vraiment encore plus Pro 😀