Valentin_Loupe
XLDnaute Occasionnel
Bonsoir à tous !
Je viens de créer une macro par enregistrement. Son but est de trouver dans la feuille concernée une cellule qui contient "Total" et de lui appliquer une mise en forme.
Je voudrais maintenant savoir comment faire pour appliquer le meme format laux deux cases situées à droite de celle ou il y a indiqué "Total" ?
Aussi, je voudrais que la recherche ne s'effectue que dans une plage spécifiée.
Sub Macro1()
Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Font.Bold = True
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 1
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Est-ce possible ?
Merci d'avance
Valentin LOUPE
Je viens de créer une macro par enregistrement. Son but est de trouver dans la feuille concernée une cellule qui contient "Total" et de lui appliquer une mise en forme.
Je voudrais maintenant savoir comment faire pour appliquer le meme format laux deux cases situées à droite de celle ou il y a indiqué "Total" ?
Aussi, je voudrais que la recherche ne s'effectue que dans une plage spécifiée.
Sub Macro1()
Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Font.Bold = True
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 1
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Est-ce possible ?
Merci d'avance
Valentin LOUPE