Excel - macro mise en forme

Question

Bonjour,

Je souhaiterais copier la mise en forme de plusieurs cellules sous conditions.

Voici une capture d'écran par exemple : http://nsa15.casimages.com/img/2010/04/18/100418073930724976.jpg


Donc d'après ma formule, lorsque je met 1, 2, 3 ou 4 dans la cellule E1, dans la cellule E2 il apparaît A, B, C ou D. Le problème c'est que j'aimerais qu'il y ait la mise en forme de la lettre (A en rouge; B en vert souligné; C en bleu; D en orange souligné). Dois-je utiliser une macro? si oui laquelle? (je m'y connais pas du tout en macro)

Petite précision : dans la réalité le tableau en bleu se situe dans une autre page


Merci d'avance

funbreizhou · Answer

bonjour,

Ca se fait facilement avec les macros : 


Sub A()
If Range("E1") = 1 Then
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "A"
    Range("E2").Select
    With selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("E1").Select
    ActiveWindow.SmallScroll Down:=15
    
End If
    
End Sub





 ça par exemple ca serait pour avoir un A rouge et en gras dans la cellule E2 si E1 = 1.

Essaye de voir si t'arrives déjà à coller cette macro là où il faut

stephy13 · Answer

merci pour ta réponse, par contre je pense l'avoir collé au bon endroit (développeur --> enregistrer une macro (nom macro : A) --> développeur --> macro --> modifié --> ctrl + V) par contre je ne sais pas comment l'activer car là pour le moment ça ne marche pas. Merci

funbreizhou · Answer

tu fais ALT + F11, tu cliques sur "feuille1" en haut à gauche et tu colles tout. Après c'est à toi d'adapter les noms de cellules. j'ai essayé de suivre ton modèle mais j'ai pu me tromper.

funbreizhou · Answer

Sub format()

If Range("E1") = 1 Then

Range("E2").Select
    selection.Font.Bold = True
    With selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    selection.Font.ColorIndex = 3
    selection.Font.Underline = xlUnderlineStyleSingle
    selection.Font.Underline = xlUnderlineStyleNone
    ActiveCell.FormulaR1C1 = "A"
    Range("E3").Select
Else: GoTo suite

End If

suite:


If Range("E1") = 2 Then

Range("E2").Select
    selection.Font.Bold = True
    With selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    selection.Font.ColorIndex = 43
    selection.Font.Underline = xlUnderlineStyleSingle
    ActiveCell.FormulaR1C1 = "B"
    Range("E3").Select
    
Else: GoTo suite2

End If

suite2:

If Range("E1") = 3 Then

    Range("E2").Select
    selection.Font.Bold = True
    With selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    selection.Font.ColorIndex = 55
    ActiveCell.FormulaR1C1 = "C"
    Range("E2").Select
    selection.Font.Underline = xlUnderlineStyleSingle
    selection.Font.Underline = xlUnderlineStyleNone
Else: GoTo suite3

End If

suite3:

If Range("E1") = 4 Then

 Range("E2").Select
    selection.Font.Bold = True
    With selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    selection.Font.ColorIndex = 45
    selection.Font.Underline = xlUnderlineStyleSingle
    ActiveCell.FormulaR1C1 = "D"
    Range("E3").Select
Else
End If

End Sub



Voilà le code complet pour ce que t'as demandé.

stephy13 · Answer

Merci bcp funbreizhou :-)

Excel - macro mise en forme

5 réponses

Discussions similaires

Newsletters