Sub ColorieMon tableau

meyme -  
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!!!!!

2 réponses

  1. meyme Auteur
    Salut!

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

    Merci!
    0
    1. eriiic Contributeur
      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
      0
    2. meyme Auteur
      Merci eriiic!
      Je suis 100% débutante en VBA alors dsl si mes questions sont un peu mal posées
      0
  2. lermite222 Contributeur
    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+
    0

    Discussions similaires

    Tableau (croisé dynamique?) à 3 entrées
    ClementH3o

    10 réponses
    Calculer une remise % par rapport à une % et une marge %
    Kubynator

    15 réponses