Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Formater une colonne qui contient des formules

Formater une colonne qui contient des formules

4 réponses
Avatar
frasax
Bonjour à toutes et à tous,

J'ai la macro suivante ;
==================
Sub FormatPolice()
Range("H7:H143").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
End Sub
=================
qui remet en forme toute la colonne.
Mais toutes les 6 lignes, j'ai une formule avec une police différente.
J'aimerais éviter de devoir chaque fois remettre en forme 23 lignes en
faisant par exemple ;

Range("H7:H11").Select
Range("H13:H17").Select
Range("H19:H23").Select
Range("H25:H29").Select etc. …

Malheureusement, je peux pas faire ça avec cette macro, que puis' je faire ?
Merci de votre aide et à +
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Tatanka
Bonjour,

Quelque chose du genre peut-être :

Sub Format_Police()
Application.ScreenUpdating = False
Set plage = [H7:H43]
'Mise en forme de toute la plage
With plage.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
'Mise en forme des lignes 1,7,13,19...
For Each c In plage
i = i + 1
If i Mod 6 = 1 Then
With c.Font
.Name = "Courier New"
.FontStyle = "Bold Italic"
.Size = 12
.ColorIndex = 3
End With
End If
Next c
Application.ScreenUpdating = True
End Sub

Serge
"frasax" a écrit dans le message de news:
Bonjour à toutes et à tous,

J'ai la macro suivante ;
================= > Sub FormatPolice()
Range("H7:H143").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
End Sub
================ > qui remet en forme toute la colonne.
Mais toutes les 6 lignes, j'ai une formule avec une police différente.
J'aimerais éviter de devoir chaque fois remettre en forme 23 lignes en
faisant par exemple ;

Range("H7:H11").Select
Range("H13:H17").Select
Range("H19:H23").Select
Range("H25:H29").Select etc. .

Malheureusement, je peux pas faire ça avec cette macro, que puis' je faire ?
Merci de votre aide et à +






Avatar
Youky
Sub FormatPolice()
For k = 7 To 143 Step 4
With Range("H" & k & ":H" & k + 3).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
k = k + 1
Next
End Sub

Voila qui doit faire Frasax...
Youky

"frasax" a écrit dans le message de news:

Bonjour à toutes et à tous,

J'ai la macro suivante ;
================= > Sub FormatPolice()
Range("H7:H143").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
End Sub
================ > qui remet en forme toute la colonne.
Mais toutes les 6 lignes, j'ai une formule avec une police différente.
J'aimerais éviter de devoir chaque fois remettre en forme 23 lignes en
faisant par exemple ;

Range("H7:H11").Select
Range("H13:H17").Select
Range("H19:H23").Select
Range("H25:H29").Select etc. .

Malheureusement, je peux pas faire ça avec cette macro, que puis' je faire
?
Merci de votre aide et à +






Avatar
Youky
Oups!
Manquait une ligne....
Rectif

For k = 7 To 143 Step 5
With Range("H" & k & ":H" & k + 4).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
k = k + 1
Next

"frasax" a écrit dans le message de news:

Bonjour à toutes et à tous,

J'ai la macro suivante ;
================= > Sub FormatPolice()
Range("H7:H143").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
End Sub
================ > qui remet en forme toute la colonne.
Mais toutes les 6 lignes, j'ai une formule avec une police différente.
J'aimerais éviter de devoir chaque fois remettre en forme 23 lignes en
faisant par exemple ;

Range("H7:H11").Select
Range("H13:H17").Select
Range("H19:H23").Select
Range("H25:H29").Select etc. .

Malheureusement, je peux pas faire ça avec cette macro, que puis' je faire
?
Merci de votre aide et à +






Avatar
frasax
Bonjour Youky,

Merci pour la sub, ça fonctioinne super bien.
Cordiales salutations

frasax


Oups!
Manquait une ligne....
Rectif

For k = 7 To 143 Step 5
With Range("H" & k & ":H" & k + 4).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
k = k + 1
Next

"frasax" a écrit dans le message de news:

Bonjour à toutes et à tous,

J'ai la macro suivante ;
================= > > Sub FormatPolice()
Range("H7:H143").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.ColorIndex = 1
End With
End Sub
================ > > qui remet en forme toute la colonne.
Mais toutes les 6 lignes, j'ai une formule avec une police différente.
J'aimerais éviter de devoir chaque fois remettre en forme 23 lignes en
faisant par exemple ;

Range("H7:H11").Select
Range("H13:H17").Select
Range("H19:H23").Select
Range("H25:H29").Select etc. .

Malheureusement, je peux pas faire ça avec cette macro, que puis' je faire
?
Merci de votre aide et à +