Je veux écrire un résultat dans une autre feuille d'un classeur et lui
appliquer un format dans le même temps,
par exemple en Gras sur fond Jaune.
(Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ?
Merci pour votre aide à tous...
Al
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
MichDenis
Bonjour Al, '------------------------------- 'Cette ligne de code te permet de choisir le classeur 'que tu désires si c'est un autre classeur que dans 'lequel la macro est écrire. Si pas nécessaire, tu peux 'l'omettre ainsi que le End With qui lui est associé. With Workbooks("NomDuClasseur.xls") With .Worksheets("Feuil2") With .Cells(NumLig, NumCol) Application.EnableEvents = False 'Avoir un format standard dans la cellule 'Tu peux choisir le format que tu désires... .NumberFormat = "General" .Value = TitreNom .Interior.Color = vbYellow .Font.Bold = True End With End With End With '-------------------------------
"Al" a écrit dans le message de groupe de discussion : 4a6b290b$0$430$ Bonjour,
Je veux écrire un résultat dans une autre feuille d'un classeur et lui appliquer un format dans le même temps, par exemple en Gras sur fond Jaune. (Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ? Merci pour votre aide à tous... Al
Bonjour Al,
'-------------------------------
'Cette ligne de code te permet de choisir le classeur
'que tu désires si c'est un autre classeur que dans
'lequel la macro est écrire. Si pas nécessaire, tu peux
'l'omettre ainsi que le End With qui lui est associé.
With Workbooks("NomDuClasseur.xls")
With .Worksheets("Feuil2")
With .Cells(NumLig, NumCol)
Application.EnableEvents = False
'Avoir un format standard dans la cellule
'Tu peux choisir le format que tu désires...
.NumberFormat = "General"
.Value = TitreNom
.Interior.Color = vbYellow
.Font.Bold = True
End With
End With
End With
'-------------------------------
"Al" <Al@wanadoo.fr> a écrit dans le message de groupe de discussion :
4a6b290b$0$430$426a74cc@news.free.fr...
Bonjour,
Je veux écrire un résultat dans une autre feuille d'un classeur et lui
appliquer un format dans le même temps,
par exemple en Gras sur fond Jaune.
(Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ?
Merci pour votre aide à tous...
Al
Bonjour Al, '------------------------------- 'Cette ligne de code te permet de choisir le classeur 'que tu désires si c'est un autre classeur que dans 'lequel la macro est écrire. Si pas nécessaire, tu peux 'l'omettre ainsi que le End With qui lui est associé. With Workbooks("NomDuClasseur.xls") With .Worksheets("Feuil2") With .Cells(NumLig, NumCol) Application.EnableEvents = False 'Avoir un format standard dans la cellule 'Tu peux choisir le format que tu désires... .NumberFormat = "General" .Value = TitreNom .Interior.Color = vbYellow .Font.Bold = True End With End With End With '-------------------------------
"Al" a écrit dans le message de groupe de discussion : 4a6b290b$0$430$ Bonjour,
Je veux écrire un résultat dans une autre feuille d'un classeur et lui appliquer un format dans le même temps, par exemple en Gras sur fond Jaune. (Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ? Merci pour votre aide à tous... Al
Philippe.R
Bonjour, Comme ceci par exemple :
Sub ecri() Dim NumLig As Long, NumCol As Integer, TitreNom As String NumLig = 4 NumCol = 2 TitreNom = "M.P.F.E." With Worksheets("Feuil2").Cells(NumLig, NumCol) .Value = TitreNom .Font.Bold = True .Interior.Color = vbYellow End With End Sub
placé dans un module ordinaire -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Al" a écrit dans le message de news:4a6b290b$0$430$
Bonjour,
Je veux écrire un résultat dans une autre feuille d'un classeur et lui appliquer un format dans le même temps, par exemple en Gras sur fond Jaune. (Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ? Merci pour votre aide à tous... Al
Bonjour,
Comme ceci par exemple :
Sub ecri()
Dim NumLig As Long, NumCol As Integer, TitreNom As String
NumLig = 4
NumCol = 2
TitreNom = "M.P.F.E."
With Worksheets("Feuil2").Cells(NumLig, NumCol)
.Value = TitreNom
.Font.Bold = True
.Interior.Color = vbYellow
End With
End Sub
placé dans un module ordinaire
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Al" <Al@wanadoo.fr> a écrit dans le message de
news:4a6b290b$0$430$426a74cc@news.free.fr...
Bonjour,
Je veux écrire un résultat dans une autre feuille d'un classeur et lui
appliquer un format dans le même temps,
par exemple en Gras sur fond Jaune.
(Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ?
Merci pour votre aide à tous...
Al
Sub ecri() Dim NumLig As Long, NumCol As Integer, TitreNom As String NumLig = 4 NumCol = 2 TitreNom = "M.P.F.E." With Worksheets("Feuil2").Cells(NumLig, NumCol) .Value = TitreNom .Font.Bold = True .Interior.Color = vbYellow End With End Sub
placé dans un module ordinaire -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Al" a écrit dans le message de news:4a6b290b$0$430$
Bonjour,
Je veux écrire un résultat dans une autre feuille d'un classeur et lui appliquer un format dans le même temps, par exemple en Gras sur fond Jaune. (Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ? Merci pour votre aide à tous... Al
Al
Merci pour vos réponses..... A+ Al
"Al" a écrit dans le message de news: 4a6b290b$0$430$
Bonjour,
Je veux écrire un résultat dans une autre feuille d'un classeur et lui appliquer un format dans le même temps, par exemple en Gras sur fond Jaune. (Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ? Merci pour votre aide à tous... Al
Merci pour vos réponses.....
A+
Al
"Al" <Al@wanadoo.fr> a écrit dans le message de news:
4a6b290b$0$430$426a74cc@news.free.fr...
Bonjour,
Je veux écrire un résultat dans une autre feuille d'un classeur et lui
appliquer un format dans le même temps,
par exemple en Gras sur fond Jaune.
(Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ?
Merci pour votre aide à tous...
Al
"Al" a écrit dans le message de news: 4a6b290b$0$430$
Bonjour,
Je veux écrire un résultat dans une autre feuille d'un classeur et lui appliquer un format dans le même temps, par exemple en Gras sur fond Jaune. (Worksheets("Feuil2").Cells(NumLig, NumCol).Value = TitreNom)
Comment puis je faire ? Merci pour votre aide à tous... Al