copie cellule selon sa couleur

Efgé

XLDnaute Barbatruc

• 22 Janvier 2010

• #2

Re : copie cellule selon sa couleur

Bonjour cpeens,
Un exemple en pièce jointe.
Cordialement

 

Pièces jointes

• cpeens(2).xls

  31 KB · Affichages: 110

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 22 Janvier 2010

• #3

Re : copie cellule selon sa couleur

merci pour ta réponse mais dans ton code ou définit tu la couleur du fond est t'il possible de mettre a jour la feuil2 en cas ou la cellule change de couleur

Code:

Dim j As Long
j = 1
Application.ScreenUpdating = False
For i = 2 To Range("A65536").End(xlUp).Row
    Sheets("Feuil1").Activate
        If Cells(i, 1).Interior.ColorIndex = 5 Then
            Cells(i, 1).Copy
            Sheets("Feuil2").Activate
            Cells(j, 1).Select
            Selection.PasteSpecial Paste:=xlPasteValues
            j = j + 1
        End If
Next i
Application.ScreenUpdating = True

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Janvier 2010

• #4

Re : copie cellule selon sa couleur

Re
Pour la couleur de fond :

Code:

 If Cells(i, 1).Interior.ColorIndex = [COLOR=red][B]5[/B][/COLOR] Then

Pour le problème de changement de couleur c'est plus complexe. Peut on avoir quelques explications supplémentaires?
Bon W.E
Cordialement

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 22 Janvier 2010

• #5

Re : copie cellule selon sa couleur

re

alors ok pour la couleur de fond j'avais trouver la ligne mais ce que je te demandais c'était le (5) exemple correspond a quoi.
si ou cas je veut changer de couleur et que ce soit jaune au lieu de rouge par exemple ya t'il un tableau correspondance entre ce numéro et la couleur.

secondement je voulais savoir si c'est possible de mettre plusieurs choix en couleur du style couleur rouge copié dans la colonne A
couleur jaune copié dans la colonne B



merci pour ton aide

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 22 Janvier 2010

• #6

Re : copie cellule selon sa couleur

merci a tous les deux je vais surement pouvoir mieux comprendre le tout a bientôt

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 22 Janvier 2010

• #7

Re : copie cellule selon sa couleur

Jean Marcel ta formule est génial mais c'est tu comment je peut faire pour que la copie se fasse sur la feuil2 au lieu sur la même feuille

merci

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 22 Janvier 2010

• #8

Re : copie cellule selon sa couleur

Genial trop bon mais puis compliquer la chose j'ai voulut l'adapter et mettre

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

mais donc a chaque fois je clique sur une cellule il me lance tous le truc

connaitrais tu un truc pour que sa change uniquement soit en entrant sur la page soit uniquement en cas de changement bon j'avoue se seras un bonus mais bon vue le nombre de personne qui cherche cela peut être sa aideras d'autre que moi

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 22 Janvier 2010

• #9

Re : copie cellule selon sa couleur

Mai tu est une vrai mine info lol

bon dernière question même si tu me donne pas la solution pas grave mais juste es ce possible au lieu de copier uniquement la cellule rouge ont copie celui qui est juste a coté également sur la même ligne un peu comme Nom(cellule A) Prénom(cellule B) ont copie cellule A:B

c'est possible cela avec ce que tu ma donné merci

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 22 Janvier 2010

• #10

Re : copie cellule selon sa couleur

bon c'est ok merci j'ai tous pigé en tous cas merci j'adore complet clair merci a toi jean Marcel a bientôt

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Janvier 2010

• #11

Re : copie cellule selon sa couleur

Bonjour à tous,
J'arrive bien après la bataille mais comme je l'ai fait, je le poste:
Regroupement des cellules sur une autre feuille par type de couleurs (chaque couleurs dans la colonne du même numéro que le color index) avec la couleur d'origine dans l'en tête . Puis suppression des colonnes vides.
Cette macro fonctionne avec les 56 couleurs possibles.
Cordialement

 

Pièces jointes

• cpeens(3).xls

  44.5 KB · Affichages: 64

Dernière édition: 23 Janvier 2010

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 24 Janvier 2010

• #12

Re : copie cellule selon sa couleur

Bonjour Jean Marcel je viens t'embêter un peu lol dis moi dans ce que tu ma donner comment puis je copier a partir de la cellule B8 au lieu de la cellule A2
et coller en cellule L7 au lieu de A2 peut tu me l'expliquer stp ou je doit le modifier merci.

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 24 Janvier 2010

• #13

Re : copie cellule selon sa couleur

Merci c'est super cool ya juste une chose j'ai pas pigé c'est pour le coller si je modifie

Code:

Sheets("Feuil2").Range("L8:P1000") = ""

en

Code:

Sheets("Feuil2").Range("L7:P1000") = ""

il me colle tous en a partir L2 de la feuil2

es ce bien cette ligne qui me permet de choisir la ligne du coller

merci sinon pour le reste tous fonctionne bien je suis juste un peut perdu pour le choix de cette ligne

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 25 Janvier 2010

• #14

Re : copie cellule selon sa couleur

merci j'avais compris entre temps mais j'ai un mega soucis j'utilise ses couleurs un peut comme une alerte donc j' utiliser la mise en forme conditionelle

ex. si la colonne F7 est inferieure a 10 la colonne B se met en rouge et donc l'alerte se copie

sauf que la il se met bien en rouge mais ne copie pas comme si elle detectait pas la mise en forme d'ou sa peut bien venir merci

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 25 Janvier 2010

• #15

Re : copie cellule selon sa couleur

sniff sa veut dire que dire que tout est fichu

ou peut etre en mettant ula condition en vba du style

si F2 est inferieure a 10 cellule rouge es ce que sa marcherais merci

 

Vote positif 0 Vote négatif