coloriage de cellulesRésolu

Question

Bonjour,


Quelqu'un sait-il comment colorier la ième ligne jusqu'à la colonne Z, donc Zi (i étant une variable que je détermine via inputbox que l'utilisateur détermine)?
De même la légende des couleurs, l'avez vous?


D'avance merci

drikce06 · Accepted Answer

Salut, ragarde du coté de Cells.InteriorColor

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

fikriiii · Answer

Salut,

Oui effectivement, mais je bute avec la syntaxe: 

reponse2 = Val(InputBox(message, "Etat du l'intervention"))


 Select Case reponse2
    Case Is = 1
    Range(i& i, "Z" & i).Interior.ColorIndex = 6 (------------->message d'erreur)
    Case Is = 2
    Range(????).Interior.ColorIndex = 10
    Case Is = 3
    Range(????).Interior.ColorIndex = 20
    Case Is = 0
     Exit Sub
 End Select

jrivet · Answer

Salut,
Et si tu mettais plutot:
Range("A" & i & ":Z" & i).Interior.ColorIndex = 6

@+: Ju£i?n
Pensez: Réponse acceptée

fikriiii · Answer

Pour répondre à une partie de ma question, voici une réponse plutôt sympatique:




Sub CouleursIndex()
Cells(1, 1).Value = "ColorIndex"
Cells(1, 2).Value = "Couleur"
    For i = 2To57
        Cells(i, 2).Interior.ColorIndex = i - 1
        Cells(i, 1).Value = i - 1
    Next
EndSub

Coloriage de cellules

4 réponses

Votre réponse

Discussions similaires