Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Format de cellule dans un autre feuille.

Format de cellule dans un autre feuille.

4 réponses
Avatar
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" a écrit dans le message de 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



Avatar
Hervé
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" a écrit dans le message de
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



Avatar
Francois L
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




Avatar
Al
Merci c'est OK....

"Jacky" a écrit dans le message de news:

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" a écrit dans le message de 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