XL 2013 Peut-on simplifier ce code VBA?

Halffy

XLDnaute Occasionnel
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 /.
 

Pièces jointes

  • Listing_Essai2.xlsm
    81.6 KB · Affichages: 7
Solution
Bonjour à tous,
Peut-être ceci en faisant une boucle :
VB:
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 !

JBARBE

XLDnaute Barbatruc
Bonjour à tous,
Peut-être ceci en faisant une boucle :
VB:
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 !
 

pierrejean

XLDnaute Barbatruc
Bonjour Halffy

A tester:
VB:
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
 
Haut Bas