Ajout automatique d'une ligne sur excel avec couleur

Ajout automatique d'une ligne sur excel avec couleur - VB/VBA/VBS - Programmation

Marsh Posté le 23-07-2013 à 13:59:56    

Bonjour à tous,  
 
J'ai un classeur de facturation excel contenant plusieurs onglets : 2013, janvier, février, mars etc...
J'ai écrit un petit code me permettant de rajouter automatiquement, dans la feuille 2013, les tableaux contenus dans les onglets "mois". J'ai mis chaque tableau des différents mois dans des couleurs différentes afin de les distinguer dans l'onglet 2013. Le problème c'est que quand j'active la macro pour ajouter le tableau d'un mois dans la feuille 2013, la couleur ne suit pas... Qu'ai-je à rajouter dans mon code pour que la couleur apparaisse également ?  
 
Voici le code pour que le tableau de la feuille janvier apparaissent automatiquement dans la feuille 2013 par exemple :
 
Sub JANVIER()
       i = Sheets("2013" ).Cells(65535, 1).End(xlUp).Row
       Sheets("JANVIER" ).Range("A7:I150" ).Copy
       Sheets("2013" ).Range("A" & i + 1).PasteSpecial Paste:=xlValues
       Application.CutCopyMode = False
End Sub
 
Merci à tous pour votre aide !!

Reply

Marsh Posté le 23-07-2013 à 13:59:56   

Reply

Marsh Posté le 23-07-2013 à 14:40:47    

 
           Bonjour,
 
           la prochaine fois merci d'utiliser l'icône pour le code …
 
           Et où que c'est donc qu'on pêche précisément la couleur ?   :sarcastic:
 
           Comme la méthode  PasteSpecial  est utilisée, tu pourrais copier aussi le format des cellules si la couleur s'y trouve bien, non ?
           Voir l'argument  Paste  dans l'aide de cette méthode …


Message édité par Marc L le 23-07-2013 à 14:49:06
Reply

Marsh Posté le 23-07-2013 à 15:07:24    

Mince, je ne savais pas qu'il fallait utiliser une icône pour le code..
 
Merci pour ta réponse, je débute avec excel, tout est encore un peu flou, j'ai écrit ce petit code en piochant des idées à droite à gauche sur divers forums...  
Je vais donc essayer ce que tu me conseilles.
 
Merci encore

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed