Discussion :

[canary]

Bonjour !

Je vais essayer de poser le problème clairement :
J’ai un classeur (Classeur1) avec 2 feuilles (Feuil1 et Feuil2).
Dans la feuille 2, j’ai un tableau avec des valeurs et des couleurs de cases différentes.
Dans la feuille1, par l’intermédiaire d’un bouton, j’aimerai ramener les valeurs et les couleurs des cases de mon tableau.

=> J’arrive à récupérer les valeurs en faisant :

Code :

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

1
2
 
ThisWorkbook.Worksheets("Feuil1").Range("B20:G30").Value = ThisWorkbook.Worksheets("Feuil2").Range("A1:F11").Value

=> Je n’arrive pas à récupérer la couleur de mes cases en faisant :

Code :

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

1
2
 
ThisWorkbook.Worksheets("Feuil1").Range("B20:C30").Interior.ColorIndex = ThisWorkbook.Worksheets("Feuil2").Range("A1:B11").Interior.ColorIndex

Pourquoi cela ne fonctionne-t-il pas?

=> J’ai essayé de ramener une colonne par exemple en faisant :

Code :

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

1
2
 
ThisWorkbook.Worksheets("Feuil1").Range("B20:B30").Interior.ColorIndex = ThisWorkbook.Worksheets("Feuil2").Range("A1:A11").Interior.ColorIndex

Et cette technique marche bien!! Alors pourquoi je ne peux pas l’appliquer à mon tableau entier ?
Merci à tous pour vos futures réponses !
Aud-

[wilfried_42]

Bonjour

une question idiote, n'aurais tu pas des MFC sur ta colonne B ?

[Gorfael]

Salut canary et le forum
C'est parce que tu as plus d'une couleur et qu'Excel, ça l'embrouille. Donc, il se met en grève.

Je suppose que ça vient de la manière de stocker les paramètres de format. Pas de pot, faut passer par une boucle
A+
PS tu peux aussi faire :

Code :

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

1
2
ThisWorkbook.Worksheets("Feuil1").Range("B20:G30").Copy
ThisWorkbook.Worksheets("Feuil2").Range("A1").PasteSpecial (xlPasteFormats)

Mais tu auras aussi les polices, les bordures, etc.

[canary]

wilfried : c'est quoi un MFC?
gorfael : justement ça m'interesse de récupérer toute la mise en page du tableau :p
j'essaye et je tiens au courant!!

[Gorfael]

Salut canary et le forum
M'enFin C'est : Mise en Format Conditionnelle
Sert à modifier l'apparence d'une cellule en fonction de conditions (3 max pour Excel 2003 et 64 pour la version 2007, d'après ce que je crois savoir)
A+

[canary]

ok Gorfael, ta solution marche nikel!

[canary]

je cherche maintenant à copier le contenu du tableau, c'est à dire : la couleur des cases, la taille et la forme du texte et surtout les valeurs contenues dans les cases.

Le problème avec ce que vous m'aviez proposer c'est que ça copie colle les formules et ça les remet à la sauce de la nouvelle feuille. Comment faire une copie intégrale sans qu'il y est une modification des formules lors du copier coller?

[Gorfael]

Salut canary et le forum

Le problème avec ce que vous m'aviez proposer c'est que ça copie colle les formules et ça les remet à la sauce de la nouvelle feuille. Comment faire une copie intégrale sans qu'il y est une modification des formules lors du copier coller?

??? comprends pas ???
Donne un exemple avec la formule avant et après!
et celle que tu aurais aimé
sinon, un PasteSpecial (xlValue)
A+