Code Copier/coller et MFC

[argaz01]

Bonjour tout le monde,

Avec votre aide j'avais pu mettre en place un code ou plutôt pour copier/ coller certaines colonnes de mon tableau vers une autre feuille et ça fonctionne bien- merci à tous ceux qui y contribué- sauf que je me rencontre maintenant que le tableau obtenu(copié collé) n'a pas conservé les couleurs de certaines cellules obtenues par MFC. Est-ce que c'est possible de faire en sorte que mon code garde ces MFC ou bien c'est impossible à faire?

Voici les 2 codes en vous remerciant d'avance:

Sub ExtractionColonneFeuil1()
Worksheets("Tableau Général").Columns(1).Copy
Worksheets("Les Règles Prudentielles").Columns(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(2).Copy
Worksheets("Les Règles Prudentielles").Columns(2).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(5).Copy
Worksheets("Les Règles Prudentielles").Columns(3).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(6).Copy
Worksheets("Les Règles Prudentielles").Columns(4).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(7).Copy
Worksheets("Les Règles Prudentielles").Columns(5).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(13).Copy
Worksheets("Les Règles Prudentielles").Columns(6).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(14).Copy
Worksheets("Les Règles Prudentielles").Columns(7).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(15).Copy
Worksheets("Les Règles Prudentielles").Columns(8).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(16).Copy
Worksheets("Les Règles Prudentielles").Columns(9).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(17).Copy
Worksheets("Les Règles Prudentielles").Columns(10).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(18).Copy
Worksheets("Les Règles Prudentielles").Columns(11).PasteSpecial Paste:=xlPasteValues

End Sub

Sub ExtractionDonnéesFeuil1()
Worksheets("Tableau Général").Columns(1).Copy Worksheets("Les Règles Prudentielles").Columns(1)
Worksheets("Tableau Général").Columns(2).Copy Worksheets("Les Règles Prudentielles").Columns(2)
Worksheets("Tableau Général").Columns(5).Copy Worksheets("Les Règles Prudentielles").Columns(3)
Worksheets("Tableau Général").Columns(6).Copy Worksheets("Les Règles Prudentielles").Columns(4)
Worksheets("Tableau Général").Columns(6).Copy Worksheets("Les Règles Prudentielles").Columns(5)
Worksheets("Tableau Général").Columns(7).Copy Worksheets("Les Règles Prudentielles").Columns(6)
Worksheets("Tableau Général").Columns(13).Copy Worksheets("Les Règles Prudentielles").Columns(7)
Worksheets("Tableau Général").Columns(14).Copy Worksheets("Les Règles Prudentielles").Columns(8)
Worksheets("Tableau Général").Columns(15).Copy Worksheets("Les Règles Prudentielles").Columns(9)
Worksheets("Tableau Général").Columns(16).Copy Worksheets("Les Règles Prudentielles").Columns(10)
Worksheets("Tableau Général").Columns(17).Copy Worksheets("Les Règles Prudentielles").Columns(11)

End Sub

Sub ClicBouton2()
Call ExtractionDonnéesFeuil1
Call ExtractionColonneFeuil1
End Sub

Cordialement

 

[he_oui]

Re : Code Copier/coller et MFC

tu peux essayer ça

Sub ExtractionColonneFeuil1()
Worksheets("Tableau Général").Columns(1).Copy
Worksheets("Les Règles Prudentielles").Columns(1).Paste
Worksheets("Tableau Général").Columns(2).Copy
Worksheets("Les Règles Prudentielles").Columns(2).Paste
Worksheets("Tableau Général").Columns(5).Copy
Worksheets("Les Règles Prudentielles").Columns(3).Paste
Worksheets("Tableau Général").Columns(6).Copy
Worksheets("Les Règles Prudentielles").Columns(4).Paste
Worksheets("Tableau Général").Columns(7).Copy
Worksheets("Les Règles Prudentielles").Columns(5).Paste
Worksheets("Tableau Général").Columns(13).Copy
Worksheets("Les Règles Prudentielles").Columns(6).Paste
Worksheets("Tableau Général").Columns(14).Copy
Worksheets("Les Règles Prudentielles").Columns(7).Paste
Worksheets("Tableau Général").Columns(15).Copy
Worksheets("Les Règles Prudentielles").Columns(8).Paste
Worksheets("Tableau Général").Columns(16).Copy
Worksheets("Les Règles Prudentielles").Columns(9).Paste
Worksheets("Tableau Général").Columns(17).Copy
Worksheets("Les Règles Prudentielles").Columns(10).Paste
Worksheets("Tableau Général").Columns(18).Copy
Worksheets("Les Règles Prudentielles").Columns(11).Paste

End Sub

Sub ExtractionDonnéesFeuil1()
Worksheets("Tableau Général").Columns(1).Copy Worksheets("Les Règles Prudentielles").Columns(1)
Worksheets("Tableau Général").Columns(2).Copy Worksheets("Les Règles Prudentielles").Columns(2)
Worksheets("Tableau Général").Columns(5).Copy Worksheets("Les Règles Prudentielles").Columns(3)
Worksheets("Tableau Général").Columns(6).Copy Worksheets("Les Règles Prudentielles").Columns(4)
Worksheets("Tableau Général").Columns(6).Copy Worksheets("Les Règles Prudentielles").Columns(5)
Worksheets("Tableau Général").Columns(7).Copy Worksheets("Les Règles Prudentielles").Columns(6)
Worksheets("Tableau Général").Columns(13).Copy Worksheets("Les Règles Prudentielles").Columns(7)
Worksheets("Tableau Général").Columns(14).Copy Worksheets("Les Règles Prudentielles").Columns(8)
Worksheets("Tableau Général").Columns(15).Copy Worksheets("Les Règles Prudentielles").Columns(9)
Worksheets("Tableau Général").Columns(16).Copy Worksheets("Les Règles Prudentielles").Columns(10)
Worksheets("Tableau Général").Columns(17).Copy Worksheets("Les Règles Prudentielles").Columns(11)

End Sub

Sub ClicBouton2()
Call ExtractionDonnéesFeuil1
Call ExtractionColonneFeuil1
End Sub

 

[argaz01]

Re : Code Copier/coller et MFC

Bonjour tout le monde,

Dslé si je n'ai pas répondu tôt à votre réponse pour cause d'abscence du bureau. Votre code extrait bien les MFC, cependant il me renvoie l'erreur suivante au niveau de la 4ème ligne: erreur d'exécution '438': propriété ou méthode non gérée par cet objet et je ne sais pas à quoi elle corresponde ni ne lui trouve de réponses sur le forum. Merci d'avance pour votre aide précieuse

Cordialement