Boucle d'affection de couleur aux cellules

Pierrot93

XLDnaute Barbatruc

• 24 Février 2008

• #2

Re : Boucle d'affection de couleur aux cellules

Bonjour Atlonia

regarde le code ci dessous, si j'ai bien compris :

Code:

Option Explicit
Sub test()
Dim l As Byte, c As Byte, n As Byte
For c = 1 To 4
    For l = 1 To 14
        Cells(l, c).Value = n + 1
        Cells(l, c).Interior.ColorIndex = n + 1
        n = n + 1
    Next l
Next c
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

atlonia

XLDnaute Occasionnel

• 24 Février 2008

• #3

Re : Boucle d'affection de couleur aux cellules

Merci pierrot93,

Quelle rapidité et quelle efficacité, c'est exactement ce que je cherchais!

Peut-être a tu la réponse à mes deux 1ère questions...!

Ce serait chouette!

A moins que quelqu'un d'autre...

 

Vote positif 0 Vote négatif

atlonia

XLDnaute Occasionnel

• 24 Février 2008

• #4

Re : Boucle d'affection de couleur aux cellules

Oups...! je viens de comprendre...!
Eh oui, on n'est pas novice pour rien!

R1 = Rangée 1
C1 = Colonne 1

A force de réfléchir j'ai le cerveau qui déconne...ecte par moment...!

Pardon de poser des questions idiotes.

Allez, un peu d'indulgence, aidez moi sur l'optimisation de ma macro.

Merci à tous

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2008

• #5

Re : Boucle d'affection de couleur aux cellules

Re altonia

pour faire plus court... le code que je t'ai donné fait les 2, il met le numéro dans la cellule et utilise le numéro d'index de la couleur pour colorier cette même cellule... ou alors quelque chose qui m'echappe, bien possible du reste...

bonne soirée
@+

 

Vote positif 0 Vote négatif