XL 2016 Rechercher les valeur en fonction de la couleur

[Kenzo1968]

Bonjours,

je cherche à utiliser la fonction Recherche V

Concrètement j´ai des cellule texte colorisé en rouge avec une valeur. Sur un autre onglet et je voudrais les exporter sur un autre onglet

 

[fanch55]

Bonjour,
une solution par macro :

Sub Copy_Tot()
    Worksheets("Feuil2").Cells.Clear
    With Worksheets("Feuil1")
        .[A:B].AutoFilter
        lr = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("$A1:$B" & lr).AutoFilter _
            Field:=1, Criteria1:=vbRed, Operator:=xlFilterFontColor
        .Range("$A2:$B" & lr).Cells.SpecialCells(xlCellTypeVisible).Copy
        Worksheets("Feuil2").[A1].PasteSpecial xlPasteValuesAndNumberFormats
        .[A:B].AutoFilter
    End With
End Sub

 

[Kenzo1968]

grand merci ça fonctionne nickel