Sub ColorieMon tableau

meyme Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
meyme Messages postés 3 Date d'inscription Statut Membre Dernière intervention - 29 oct. 2013 à 22:54

bonjour,
je n'arrive pas a faire fonctionner ma macro... quelqu'un sait comment?
voici le code
Sub ColorieMonTableau(Tableau As Range)
Dim i As Long, n As Long
n = Tableau.Columns.Count

For i = 1 To n Step 2
Tableau.Columns(i).Interior.Color = vbBlue
Next i
For i = 2 To n Step 2
Tableau.Columns(i).Interior.Color = vbYellow
Next i
For i = 1 To n Step 2
Tableau.Columns(i).Font.Color = vbWhite
Next i
End Sub
habituellement je vais dans développeur/macros/ clique sur ma macro mais cette fois-ci je ne la trouves pas
merci!!!!!

Afficher la suite

A voir également:

Sub ColorieMon tableau
Tableau word - Guide
Tableau ascii - Guide
Trier un tableau excel - Guide
Tableau croisé dynamique - Guide
Imprimer tableau excel sur une page - Guide

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bonjour,
Ta macro fonctionne à part, probablement, l'adresse de ton tableau.
Comment tu assigne une plage à ton tableau ?
Sinon, essaye ce code et tu verras que tout fonctionne.

Sub ColorieMonTableau()
Dim i As Long, n As Long
Dim Tableau As Range
    Set Tableau = Range("A1:G20")
    n = Tableau.Columns.Count
    For i = 1 To n Step 2
        Tableau.Columns(i).Interior.Color = vbBlue
    Next i
    For i = 2 To n Step 2
        Tableau.Columns(i).Interior.Color = vbYellow
    Next i
    For i = 1 To n Step 2
        Tableau.Columns(i).Font.Color = vbWhite
    Next i
End Sub

A+

Réponse 2 / 2

meyme Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Salut!

oui sa fonctionne comme ça mais j'aimerais selectionner mon tableau à colorier
avec ce code, il est "fixe"

Merci!

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

Pourquoi ne l'avoir pas mis dans la question alors ?
Comment voulais-tu que l'on devine ?

Essaie comme ça :

Sub ColorieMonTableau() 
Dim Tableau As Range
Set Tableau = Selection
...
End sub

Sélectionne ton tableau avant d'appeler ta macro.
eric

meyme Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Merci eriiic!
Je suis 100% débutante en VBA alors dsl si mes questions sont un peu mal posées

Discussions similaires

Formule taux de marque

Problème d'allumage écran LG : "OUT OF RANGE"

Tableau croisé dynamique - absence de certaines données

generateur de combinaison du loto 5/90

Votre réponse

Discussions similaires