Modifier une selection de cellules

[Shirazedi]

Bonjour a tous ! Je me permets d'ecrire ce post pour solliciter votre aide sur un macro.

Je cherche a modifier les proprietes d'une selections de plusieurs cellules. Voici ma formule :

Sub Propriete()

Range("A1:A14").Select
With ActiveSelection
.Borders.Weight = 3
With .Font
.Bold = True
.Size = 10
.Italic = True
.Name = "Arial"
End With
End With

End Sub

J'ai l'impression que c'est la formule precedant le premier With qui est le soucis de mon macro.. Je n'arrive pas a trouver la reponse, c'est pour cela que je sollicite votre aide aujourd'hui.

Merci d'avance !

 

[pierrejean]

Bonjour Shirazedi

A tester:

Sub test()
With Range("A1:A14")
.Borders.Weight = 3
With .Font
.Bold = True
.Size = 10
.Italic = True
.Name = "Arial"
End With
End With
End Sub

 

[Shirazedi]

Ca marche, merci beaucoup PierreJean !

 

[Staple1600]

Bonsoir le fil, le forum, Shirazedi, pierrejean 😉

La même, les paramètres en plus 😉

Sub tests()
'°°°°° juste pour créer des données de test °°°°°
Range("A1:C14") = "=ROW()*COLUMN()"         '°°°°
'°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
mise_en_forme Range("A1:A14"), xlMedium, True, True, 10
mise_en_forme Range("C1:C14"), xlThin, False, False, 20
End Sub
Private Sub mise_en_forme(R As Range, B As XlBorderWeight, Gras As Boolean, Ital As Boolean, Taille%)
R.Borders.Weight = B: R.Font.Bold = Gras: R.Font.Size = Taille: R.Font.Italic = Ital
End Sub

 

[Modeste geedee]

Bonsour®

Bonjour a tous !
Je cherche a modifier les proprietes d'une selections de plusieurs cellules. Voici ma formule :

Sub Propriete()
Range("A1:A14").Select
With ActiveSelection

With .Font

End With
End With

End Sub

J'ai l'impression que c'est la formule precedant le premier With qui est le soucis de mon macro..
Merci d'avance !

😉 de l'intérêt de l'usage de l'instruction : Option Explicit