Copier la cellule en fonction de la couleur de celle ci

G

Guest

Guest

• 15 Septembre 2009

• #2

Re : Copier la cellule en fonction de la couleur de celle ci

Bonjour,

Cette macro copier les cellules qui ne sont pas blanche

Code:

Sub TOTO()
Dim i As Integer
For i = 2 To 100
If Feuil1.Cells(i, 1).Interior.Color <> vbWhite Then
    Cells(i, 1).Copy Destination:=Feuil2.Range("d" & Feuil2.Range("D" & Rows.Count).End(xlUp).Offset(1).Row)
    Application.CutCopyMode = False
End If
Next i
End Sub

A+

[edit] hello JeanMarcel

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 15 Septembre 2009

• #3

Re : Copier la cellule en fonction de la couleur de celle ci

Bonjour le forum, hasco et jean marcel

Hasco ta proposition convient à la demande, que faut il changer si je viens à avoir plusieurs couleurs dans la même colonne et que je souhaite copier le contenue de la cellule de chaque couleurs dans une colonne différente.

Merci pour la proposition

Jean Marcel j'avais fait des recherches sur le forum et j'étais tombé sur des messages un peu similaire ou tu aidais quelqu'un mais je n'ai pu adapter ton code, celui là copie essentiellement la dernière cellule colorié de la colonne A, alors qu'il les faudrait toutes sur la colonne A.

Merci pour l'aide
Cordialement
Christophe.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Septembre 2009

• #4

Re : Copier la cellule en fonction de la couleur de celle ci

Re,

Hasco ta proposition convient à la demande, que faut il changer si je viens à avoir plusieurs couleurs dans la même colonne et que je souhaite copier le contenue de la cellule de chaque couleurs dans une colonne différente.

Cliquez pour agrandir...

C'est trop vague. Quelles couleurs, quelles colonnes. où est le projet.

A+

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 15 Septembre 2009

• #5

Re : Copier la cellule en fonction de la couleur de celle ci

Re,

Colonne A des noms où la cellule peut avoir une couleur Rouge, Bleu, Jaune et copier les cellules Rouge à partir de la cellule D1, Bleu: E1, Jaune: F1 de la même Feuille si possible.

Voilà le projet c'est une liste de nom correspondant à ceci au fur et à mesure du temps il se peut qu'il y ait plus de couleur mais pour l'instant 3 cela semble correcte.

Merci
Christophe.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Septembre 2009

• #6

Re : Copier la cellule en fonction de la couleur de celle ci

Re,

comme je travaille sur du concret où est le classeur exemple avec les couleur etc....

A+

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 15 Septembre 2009

• #7

Re : Copier la cellule en fonction de la couleur de celle ci

Re,
Voilà un fichier exemple.

Cordialemet
Christophe.

 

Pièces jointes

• Classeur1.xls

  14 KB · Affichages: 124
• Classeur1.xls

  14 KB · Affichages: 125
• Classeur1.xls

  14 KB · Affichages: 138

Vote positif 0 Vote négatif