ISOLER DES CELLULES GRISES
Bonjour
Jai une macro qui a partir de l'année d'une date saisi me colorie en rouge toutes les cellules dans lesquelles cette année apparait
je souhaiterais isoler dans une autre feuille toutes les cellules en rouge
merci :)
voici le code de ma macro et le fichier correspondant
MERCIII DE VOTRE AIDE
Jai une macro qui a partir de l'année d'une date saisi me colorie en rouge toutes les cellules dans lesquelles cette année apparait
je souhaiterais isoler dans une autre feuille toutes les cellules en rouge
merci :)
voici le code de ma macro et le fichier correspondant
Sub date_2()
Dim X As Variant
Dim Cel As Range
X = Application.InputBox("Année de la date", "ANNÉE", Type:=1)
If X = False Then Exit Sub
Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart)
If Not Cel Is Nothing Then
PA = Cel.Address
Do
Cel.Interior.ColorIndex = 3
Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel)
Loop While Not Cel Is Nothing And Cel.Address <> PA
End If
End Sub
MERCIII DE VOTRE AIDE
