Sélection lignes selon couleur colonne

[cookiedelu]

Bonjour à tous,

Comme beaucoup, je suis un grand débutant des macros Excel et je bloque sur la dernière partie de la mienne. J'espère que vous pourrez m'aider un tout petit peu.
J'explique mon problème :

J'ai une feuille feuil1 dans un classeur Lambda qui contient un tableau de 8 colonnes sur plusieurs centaines de lignes.
Une douzaine de ces lignes a la colonne A en couleur (mise manuellement).
Je souhaite sélectionner les lignes dont la colonne A est en couleur pour les copier et les coller dans un autre classeur.

Quelqu'un pourrait-il me donner les grandes lignes ?

Merci infiniment.

Cookie

[Staple1600]

Bonsoir


Tu peux essayer de partir de cette macro

Sub CopyColor() 
'auteur: Dave Hawley
    Dim rReply As  Range, rCell As Range 
    Dim lCol As Long 
     
    Set rReply = Application.InputBox _ 
    (Prompt:="Sélectionner une cellule colorée de référence, pour procéder à la copie", Type:=8) 
     'couleur des cellules à copier
    lCol = rReply.Interior.ColorIndex 
     
    For Each rCell In ActiveSheet.UsedRange 
        If rCell.Interior.ColorIndex = lCol Then 
'si la cellule a la bonne couleur
'recopie vers la feuille 2
            rCell.Copy Destination:=Sheet2.Range("A65536").End(xlUp)(2, 1) 
        End If 
    Next rCell 
     
End Sub

[cookiedelu]

Merci beaucoup pour ta réponse rapide. Je n'ai pas eu le temps de faire le test plus tôt.
J'ai donc essayé ce code en le customisant mais il ne me copie que la première colonne. Y aurait-il une solution pour qu'il me copie toute la ligne ?

[skoobi]

Bonjour cookiedelu, salut JM ,

pourrais-tu envoyer ce code "customisé" qu'on voit ce qui ne va pas?

[cookiedelu]

Bonsoir à tous,
Quand je parle de customisation, je parle à vrai dire d'adaptation pour ma macro. je m'explique donc :

J'ai activé mon classeur avec la feuille qui va bien puis j'ai inséré le code.

Sub CopyColor() 
'auteur: Dave Hawley
    Dim rReply As  Range, rCell As Range 
    Dim lCol As Long 
     
    Set rReply = Application.InputBox _ 
    (Prompt:="Sélectionner une cellule colorée de référence, pour procéder à la copie", Type:=8) 
     'couleur des cellules à copier
    lCol = rReply.Interior.ColorIndex

Donc il m'a demandé de choisir ma cellule afin de prendre son contenu ce que j'ai fait puis il a commencé à faire son travail (d'ailleurs j'ai dû changer un paramètre ou deux parce qu'à l'origine il passait pas à la cellule suivante et me recopiait les deux premières colonnes parce que la colonne B est également dans la même couleur).

    For Each rCell In ActiveSheet.UsedRange 
        If rCell.Interior.ColorIndex = lCol Then 
'si la cellule a la bonne couleur
'recopie vers la feuille 2
            rCell.Copy Destination:=Workbooks("mon_classeur").Sheets("ma_feuille").Range("A65536").End(xlUp)(2, 1) 
        End If 
    Next rCell 
     
End Sub

C'est sur la partie .End(xlUp)(2, 1) que j'ai changé le paramètre pour qu'il me prenne que la colonne A -> (1,1) ou quelque chose comme ça (désolé je n'ai plus le code devant mes yeux).
Et donc il m'a recopié la colonne A sans problème.
Voilà voilà, s'il y a un besoin de prendre la macro exacte, je pourrai vous la fournir en début de semaine.

Par la même occasion, serait-il possible de définir la couleur sans qu'il la demande à chaque fois que je lance la macro car la couleur ne change jamais.

Merci beaucoup.

[Staple1600]

Bonjour à tous

EDITION: ce qui donnerait pour la couleur jaune par exemple

EDITION2:
Remplacer la ligne en en gras par cette ligne orange
'Pour copier "la ligne" dont la cellule de la colonne A a la bonne couleur
rCell.Resize(1, rCell.End(xlToRight).Column).Copy Destination:=Sheets("Feuil2").Range("A65536").End( xlUp)(2, 1)

Sub CopyColor()
'auteur: Dave Hawley
Dim rCell As Range
Dim lCol As Long
lCol = 6
    For Each rCell In Range("A1:A" & [A65536].End(xlUp).Row)
        If rCell.Interior.ColorIndex = lCol Then
        rCell.Copy Destination:=Sheets("Feuil2").Range("A65536").End(xlUp)(2, 1)
        'adapter le nom du classeur et le nom de la feuille
    End If
    Next rCell
End Sub

Par la même occasion, serait-il possible de définir la couleur sans qu'il la demande à chaque fois que je lance la macro car la couleur ne change jamais.

Supprime ces lignes en bleu
Set rReply = Application.InputBox _
(Prompt:="Sélectionner une cellule colorée de référence, pour procéder à la copie", Type:=8)
'couleur des cellules à copier
lCol = 6 'ici mettre le numéro de ta couleur directement ici 6 pour l'exemple

ici
For Each rCell In ActiveSheet.UsedRange

changer pour spécifier la colonne A

[cookiedelu]

Merci pour ta réponse.
Le code est presque parfait
Le seul défaut est qu'il ne me copie que la colonne A... :'( Il ne me copie par toute la ligne.
As-tu une idée?

Encore merci

[cookiedelu]

Je retire ce que j'ai dit. J'ai fait une erreur dans le code!

Ca marche à la perfection !!!!

Un grand merci

Matt