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:
Cordialement
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:
Code:
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