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
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
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" <Al@wanadoo.fr> a écrit dans le message de news:
49a100bc$0$747$426a74cc@news.free.fr...
Bonjour,
Comment, dans une Macro, appliquer un format à une cellule d'une autre
Feuille que celle active ?
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
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
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" <Al@wanadoo.fr> a écrit dans le message de
news:49a100bc$0$747$426a74cc@news.free.fr...
Bonjour,
Comment, dans une Macro, appliquer un format à une cellule d'une autre
Feuille que celle active ?
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
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
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 ?
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
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
Merci c'est OK....
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
OH6gBMMlJHA.1292@TK2MSFTNGP02.phx.gbl...
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" <Al@wanadoo.fr> a écrit dans le message de news:
49a100bc$0$747$426a74cc@news.free.fr...
Bonjour,
Comment, dans une Macro, appliquer un format à une cellule d'une autre
Feuille que celle active ?
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 ?