Copier coller en fonction des couleurs

Bonjour,

Je cherche un code qui va copier les cellules colorer en jaune dans une feuille d’un classeur et va coller uniquement les valeurs au même endroit (meme cellules colorées mais sans la valeur) dans un autre classeur (ce sont des classeur identiques).

Merci d’avance pour votre aide!

Bonjour Dylan, bonjour le forum,

Il y a un e multitude de jaunes différents. Du jaune pisseux au jaune cocu en passant par le jaune cerise (beaucoup plus rare j'en conviens). Hormis ce cours de coloriste et plus sérieusement, un fichier exemple serait le bienvenu pour te proposer un code fonctionnel... Et puis tiens, je mets le texte en jaune aussi ! C'est plus dur à lire mais c'est de circonstance...

Merci pour ce magnifique jaune!

Le jaune que je souhaite utilisé est le n°6!

Voici en PJ par exemple passé les valeur du classeur 1 colorées en jaune sur le classeur 2 sur les même cellules vides en jaune.

J'ai juste le code pour sélectionner les cellule d'une feuille en jaune..

Sub test()
 Dim Cel As Range, pl As Range
    For Each Cel In Range("A1:I30") 
        If Cel.Interior.ColorIndex = 6 Then
            If Not pl Is Nothing Then Set pl = Union(pl, Cel) Else Set pl = Cel
        End If
    Next Cel
    pl.Select
End Sub

Sub test()
 Dim Cel As Range, pl As Range
    For Each Cel In Range("A1:I30")    'à adapter
        If Cel.Interior.ColorIndex = 6 Then
            If Not pl Is Nothing Then Set pl = Union(pl, Cel) Else Set pl = Cel
        End If
    Next Cel
    pl.Select
End Sub

Re,

Je ne comprends pas ton exemple. Tout est coloré. Dans ce cas il suffit de copier/coller la plage. Je ne vois pas l'intérêt...

J'ai cela à faire sur une centaine de feuille et sur des feuilles beaucoup plus grandes