Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonsoir,
Ca devrait donner ça :
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
ActiveCell.Select
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
si j'ai bien compris
--
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
"David" a écrit dans le message de
news:Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonsoir,
Ca devrait donner ça :
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
ActiveCell.Select
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
si j'ai bien compris
--
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
"David" <bs173990@skynet.be> a écrit dans le message de
news:O4rSXQMeJHA.3708@TK2MSFTNGP06.phx.gbl...
Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonsoir,
Ca devrait donner ça :
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
ActiveCell.Select
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
si j'ai bien compris
--
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
"David" a écrit dans le message de
news:Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonsoir,
Vous avez bien compris et votre réponse m'a
de suite séduit, mais cela ne donne pas le
résultat escompté et le cellule active
se retrouve toujours et invariablement en A5.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:Bonsoir,
Ca devrait donner ça :
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
ActiveCell.Select
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
si j'ai bien compris
--
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
"David" a écrit dans le message de
news:Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonsoir,
Vous avez bien compris et votre réponse m'a
de suite séduit, mais cela ne donne pas le
résultat escompté et le cellule active
se retrouve toujours et invariablement en A5.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
OnZKHqMeJHA.3776@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Ca devrait donner ça :
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
ActiveCell.Select
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
si j'ai bien compris
--
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
"David" <bs173990@skynet.be> a écrit dans le message de
news:O4rSXQMeJHA.3708@TK2MSFTNGP06.phx.gbl...
Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonsoir,
Vous avez bien compris et votre réponse m'a
de suite séduit, mais cela ne donne pas le
résultat escompté et le cellule active
se retrouve toujours et invariablement en A5.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:Bonsoir,
Ca devrait donner ça :
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
ActiveCell.Select
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
si j'ai bien compris
--
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
"David" a écrit dans le message de
news:Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonjour,
Peux tu mettre un fichier exemple sur cijoint ou cjoint ?
--
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
"David" a écrit dans le message de
news:Bonsoir,
Vous avez bien compris et votre réponse m'a
de suite séduit, mais cela ne donne pas le
résultat escompté et le cellule active
se retrouve toujours et invariablement en A5.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonsoir,
Ca devrait donner ça :
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
ActiveCell.Select
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
si j'ai bien compris
--
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
"David" a écrit dans le message de
news:Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonjour,
Peux tu mettre un fichier exemple sur cijoint ou cjoint ?
--
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
"David" <bs173990@skynet.be> a écrit dans le message de
news:uZcV32NeJHA.3864@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Vous avez bien compris et votre réponse m'a
de suite séduit, mais cela ne donne pas le
résultat escompté et le cellule active
se retrouve toujours et invariablement en A5.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: OnZKHqMeJHA.3776@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Ca devrait donner ça :
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
ActiveCell.Select
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
si j'ai bien compris
--
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
"David" <bs173990@skynet.be> a écrit dans le message de
news:O4rSXQMeJHA.3708@TK2MSFTNGP06.phx.gbl...
Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Bonjour,
Peux tu mettre un fichier exemple sur cijoint ou cjoint ?
--
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
"David" a écrit dans le message de
news:Bonsoir,
Vous avez bien compris et votre réponse m'a
de suite séduit, mais cela ne donne pas le
résultat escompté et le cellule active
se retrouve toujours et invariablement en A5.
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonsoir,
Ca devrait donner ça :
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
ActiveCell.Select
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
si j'ai bien compris
--
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
"David" a écrit dans le message de
news:Bonjour,
Pour insérer un ligne avec recopie dans toute la colonne
de la formule en cellule F4, j'utilise le code ci-dessous.
Quel code faut-il ajouter pour la cellule colorée en bleu
par mon code devient la cellule active ?
Merci pour vos réponses.
Sub InsertionLigne()
Dim cell As Range
Set cell = Worksheets(ActiveSheet.Name).Range("F5") ' "juin-2009"
derlig = Range("F4").End(xlDown).Row
Selection.EntireRow.Insert Shift:=xlDown
ActiveCell.Interior.ColorIndex = 34
Set SourceRange = Worksheets(ActiveSheet.Name).Range("F4")
Set fillRange = Worksheets(ActiveSheet.Name).Range("F4:F" & derlig)
SourceRange.AutoFill Destination:=fillRange
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/