Formater une colonne qui contient des formules

Le
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 à +
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #6537731
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"
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 à +






Youky
Le #6537691
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"
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 à +






Youky
Le #6537671
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"
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 à +






frasax
Le #6537611
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"
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 à +











Publicité
Poster une réponse
Anonyme