Format de cellule dans un autre feuille.

Le
Al
Bonjour,

Comment, dans une Macro, appliquer un format à une cellule d'une autre
Feuille que celle active ?

Merci pour vos réponses à tous
Al
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
Jacky
Le #18731071
Bonjour,

Par exemple
'--------------
Sub jj()
With Sheets("feuil2")
.[a1].Font.Bold = True
.[a1].Font.Size = 12
.[a1].Interior.ColorIndex = 3
End With
End Sub
'---------------

--
Salutations
JJ


"Al" 49a100bc$0$747$
Bonjour,

Comment, dans une Macro, appliquer un format à une cellule d'une autre
Feuille que celle active ?

Merci pour vos réponses à tous
Al



Hervé
Le #18731241
Bonjour Al,
Simplement en indiquant la feuille et la cellule :

Sub test()
Formater Worksheets("Feuil2").Range("C3")
End Sub

Sub Formater(Cel As Range)
With Cel
.Font.Bold = True
.Font.ColorIndex = 3
.NumberFormat = "#,##0.00 $"
End With
End Sub

Hervé.


"Al" news:49a100bc$0$747$
Bonjour,

Comment, dans une Macro, appliquer un format à une cellule d'une autre
Feuille que celle active ?

Merci pour vos réponses à tous
Al



Francois L
Le #18731231
Al a écrit :

Bonjour,

L'enregistreur de macro donne ça :
Sub Macro1()
Selection.Copy
Sheets("Feuil3").Select
Range("C13").Select
Selection.PasteSpecial Paste:=xlFormats, _
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
End Sub


que l'on peut utilement remplacer par :
'------------------------------------
Sub zaza()
With Selection
.Copy
End With
With Sheets("Feuil3").Range("a1")
.PasteSpecial Paste:=xlFormats
End With
End Sub

--
François L

Bonjour,

Comment, dans une Macro, appliquer un format à une cellule d'une autre
Feuille que celle active ?

Merci pour vos réponses à tous
Al




Al
Le #18731301
Merci c'est OK....

"Jacky"
Bonjour,

Par exemple
'--------------
Sub jj()
With Sheets("feuil2")
.[a1].Font.Bold = True
.[a1].Font.Size = 12
.[a1].Interior.ColorIndex = 3
End With
End Sub
'---------------

--
Salutations
JJ


"Al" 49a100bc$0$747$
Bonjour,

Comment, dans une Macro, appliquer un format à une cellule d'une autre
Feuille que celle active ?

Merci pour vos réponses à tous
Al







Publicité
Poster une réponse
Anonyme