macro très simple!

[ripo]

Bonjour à tous,
ci joint fichier, tout est dedans!
Merci de votre aide
A+
Ripo [file name=Classeur1_20051027125004.zip size=2419]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051027125004.zip[/file]

 

[Abel]

Bonjour ripo,

Utilise l'enregistreur de macro qui te donnera ça :

Pour la police en bleue et barrée :

  With Selection.Font
        .Strikethrough = True
        .ColorIndex = 41 'bleu clair
    End With

pour l'encadrement :

    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 2
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 2
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 2
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 2
    End With

Pour le fond de la cellule :
selection.interior.colorindex=2


En espérant que cela te dépanne.

Abel.

Message édité par: Abel, à: 27/10/2005 13:17

 

[Dan]

Bonjour,

Par macroo c'est possible mais plus simple; tu disposes d'une solution via mise en forme conditionnelle.

Exemple dans ton fichier :

1. Place toi en C5
2. Menu / format / mise en forme cond.
3. Choisis dans la liste de déroulante 'la formule est'
4. A droite mets ceci --> =B5='O'
5. clique sur 'format' et choisis ta police et la couleur désirée
6. Confirme par OK

tu peux mettre 3 conditions maximum ce qui au vu de ce que tu expliques dans ton fichier est tout à fait faisable.

Si pb n'héiste pas.

 

[Abel]

Re,

Ah, ben vi !

Tu as raison, Dan. C'est bien plus simple avec une mise en forme conditionnelle.
Autant pour moi de ne pas y avoir pensé.

Abel.

 

[ripo]

Merci à tous
Ripo