Excel VBA : Déplacer des colonnes de couleur
Résolu
Ryuzuck
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Ryuzuck Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Ryuzuck Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je débute sur VBA et je me retrouve confronter à un problème sur lequel je sèche complètement.
Voici la situation, j'ai un tableau, avec en ligne des catégories et en colonnes des dates. Des valeurs viennent s'enregistrer automatiquement sur une nouvelle colonne pour chaque nouvel enregistrement.
Il ne peut y avoir qu'une ligne avec une valeur pour chaque colonne. Le reste de la colonne étant vide.
Et je cherche à mettre en couleur les 5 dernières colonnes d'un tableau à chaque nouvel enregistrement. Mais faire en sorte qu'il y est toujours seulement les 5 dernières colonnes du tableau en couleur.
Sachant de plus qu'il faudrait que les 5 colonnes est des couleurs différentes.
Actuellement j'ai réussi à faire ceci :
Range("XFD3").End(xlToLeft).Interior.ColorIndex = 3
Mais cela ne permet que de faire apparaître une couleur sur la 3éme case de la dernière colonne à chaque enregistrement.
D'avance merci.
Je débute sur VBA et je me retrouve confronter à un problème sur lequel je sèche complètement.
Voici la situation, j'ai un tableau, avec en ligne des catégories et en colonnes des dates. Des valeurs viennent s'enregistrer automatiquement sur une nouvelle colonne pour chaque nouvel enregistrement.
Il ne peut y avoir qu'une ligne avec une valeur pour chaque colonne. Le reste de la colonne étant vide.
Et je cherche à mettre en couleur les 5 dernières colonnes d'un tableau à chaque nouvel enregistrement. Mais faire en sorte qu'il y est toujours seulement les 5 dernières colonnes du tableau en couleur.
Sachant de plus qu'il faudrait que les 5 colonnes est des couleurs différentes.
Actuellement j'ai réussi à faire ceci :
Range("XFD3").End(xlToLeft).Interior.ColorIndex = 3
Mais cela ne permet que de faire apparaître une couleur sur la 3éme case de la dernière colonne à chaque enregistrement.
D'avance merci.
A voir également:
- Excel VBA : Déplacer des colonnes de couleur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Bonjour,
Range("A3").End(xlToRight).EntireColumn.Interior.ColorIndex = 3 pour la dernière
Range("A3").End(xlToRight)(1, 0).EntireColumn.Select pour l'avant dernière
Range("A3").End(xlToRight)(1, -1).EntireColumn.Select 'Interior.ColorIndex = 3
ou tu parts de l'extérieur
Range("XFD3").End(xlToLeft).EntireColumn.Interior.ColorIndex = 3
mais je te conseille de limiter la plage de colorisation afin d'alléger le fichier et de coloriser inutilement chaque colonne entièrement
Range("A3").End(xlToRight).EntireColumn.Interior.ColorIndex = 3 pour la dernière
Range("A3").End(xlToRight)(1, 0).EntireColumn.Select pour l'avant dernière
Range("A3").End(xlToRight)(1, -1).EntireColumn.Select 'Interior.ColorIndex = 3
ou tu parts de l'extérieur
Range("XFD3").End(xlToLeft).EntireColumn.Interior.ColorIndex = 3
mais je te conseille de limiter la plage de colorisation afin d'alléger le fichier et de coloriser inutilement chaque colonne entièrement