XL 2016 recherche cellule avec ecriture couleur

nico131 · 21 Mai 2017

Bonjour,
Je souhaite récupérer des données de cellules écrites d'un certaine couleur (manuel pas mfc). Voir fichier joint pour que se soit plus compréhensible.

Dans l'attente de vos réponses si cela est faisable

cdlt

DoubleZero · 21 Mai 2017

Bonjour, nico131, le Forum,

Si j'ai bien compris... Ajouter un onglet nommé "Résultat" et loger le code ci-après dans un module standard.

VB:

Option Explicit
Sub Couleur_x_récupérer()
    Dim c As Range
    On Error Resume Next
    Sheets("Résultat").Range("a:c").Clear
    For Each c In Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants, 1)
        If c.Font.Color = 15773696 Then c(1, -1).Resize(, 3).Copy Sheets("Résultat").Range("a" & Rows.Count).End(xlUp)(2)
    Next
End Sub

A bientôt 🙂

XL 2016 recherche cellule avec ecriture couleur

nico131

XLDnaute Junior

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Discussions similaires

XL 2016 recherche cellule avec ecriture couleur

nico131

XLDnaute Junior

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency