Modifier une selection de cellules

Shirazedi

XLDnaute Nouveau
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 !
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum, Shirazedi, pierrejean ;)

La même, les paramètres en plus ;)
VB:
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

XLDnaute Barbatruc
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
upload_2018-5-25_22-40-9.png
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T