a chaque jour sa peine...j'ai un fichier avec 2000 lignes
j'aimerai copier une ligne sur trois dans ce classeur, et=20
les coller dans une autre feuille.
Y a t-il une astuce pour le faire en une seule operation ?
d'avance merci de votre solidarit=E9,
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
Denis
Bonjour, L'utilitaire d'analyse (macro complémentaire standard Excel) disponible ensuite dans le menu outils permet cet echantillonnage. Cordialement
-----Message d'origine----- Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement, .
Bonjour,
L'utilitaire d'analyse (macro complémentaire standard
Excel) disponible ensuite dans le menu outils permet cet
echantillonnage.
Cordialement
-----Message d'origine-----
Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes
j'aimerai copier une ligne sur trois dans ce classeur, et
les coller dans une autre feuille.
Y a t-il une astuce pour le faire en une seule operation ?
d'avance merci de votre solidarité,
Bonjour, L'utilitaire d'analyse (macro complémentaire standard Excel) disponible ensuite dans le menu outils permet cet echantillonnage. Cordialement
-----Message d'origine----- Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement, .
Lolote
Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis() Dim xLig Dim xLigCop Dim xPlage xLig = 5 'N° de la première ligne xLigCop = 5 'N° de la ligne a partir de laquelle seront copiés tes données Do While ActiveCell.Value <> "" Sheets("Feuil1").Select xPlage = "" & xLig & ":" & xLig & "" Range(xPlage).Select Selection.Copy Sheets("Feuil2").Select 'Nom de la feuille ou seront copié tes lignes Rows("" & xLigCop & ":" & xLigCop & "").Select ActiveSheet.Paste Application.CutCopyMode = False xLig = xLig + 3 'On incrémente de 3 xLigCop = xLigCop + 1 Loop End Sub
Ca prend un peut de temps, mais ça marche !!!!
@+ Lolote
"Ralf" a écrit dans le message de news: 176c001c44932$72efff20$ Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement,
Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis()
Dim xLig
Dim xLigCop
Dim xPlage
xLig = 5 'N° de la première ligne
xLigCop = 5 'N° de la ligne a partir de
laquelle seront copiés tes données
Do While ActiveCell.Value <> ""
Sheets("Feuil1").Select
xPlage = "" & xLig & ":" & xLig & ""
Range(xPlage).Select
Selection.Copy
Sheets("Feuil2").Select 'Nom de la feuille ou seront
copié tes lignes
Rows("" & xLigCop & ":" & xLigCop & "").Select
ActiveSheet.Paste
Application.CutCopyMode = False
xLig = xLig + 3 'On incrémente de 3
xLigCop = xLigCop + 1
Loop
End Sub
Ca prend un peut de temps, mais ça marche !!!!
@+ Lolote
"Ralf" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 176c001c44932$72efff20$a301280a@phx.gbl...
Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes
j'aimerai copier une ligne sur trois dans ce classeur, et
les coller dans une autre feuille.
Y a t-il une astuce pour le faire en une seule operation ?
d'avance merci de votre solidarité,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis() Dim xLig Dim xLigCop Dim xPlage xLig = 5 'N° de la première ligne xLigCop = 5 'N° de la ligne a partir de laquelle seront copiés tes données Do While ActiveCell.Value <> "" Sheets("Feuil1").Select xPlage = "" & xLig & ":" & xLig & "" Range(xPlage).Select Selection.Copy Sheets("Feuil2").Select 'Nom de la feuille ou seront copié tes lignes Rows("" & xLigCop & ":" & xLigCop & "").Select ActiveSheet.Paste Application.CutCopyMode = False xLig = xLig + 3 'On incrémente de 3 xLigCop = xLigCop + 1 Loop End Sub
Ca prend un peut de temps, mais ça marche !!!!
@+ Lolote
"Ralf" a écrit dans le message de news: 176c001c44932$72efff20$ Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement,
Merci pour ta reponse rapide, mais je n'arrive pas à le faire marcher il me recopie seulement 2 lignes sur la feuille 2 pourtant...
-----Message d'origine----- Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis() Dim xLig Dim xLigCop Dim xPlage xLig = 5 'N° de la première ligne
xLigCop = 5 'N° de la ligne a partir de
laquelle seront copiés tes données Do While ActiveCell.Value <> "" Sheets("Feuil1").Select xPlage = "" & xLig & ":" & xLig & "" Range(xPlage).Select Selection.Copy Sheets("Feuil2").Select 'Nom de la feuille ou seront
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement,
.
Merci pour ta reponse rapide, mais
je n'arrive pas à le faire marcher
il me recopie seulement 2 lignes sur la feuille 2
pourtant...
-----Message d'origine-----
Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis()
Dim xLig
Dim xLigCop
Dim xPlage
xLig = 5 'N° de la
première ligne
xLigCop = 5 'N° de la
ligne a partir de
laquelle seront copiés tes données
Do While ActiveCell.Value <> ""
Sheets("Feuil1").Select
xPlage = "" & xLig & ":" & xLig & ""
Range(xPlage).Select
Selection.Copy
Sheets("Feuil2").Select 'Nom de
la feuille ou seront
"Ralf" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 176c001c44932$72efff20$a301280a@phx.gbl...
Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes
j'aimerai copier une ligne sur trois dans ce classeur, et
les coller dans une autre feuille.
Y a t-il une astuce pour le faire en une seule operation ?
d'avance merci de votre solidarité,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement,
.
Je pense comprendre...il y a des cellules vides ds mon tableau
-----Message d'origine----- Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis() Dim xLig Dim xLigCop Dim xPlage xLig = 5 'N° de la première ligne
xLigCop = 5 'N° de la ligne a partir de
laquelle seront copiés tes données Do While ActiveCell.Value <> "" Sheets("Feuil1").Select xPlage = "" & xLig & ":" & xLig & "" Range(xPlage).Select Selection.Copy Sheets("Feuil2").Select 'Nom de la feuille ou seront
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement,
.
Je pense comprendre...il y a des cellules vides
ds mon tableau
-----Message d'origine-----
Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis()
Dim xLig
Dim xLigCop
Dim xPlage
xLig = 5 'N° de la
première ligne
xLigCop = 5 'N° de la
ligne a partir de
laquelle seront copiés tes données
Do While ActiveCell.Value <> ""
Sheets("Feuil1").Select
xPlage = "" & xLig & ":" & xLig & ""
Range(xPlage).Select
Selection.Copy
Sheets("Feuil2").Select 'Nom de
la feuille ou seront
"Ralf" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 176c001c44932$72efff20$a301280a@phx.gbl...
Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes
j'aimerai copier une ligne sur trois dans ce classeur, et
les coller dans une autre feuille.
Y a t-il une astuce pour le faire en une seule operation ?
d'avance merci de votre solidarité,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement,
.
Lolote
Salut Ralf,
Y a t-il des données en colonne A ? Y a t-il des trous dans la colonne A ? C-a-dire que de temps en temps il n'y aurait pas de valeurs dans certaines cellules de la colonne A. Si c'est le cas, c'est normal, car quand je selectionne la ligne entière, c'est la valeur de la cellule que je teste et c'est automatiquement la colonne A quii lui fait référence. Dis moi en plus et je corrigerais.
@+ Lolote
a écrit dans le message de news: 17ac601c4494b$3faeed60$ Merci pour ta reponse rapide, mais je n'arrive pas à le faire marcher il me recopie seulement 2 lignes sur la feuille 2 pourtant...
-----Message d'origine----- Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis() Dim xLig Dim xLigCop Dim xPlage xLig = 5 'N° de la première ligne
xLigCop = 5 'N° de la ligne a partir de
laquelle seront copiés tes données Do While ActiveCell.Value <> "" Sheets("Feuil1").Select xPlage = "" & xLig & ":" & xLig & "" Range(xPlage).Select Selection.Copy Sheets("Feuil2").Select 'Nom de la feuille ou seront
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement,
.
Salut Ralf,
Y a t-il des données en colonne A ?
Y a t-il des trous dans la colonne A ? C-a-dire que de temps en temps il
n'y aurait pas de valeurs dans certaines cellules de la colonne A.
Si c'est le cas, c'est normal, car quand je selectionne la ligne entière,
c'est la valeur de la cellule que je teste et c'est automatiquement la
colonne A quii lui fait référence.
Dis moi en plus et je corrigerais.
@+ Lolote
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
17ac601c4494b$3faeed60$a101280a@phx.gbl...
Merci pour ta reponse rapide, mais
je n'arrive pas à le faire marcher
il me recopie seulement 2 lignes sur la feuille 2
pourtant...
-----Message d'origine-----
Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis()
Dim xLig
Dim xLigCop
Dim xPlage
xLig = 5 'N° de la
première ligne
xLigCop = 5 'N° de la
ligne a partir de
laquelle seront copiés tes données
Do While ActiveCell.Value <> ""
Sheets("Feuil1").Select
xPlage = "" & xLig & ":" & xLig & ""
Range(xPlage).Select
Selection.Copy
Sheets("Feuil2").Select 'Nom de
la feuille ou seront
"Ralf" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 176c001c44932$72efff20$a301280a@phx.gbl...
Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes
j'aimerai copier une ligne sur trois dans ce classeur, et
les coller dans une autre feuille.
Y a t-il une astuce pour le faire en une seule operation ?
d'avance merci de votre solidarité,
Y a t-il des données en colonne A ? Y a t-il des trous dans la colonne A ? C-a-dire que de temps en temps il n'y aurait pas de valeurs dans certaines cellules de la colonne A. Si c'est le cas, c'est normal, car quand je selectionne la ligne entière, c'est la valeur de la cellule que je teste et c'est automatiquement la colonne A quii lui fait référence. Dis moi en plus et je corrigerais.
@+ Lolote
a écrit dans le message de news: 17ac601c4494b$3faeed60$ Merci pour ta reponse rapide, mais je n'arrive pas à le faire marcher il me recopie seulement 2 lignes sur la feuille 2 pourtant...
-----Message d'origine----- Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis() Dim xLig Dim xLigCop Dim xPlage xLig = 5 'N° de la première ligne
xLigCop = 5 'N° de la ligne a partir de
laquelle seront copiés tes données Do While ActiveCell.Value <> "" Sheets("Feuil1").Select xPlage = "" & xLig & ":" & xLig & "" Range(xPlage).Select Selection.Copy Sheets("Feuil2").Select 'Nom de la feuille ou seront
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement,
.
Exactement, il y a des cellules vides ds la colonne A
merci de ton aide precieuse
-----Message d'origine----- Salut Ralf,
Y a t-il des données en colonne A ? Y a t-il des trous dans la colonne A ? C-a-dire que de temps en temps il
n'y aurait pas de valeurs dans certaines cellules de la colonne A.
Si c'est le cas, c'est normal, car quand je selectionne la ligne entière,
c'est la valeur de la cellule que je teste et c'est automatiquement la
colonne A quii lui fait référence. Dis moi en plus et je corrigerais.
@+ Lolote
a écrit dans le message de news:
17ac601c4494b$3faeed60$ Merci pour ta reponse rapide, mais je n'arrive pas à le faire marcher il me recopie seulement 2 lignes sur la feuille 2 pourtant...
-----Message d'origine----- Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis() Dim xLig Dim xLigCop Dim xPlage xLig = 5 'N° de la première ligne
xLigCop = 5 'N° de la ligne a partir de
laquelle seront copiés tes données Do While ActiveCell.Value <> "" Sheets("Feuil1").Select xPlage = "" & xLig & ":" & xLig & "" Range(xPlage).Select Selection.Copy Sheets("Feuil2").Select 'Nom de la feuille ou seront
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ?
d'avance merci de votre solidarité,
Cordialement,
.
.
Exactement, il y a des cellules vides ds la colonne A
merci de ton aide precieuse
-----Message d'origine-----
Salut Ralf,
Y a t-il des données en colonne A ?
Y a t-il des trous dans la colonne A ? C-a-dire que de
temps en temps il
n'y aurait pas de valeurs dans certaines cellules de la
colonne A.
Si c'est le cas, c'est normal, car quand je selectionne
la ligne entière,
c'est la valeur de la cellule que je teste et c'est
automatiquement la
colonne A quii lui fait référence.
Dis moi en plus et je corrigerais.
@+ Lolote
<anonymous@discussions.microsoft.com> a écrit dans le
message de news:
17ac601c4494b$3faeed60$a101280a@phx.gbl...
Merci pour ta reponse rapide, mais
je n'arrive pas à le faire marcher
il me recopie seulement 2 lignes sur la feuille 2
pourtant...
-----Message d'origine-----
Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis()
Dim xLig
Dim xLigCop
Dim xPlage
xLig = 5 'N° de la
première ligne
xLigCop = 5 'N° de la
ligne a partir de
laquelle seront copiés tes données
Do While ActiveCell.Value <> ""
Sheets("Feuil1").Select
xPlage = "" & xLig & ":" & xLig & ""
Range(xPlage).Select
Selection.Copy
Sheets("Feuil2").Select 'Nom de
la feuille ou seront
"Ralf" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news: 176c001c44932$72efff20$a301280a@phx.gbl...
Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes
j'aimerai copier une ligne sur trois dans ce classeur, et
les coller dans une autre feuille.
Y a t-il une astuce pour le faire en une seule
operation ?
Exactement, il y a des cellules vides ds la colonne A
merci de ton aide precieuse
-----Message d'origine----- Salut Ralf,
Y a t-il des données en colonne A ? Y a t-il des trous dans la colonne A ? C-a-dire que de temps en temps il
n'y aurait pas de valeurs dans certaines cellules de la colonne A.
Si c'est le cas, c'est normal, car quand je selectionne la ligne entière,
c'est la valeur de la cellule que je teste et c'est automatiquement la
colonne A quii lui fait référence. Dis moi en plus et je corrigerais.
@+ Lolote
a écrit dans le message de news:
17ac601c4494b$3faeed60$ Merci pour ta reponse rapide, mais je n'arrive pas à le faire marcher il me recopie seulement 2 lignes sur la feuille 2 pourtant...
-----Message d'origine----- Salut Ralf,
Peut être ceci pourra t'aider, a copier dans un module
Sub CopieUneligneSurTroisBis() Dim xLig Dim xLigCop Dim xPlage xLig = 5 'N° de la première ligne
xLigCop = 5 'N° de la ligne a partir de
laquelle seront copiés tes données Do While ActiveCell.Value <> "" Sheets("Feuil1").Select xPlage = "" & xLig & ":" & xLig & "" Range(xPlage).Select Selection.Copy Sheets("Feuil2").Select 'Nom de la feuille ou seront
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ?
d'avance merci de votre solidarité,
Cordialement,
.
.
michdenis
Bonjour Ralf,
Tu peux utiliser un filtre élaboré.
Et pour obtenir le résultat de ton filtre élaboré sur une autre feuille, tu dois d'abord sélectionner cette feuille où s'affichera le résultat et appeler la commande menu ( barre des menus / données / filtre / filtre élaboré) à partir de cette feuille ...
Comme zone de critère pour ton filtre :
G1 : Tu laisses cette cellule vide G2 : =MOD(LIGNE(A2);3)=2 en supposant que A2 est la première ligne des données
Critère : $G$1:$G$2
Ce critère t'affichera seulement les lignes 2, 5, 8, 11
Tu peux ;utiliser cette formule =MOD(LIGNE(A2);3)=0 pour afficher les lignes : 3, 6, 9, 12 ...
Évidemment tu peux faire une petite procédure vba pour cela au besoin !
Salutations!
"Ralf" a écrit dans le message de news:176c001c44932$72efff20$ Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
Cordialement,
Bonjour Ralf,
Tu peux utiliser un filtre élaboré.
Et pour obtenir le résultat de ton filtre élaboré sur une autre feuille, tu dois d'abord sélectionner cette feuille où
s'affichera le résultat et appeler la commande menu ( barre des menus / données / filtre / filtre élaboré) à partir de
cette feuille ...
Comme zone de critère pour ton filtre :
G1 : Tu laisses cette cellule vide
G2 : =MOD(LIGNE(A2);3)=2 en supposant que A2 est la première ligne des données
Critère : $G$1:$G$2
Ce critère t'affichera seulement les lignes 2, 5, 8, 11
Tu peux ;utiliser cette formule =MOD(LIGNE(A2);3)=0 pour afficher les lignes : 3, 6, 9, 12 ...
Évidemment tu peux faire une petite procédure vba pour cela au besoin !
Salutations!
"Ralf" <anonymous@discussions.microsoft.com> a écrit dans le message de news:176c001c44932$72efff20$a301280a@phx.gbl...
Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes
j'aimerai copier une ligne sur trois dans ce classeur, et
les coller dans une autre feuille.
Y a t-il une astuce pour le faire en une seule operation ?
d'avance merci de votre solidarité,
Et pour obtenir le résultat de ton filtre élaboré sur une autre feuille, tu dois d'abord sélectionner cette feuille où s'affichera le résultat et appeler la commande menu ( barre des menus / données / filtre / filtre élaboré) à partir de cette feuille ...
Comme zone de critère pour ton filtre :
G1 : Tu laisses cette cellule vide G2 : =MOD(LIGNE(A2);3)=2 en supposant que A2 est la première ligne des données
Critère : $G$1:$G$2
Ce critère t'affichera seulement les lignes 2, 5, 8, 11
Tu peux ;utiliser cette formule =MOD(LIGNE(A2);3)=0 pour afficher les lignes : 3, 6, 9, 12 ...
Évidemment tu peux faire une petite procédure vba pour cela au besoin !
Salutations!
"Ralf" a écrit dans le message de news:176c001c44932$72efff20$ Bonjour à tous,
a chaque jour sa peine...j'ai un fichier avec 2000 lignes j'aimerai copier une ligne sur trois dans ce classeur, et les coller dans une autre feuille. Y a t-il une astuce pour le faire en une seule operation ? d'avance merci de votre solidarité,
