Copier uniquement les cellules qui contiennent un fond de couleur

Bonjour,

Je souhaiterais copier UNIQUEMENT les cellules d'une colonne "D" qui contiennent un fond cellule RGB(192.192.192) (gris) de la "feuille 1" dans un tableau récapitulatif "en feuille 2".

Est-ce possible ?

Je vous remercie par avance, cela m'aiderais grandement.

Quentin.

Bonjour à tous!

quentinrc, oui c'est possible mais sans fichier représentatif à savoir où devront être copiées les cellules ...difficile à mettre en place

une piste pour débuter

Sub test()
Dim c As Variant
For Each c In Range("A1:D4")
If c.Interior.Color = RGB(192, 192, 192) Then
c.Copy Destination:=Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next c
End Sub

Bonne journée!

Bonjour,

Merci Nirdik_Nation pour la piste, je vais essayer de faire quelque chose en me basant sur votre code.

Je vous tiendrais au courant.

Bonne journée !

Bonjour,

je n'ai pas réussi a faire ce que je voulais, je vous joins donc un fichier simplifier mais structuré de la même façon.

Je souhaite copier les uniquement les cellules en couleur (chapitre, deb page et pages) de la feuille "analyse" et les collée dans la deuxième feuille "récap" au emplacement prédéfinis.

Je vous remercie d'avance pour les réponses qui me seront données.

Quentin.

Bonsoir à tous!

quentinrc, éviter les cellules fusionnées le VBA n'aime pas ça

Bonne soirée !

merci beaucoup Nordik_nation!!

bonne journée