Discussion :

[SmOkEiSBaD]

Bonjour à tous,
Existe-t-il un objet qui permettrait de récupérer le style d'une Cellule (Taille, couleur, remplissage, alignement, font, etc..) ?

Je connais Border Around et Style mais apparement aucun des deux ne porte l'ensemble des attributs de style (font par exemple).

Merci.

[fring]

Bonjour,

Non cela n'existe pas.
Tu peux utiliser le copier/coller spécial format pour récupérer toute la mise en forme (couleur, taille, style de texte, bordures, etc...)

Exemple, copie des formats de la cellule A1 à la plage A2:A20

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Range("A1").Copy
 
Range("A2:A20").PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub

[SmOkEiSBaD]

Ok merci bien pour la rapidité de ta réponse.

[Bilgates]

Bonjour;

Je veux programmer cette ligne mais je ne trouve pas le syntaxe correcte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range( "A(i)" :  "g(i)").Font.Size = 16

Merci

[MarcelG]

Bonjour,

Apparemment, il s(agit d'un balayage sur une plage de cellules.
Dans ce cas, le processus le plus approprié serait d'utiliser l'Objet Cells

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i,1)

Une autre piste: concaténer l'argument String del'objet Range avec la valeurde i.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A"  & i)

Pour plus d'efficacité, après avoir adapté ces indications, tu pourrais retourner le code.

Un salut à l'ami Fring.

[Philippe Tulliez]

Bonjour,
Ta question est un peu hors sujet de cette discussion qui de plus est très ancienne.
Je suppose que tu souhaites mettre la taille de la police des cellules des colonnes A à G de la ligne définie par la variable I. Si c'est le cas, deux syntaxes possibles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & i & ":H" & i).Font.Size = 16

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(i, 1), Cells(i, 8)).Font.Size = 16

Pour éviter les problèmes, n'oublies pas de référencer les parents de l'objet Range (feuille + classeur)
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i As Long
i = 10 '
With ThisWorkbook.Worksheets("Feuil1")
.Range(.Cells(i, 1), .Cells(i, 8)).Font.Size = 12
End With