Bonjour =E0 Toutes et =E0 Tous,
j'aimerais copier le format d'une ligne sur toutes les=20
lignes d'une tableau jusqu'=E0 la derni=E8re ligne occup=E9e,=20
mais comment modifier la macro suivante ?
je suppose qu'il faut utiliser=20
Range("a3:a...").End(xlDown).Select
oui mais quel est la formulation exacte et o=F9 le placer=20
dans ma macro?
Sub FormatLigne()
Rows("2:2").Select
Selection.Copy
Range("A3:a...").Select
Selection.PasteSpecial Paste:=3DxlFormats,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse
Range("A2").Select
End Sub
Merci de suivre,
freedo
Salut, a la place de : Range("A3:a...").Select mets : Rows("3:3").Select Range(Selection, Selection.End(xlDown)).Select tu peux egalement utiliser l'enregistreur de macro, tres utile surtout dans ce cas la... @+ Michel "Freedo" wrote in message news:015801c39e3a$bb45ee40$ Bonjour à Toutes et à Tous, j'aimerais copier le format d'une ligne sur toutes les lignes d'une tableau jusqu'à la dernière ligne occupée, mais comment modifier la macro suivante ? je suppose qu'il faut utiliser Range("a3:a...").End(xlDown).Select oui mais quel est la formulation exacte et où le placer dans ma macro? Sub FormatLigne() Rows("2:2").Select Selection.Copy Range("A3:a...").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Merci de suivre, freedo
Salut,
a la place de : Range("A3:a...").Select mets :
Rows("3:3").Select
Range(Selection, Selection.End(xlDown)).Select
tu peux egalement utiliser l'enregistreur de macro, tres utile surtout dans
ce cas la...
@+
Michel
"Freedo" <Freedo.anonymous@discussions.microsoft.com> wrote in message
news:015801c39e3a$bb45ee40$a101280a@phx.gbl...
Bonjour à Toutes et à Tous,
j'aimerais copier le format d'une ligne sur toutes les
lignes d'une tableau jusqu'à la dernière ligne occupée,
mais comment modifier la macro suivante ?
je suppose qu'il faut utiliser
Range("a3:a...").End(xlDown).Select
oui mais quel est la formulation exacte et où le placer
dans ma macro?
Sub FormatLigne()
Rows("2:2").Select
Selection.Copy
Range("A3:a...").Select
Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Range("A2").Select
End Sub
Merci de suivre,
freedo
Salut, a la place de : Range("A3:a...").Select mets : Rows("3:3").Select Range(Selection, Selection.End(xlDown)).Select tu peux egalement utiliser l'enregistreur de macro, tres utile surtout dans ce cas la... @+ Michel "Freedo" wrote in message news:015801c39e3a$bb45ee40$ Bonjour à Toutes et à Tous, j'aimerais copier le format d'une ligne sur toutes les lignes d'une tableau jusqu'à la dernière ligne occupée, mais comment modifier la macro suivante ? je suppose qu'il faut utiliser Range("a3:a...").End(xlDown).Select oui mais quel est la formulation exacte et où le placer dans ma macro? Sub FormatLigne() Rows("2:2").Select Selection.Copy Range("A3:a...").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Merci de suivre, freedo
Jean-François Aubert
Salut Freedo,
Range(Cells(3, 1), Cells(65536, 1).End(xlUp)(1)).EntireRow.Select sélectionnera les lignes entières --> col IV
ou
Range(Cells(3, 1), Cells(Cells(65536, 1).End(xlUp)(1).Row, 5)).Select sélectionnera les lignes des colonnes A à E ( le 5 de "Row, 5" est la col E)
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Freedo" a écrit dans le message de news:015801c39e3a$bb45ee40$ Bonjour à Toutes et à Tous, j'aimerais copier le format d'une ligne sur toutes les lignes d'une tableau jusqu'à la dernière ligne occupée, mais comment modifier la macro suivante ? je suppose qu'il faut utiliser Range("a3:a...").End(xlDown).Select oui mais quel est la formulation exacte et où le placer dans ma macro? Sub FormatLigne() Rows("2:2").Select Selection.Copy Range("A3:a...").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Merci de suivre, freedo
Salut Freedo,
Range(Cells(3, 1), Cells(65536, 1).End(xlUp)(1)).EntireRow.Select
sélectionnera les lignes entières --> col IV
ou
Range(Cells(3, 1), Cells(Cells(65536, 1).End(xlUp)(1).Row, 5)).Select
sélectionnera les lignes des colonnes A à E ( le 5 de "Row, 5" est la col E)
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Freedo" <Freedo.anonymous@discussions.microsoft.com> a écrit dans le message de
news:015801c39e3a$bb45ee40$a101280a@phx.gbl...
Bonjour à Toutes et à Tous,
j'aimerais copier le format d'une ligne sur toutes les
lignes d'une tableau jusqu'à la dernière ligne occupée,
mais comment modifier la macro suivante ?
je suppose qu'il faut utiliser
Range("a3:a...").End(xlDown).Select
oui mais quel est la formulation exacte et où le placer
dans ma macro?
Sub FormatLigne()
Rows("2:2").Select
Selection.Copy
Range("A3:a...").Select
Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Range("A2").Select
End Sub
Merci de suivre,
freedo
Range(Cells(3, 1), Cells(65536, 1).End(xlUp)(1)).EntireRow.Select sélectionnera les lignes entières --> col IV
ou
Range(Cells(3, 1), Cells(Cells(65536, 1).End(xlUp)(1).Row, 5)).Select sélectionnera les lignes des colonnes A à E ( le 5 de "Row, 5" est la col E)
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Freedo" a écrit dans le message de news:015801c39e3a$bb45ee40$ Bonjour à Toutes et à Tous, j'aimerais copier le format d'une ligne sur toutes les lignes d'une tableau jusqu'à la dernière ligne occupée, mais comment modifier la macro suivante ? je suppose qu'il faut utiliser Range("a3:a...").End(xlDown).Select oui mais quel est la formulation exacte et où le placer dans ma macro? Sub FormatLigne() Rows("2:2").Select Selection.Copy Range("A3:a...").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Merci de suivre, freedo
Freedo
bonjour jean-Francois, merci beaucoup pour ton aide, je vais essayé tout çà, Cordialement, freedo
sélectionnera les lignes des colonnes A à E ( le 5 de "Row, 5" est la col E)
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Freedo" a écrit dans le message de
news:015801c39e3a$bb45ee40$ Bonjour à Toutes et à Tous, j'aimerais copier le format d'une ligne sur toutes les lignes d'une tableau jusqu'à la dernière ligne occupée, mais comment modifier la macro suivante ? je suppose qu'il faut utiliser Range("a3:a...").End(xlDown).Select oui mais quel est la formulation exacte et où le placer dans ma macro? Sub FormatLigne() Rows("2:2").Select Selection.Copy Range("A3:a...").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Merci de suivre, freedo
.
bonjour jean-Francois,
merci beaucoup pour ton aide, je vais essayé tout çà,
Cordialement,
freedo
sélectionnera les lignes des colonnes A à E ( le 5
de "Row, 5" est la col E)
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Freedo" <Freedo.anonymous@discussions.microsoft.com> a
écrit dans le message de
news:015801c39e3a$bb45ee40$a101280a@phx.gbl...
Bonjour à Toutes et à Tous,
j'aimerais copier le format d'une ligne sur toutes les
lignes d'une tableau jusqu'à la dernière ligne occupée,
mais comment modifier la macro suivante ?
je suppose qu'il faut utiliser
Range("a3:a...").End(xlDown).Select
oui mais quel est la formulation exacte et où le placer
dans ma macro?
Sub FormatLigne()
Rows("2:2").Select
Selection.Copy
Range("A3:a...").Select
Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A2").Select
End Sub
Merci de suivre,
freedo
sélectionnera les lignes des colonnes A à E ( le 5 de "Row, 5" est la col E)
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Freedo" a écrit dans le message de
news:015801c39e3a$bb45ee40$ Bonjour à Toutes et à Tous, j'aimerais copier le format d'une ligne sur toutes les lignes d'une tableau jusqu'à la dernière ligne occupée, mais comment modifier la macro suivante ? je suppose qu'il faut utiliser Range("a3:a...").End(xlDown).Select oui mais quel est la formulation exacte et où le placer dans ma macro? Sub FormatLigne() Rows("2:2").Select Selection.Copy Range("A3:a...").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Merci de suivre, freedo
.
Freedo
bonjour Michel, Merci beaucoup pour ta solution, je vais tester ces paramètres; Mais bien sur, j'ai essayé l'enregistreur de macro et je suis obligé de sélectionner la plage manuellement, cela ne me donnait pas la formulation exacte à adopter pour la recherche de la dernière ligne vide Cordialement, freedo
-----Message d'origine----- Salut, a la place de : Range("A3:a...").Select mets : Rows("3:3").Select Range(Selection, Selection.End(xlDown)).Select tu peux egalement utiliser l'enregistreur de macro, tres utile surtout dans
ce cas la... @+ Michel "Freedo" wrote in message
news:015801c39e3a$bb45ee40$ Bonjour à Toutes et à Tous, j'aimerais copier le format d'une ligne sur toutes les lignes d'une tableau jusqu'à la dernière ligne occupée, mais comment modifier la macro suivante ? je suppose qu'il faut utiliser Range("a3:a...").End(xlDown).Select oui mais quel est la formulation exacte et où le placer dans ma macro? Sub FormatLigne() Rows("2:2").Select Selection.Copy Range("A3:a...").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Merci de suivre, freedo
.
bonjour Michel,
Merci beaucoup pour ta solution, je vais tester ces
paramètres; Mais bien sur, j'ai essayé l'enregistreur de
macro et je suis obligé de sélectionner la plage
manuellement, cela ne me donnait pas la formulation exacte
à adopter pour la recherche de la dernière ligne vide
Cordialement,
freedo
-----Message d'origine-----
Salut,
a la place de : Range("A3:a...").Select mets :
Rows("3:3").Select
Range(Selection, Selection.End(xlDown)).Select
tu peux egalement utiliser l'enregistreur de macro, tres
utile surtout dans
ce cas la...
@+
Michel
"Freedo" <Freedo.anonymous@discussions.microsoft.com>
wrote in message
news:015801c39e3a$bb45ee40$a101280a@phx.gbl...
Bonjour à Toutes et à Tous,
j'aimerais copier le format d'une ligne sur toutes les
lignes d'une tableau jusqu'à la dernière ligne occupée,
mais comment modifier la macro suivante ?
je suppose qu'il faut utiliser
Range("a3:a...").End(xlDown).Select
oui mais quel est la formulation exacte et où le placer
dans ma macro?
Sub FormatLigne()
Rows("2:2").Select
Selection.Copy
Range("A3:a...").Select
Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A2").Select
End Sub
Merci de suivre,
freedo
bonjour Michel, Merci beaucoup pour ta solution, je vais tester ces paramètres; Mais bien sur, j'ai essayé l'enregistreur de macro et je suis obligé de sélectionner la plage manuellement, cela ne me donnait pas la formulation exacte à adopter pour la recherche de la dernière ligne vide Cordialement, freedo
-----Message d'origine----- Salut, a la place de : Range("A3:a...").Select mets : Rows("3:3").Select Range(Selection, Selection.End(xlDown)).Select tu peux egalement utiliser l'enregistreur de macro, tres utile surtout dans
ce cas la... @+ Michel "Freedo" wrote in message
news:015801c39e3a$bb45ee40$ Bonjour à Toutes et à Tous, j'aimerais copier le format d'une ligne sur toutes les lignes d'une tableau jusqu'à la dernière ligne occupée, mais comment modifier la macro suivante ? je suppose qu'il faut utiliser Range("a3:a...").End(xlDown).Select oui mais quel est la formulation exacte et où le placer dans ma macro? Sub FormatLigne() Rows("2:2").Select Selection.Copy Range("A3:a...").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Merci de suivre, freedo
