Format par Macro

[Valentin_Loupe]

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

 

[Spitnolan08]

Re : Format par Macro

Bonsoir,

 Sub Macro1()
Dim cel as range, plage as range
set plage = sheets("truc").range("A1:D20")
Set cel = plage.Find(What:="Total", LookIn:=xlValues, LookAt _
        :=xlPart)
set cel = Range(cel, Cells(cel.Row, cel.Column + 2))
with cel
.Font.Bold = True
.Font.Color = -16776961
.Font.TintAndShade = 0
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 1
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

devrait convenir (Non testé)

Cordialement

 

[Valentin_Loupe]

Re : Format par Macro

Re Bonsoir à tous !

Merci pour la réponse !
Par contre est-ce possible de n'appliquer la mise en forme qu'aux cellulles concernées et d'effacer toutes celle des autres cellules (laisser celle par défaut : celle appliquée avant l'effet de la macro) car en fait la ligne mise en forme correspond à la dernière ligne d'un tableau croisé dynamique qui se met à jour et donc la dernière ligne n'est jamais à la même place.

En réalité, pour le moment les cellules prennent bien la mise en forme souhaitée mais celle-ci ne s'efface pas lors de la mise à jour du tableau croisé dynamique.

Je vous remercie encore

Valentin

 

[Spitnolan08]

Re : Format par Macro

Re,

C'est certainement possible, mais comme je ne suis vraiment pas un expert des TCD, je ne peux t'apporter une réponse sans un exemple de fichier joint. En effet, il faut savoir où prendre la mise en forme précédente pour l'appliquer à tout le tableau...

Cordialement

 

[Valentin_Loupe]

Re : Format par Macro

Bonjour à tous,

Personne n'a d'idée ?

Merci encore

Valentin

 

[JCGL]

Re : Format par Macro

Bonjour,
Salut Spit 🙂 ,

A mon avis tu ne pourras pas effacer les cellules du TCD. (Impossibilité de modifier les cellules)

A confirmer SVP

A+