Discussion :

[couscoussier]

Bonjour,
Comment mettre le fond d'une cellule en vert ?
A bientôt
Saïd

[Megaxel]

Salut!
Alors je vais te donner la réponse à une multitude de questions sur la mise en forme en UNE seule fois:
Tu le fais à la main en enregistrant une macro.
Tu auras le code, parfois un peu surchargé par des paramètres par défaut, mais tu retrouveras vite la(les) ligne(s) qui t'intéresse(nt)

[couscoussier]

Malheureusement, j'ai déjà fait cette manip mais ça ne me donne pas la couleur recherchée. Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
.Range("a1:j10").Select
With Selection.Interior
        .ColorIndex = 4
         .Pattern = xlSolid
    End With

Saïd

[Megaxel]

: : :
Mais, quand tu le fais "à la main", tu choisis bien la couleur de fond dans la palette? Donc tu mets la couleur que tu veux !!
Enfin, pour le vert, le code est 10.

[couscoussier]

A la main le changement de couleur de fond d'une cellule fonctionne même la macro enregistrée. Lorsque j'intégre le code précédemment envoyé dans un programme vb6, il n'y a pas de changement de couleur.
Bonne soirée.
Saïd

[soad029]

Salut Said !

J'ai testé chez moi et ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    Sheets("NomDeTaFeuille").Select
    Sheets("NomDeTaFeuille").Activate
 
 
    Range("a1:j10").Select
    With Selection.Interior
    .ColorIndex = 4
    .Pattern = xlSolid
    End With

En faite il fallait virer le point avant le range. Par contre je ne te conseil pas de mettre cette couleur si tu veux pas voir tes utilisateurs sauté par la fenêtre

[Megaxel]

Ben voila, si tu avais mis les balises de code, j'aurais (peut-être) vu que tu avais raté ton copier-coller.
Sérieusement, pense toujours à faire un enregistrement de macro, pour retrouver le code, ou la syntaxe de toutes ces mises en forme.