XL 2013 Peut-on simplifier ce code VBA?

JBARBE

XLDnaute Barbatruc

• 8 Avril 2020

• #2

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 !

 

Vote positif 0 Vote négatif

Solution

H

Halffy

XLDnaute Occasionnel

• 8 Avril 2020

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Avril 2020

• #4

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

 

Vote positif 0 Vote négatif

H

Halffy

XLDnaute Occasionnel

• 8 Avril 2020

• #5

Bonjour PierreJean,

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

 

Vote positif 0 Vote négatif