Discussion :

[jul2012]

Bonjour,

Voila, j'ai un soucis.

J'utilise une boucle pour recopier des données de la feuil 2 de mon fichier joint, en feuil 1. (code dans le module 1)

Le seul problème c'est que j'aimerais conserver la couleur de remplissage des cellules de la feuil 2 en feuil 1.

Comment puis-je faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
'Boucle recopier les cellules en conservant la mise en forme
 
For i = 1 To Sheets("Feuil2").Range("a65536").End(xlUp).Row
    For j = 1 To 4
    'comment conserver le surlignage des cellules de la feuil 2 en feuil 1 ????
    Sheets("feuil1").Cells(i, j) = Sheets("feuil2").Cells(i, j)
    Next j
Next i
 
End Sub

merci de votre aide.

Cordialement.

Julien.

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
'Boucle recopier les cellules en conservant la mise en forme
 
For i = 1 To Sheets("Feuil2").Range("a65536").End(xlUp).Row
    For j = 1 To 4
    'comment conserver le surlignage des cellules de la feuil 2 en feuil 1 ????
    Sheets("feuil1").Cells(i, j) = Sheets("feuil2").Cells(i, j)
Sheets("feuil1").Cells(i, j).interior.color = Sheets("feuil2").Cells(i, j).interior.color
    Next j
Next i
 
End Sub

[talkk]

holà,

je ne suis pas un expert, mais essaie peut-être de faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(1).Cells( i, j).Interior.Color = Sheets(2).Cells( i, j).Interior.Color

Edit : trop tard ahah

[Didier Gonard]

Bonjour,

Utilises une autre syntaxe et tu n'as pas besoin d'usine à gaz

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil2").Cells(I, J).Copy Destination:=Sheets("Feuil1").Cells(I, J)

cordialement,

Didier

[ELikero]

En conservant tous les attribut de la cellule source :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Macro1()
    Application.CutCopyMode = False
    Sheets("Feuil1").Cells(1, 1).Copy
    Sheets("Feuil2").Paste (Sheets("Feuil2").Cells(1, 1))
End Sub

[jul2012]

Merci à tous pour vos réponse.

Je ne veux pas utiliser de copier coller car je vais avoir beaucoup de ligne et de colonne dans ce cas, et cela sera trop lent.

Pour le code : .interior.color

Ca fonctionne mais je n'ai plus le texte avec ??

Comment peut-on faire ?

Cordialement.

Julien.

[EngueEngue]

Comme en #2

[jul2012]

yes j'avais pas vu.

merci c'est impec !!!

Julien

[Didier Gonard]

Merci à tous pour vos réponse.

Je ne veux pas utiliser de copier coller car je vais avoir beaucoup de ligne et de colonne dans ce cas, et cela sera trop lent.

Pour le code : .interior.color

Ca fonctionne mais je n'ai plus le texte avec ??

Comment peut-on faire ?

Cordialement.

Julien.

Si c'est du temps que tu veux gagner (ce qui n'est pas abordé dans ton post d'origine) et si ton code est le bon, tu as intérêt à ne pas employer de boucles (chronophages), mais à manier ta plage en entier genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(1).Range("A1:D65536").Copy Destination:=Sheets(2).Range("A1")

conserve les mises en forme et va 15 fois plus vite sur 380000 lignes de test....

cordialement,

Didier