Excel- VBA-Comment colorier une zone variable Résolu/Fermé

Question

Bonjour,

Je voudrais affecter la même couleur à une zone variable au fur et à mesure qu'elle s'allonge.
Voici ce qui la défini:
Range("B3:E" & Range("A1").Value)
Le contenu de [A1] étant la dernière ligne de la zone.

Quelqu'un peut-il m'écrire un code pour cela SVP, peu importe la couleur ?

Merci

Manugeo · Answer

Range("B3:E" & Range("A1").Value).Interior.ColorIndex = 255
    Range("B3:E" & Range("A1").Value).Interior.Pattern = xlSolid

La première ligne donne la couleur, la deuxième le type de remplissage.

Bidouilleu_R · Answer

autre proposition ....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Variant

For Each C In Range("B3:E" & Range("A1").Value)
    C.Interior.ColorIndex = 4  'vert clair
Next
End Sub

mod77 · Answer

Merci tout 2,

J'aurais jamais trouvé ça!
J'ai plus dur maintenant:

Mais sauriez-vous mettre des bordures dans la même zone SVP ?
Je repose ma question sur un autre poste afin de clore celui-ci, se sera plus correcte.

Merci encore.

Bidouilleu_R · Answer

utilise l'enregistreur de macro pour récupérer le format que tu veux
outils/macros/enregistrer une ...macro1
selectionne ta plage applique le format puis arrête la macro (outils/macro/arreter l'enregistrement)
puis alt F11 (editeur visual basic)
et tu vas trouver un code avec plusieurs 
    With Selection.Borders(.......)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        ......
        .....
    End With


maintenant tu as le code

tu ecris   

Range("B3:E" & Range("A1").Value).select
puis tu écris 
with selection....

'recopie ici les différents formats que tu as  créé
end with

je ne peux pas te le faire parceque j'ai 2007 et il y a une incompatibilité

mod77 · Answer

Merci Bidouilleu_R, que c'est astucieux !
Je vais essayer de retenir ça!

Merci.