Excel- VBA-Comment colorier une zone variable

Résolu
mod77 Messages postés 1320 Date d'inscription   Statut Membre Dernière intervention   -  
mod77 Messages postés 1320 Date d'inscription   Statut Membre Dernière intervention   -
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
Configuration: Windows XP
Excel 2002 SP-2

5 réponses

  1. Manugeo
     
    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.
    0
  2. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    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
    0
  3. mod77 Messages postés 1320 Date d'inscription   Statut Membre Dernière intervention   53
     
    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.
    0
  4. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    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é
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. mod77 Messages postés 1320 Date d'inscription   Statut Membre Dernière intervention   53
     
    Merci Bidouilleu_R, que c'est astucieux !
    Je vais essayer de retenir ça!

    Merci.
    0