bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne
B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne
B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne
B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
Bonjour,
Tu peux utiliser les fonctions suivantes:
Selectionnes la colonne ou les cellules à déplacer puis -copier- ensuite
positionnes toi dans la colonne de destination cliques droit "insérer les
cellules copiées" en choisissant "déplacer les cellules vers le bas" puis
"OK"
les cellules sont mainteneant insérées.
Reste à jouer avec "données-filtre automatique" ou "trier"
J'espère que cela te convient.
JP
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonneB, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
Bonjour,
Tu peux utiliser les fonctions suivantes:
Selectionnes la colonne ou les cellules à déplacer puis -copier- ensuite
positionnes toi dans la colonne de destination cliques droit "insérer les
cellules copiées" en choisissant "déplacer les cellules vers le bas" puis
"OK"
les cellules sont mainteneant insérées.
Reste à jouer avec "données-filtre automatique" ou "trier"
J'espère que cela te convient.
JP
"daniel M." <letter1@free> a écrit dans le message de news:
OrfkYCvHIHA.1204@TK2MSFTNGP03.phx.gbl...
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne
B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
Bonjour,
Tu peux utiliser les fonctions suivantes:
Selectionnes la colonne ou les cellules à déplacer puis -copier- ensuite
positionnes toi dans la colonne de destination cliques droit "insérer les
cellules copiées" en choisissant "déplacer les cellules vers le bas" puis
"OK"
les cellules sont mainteneant insérées.
Reste à jouer avec "données-filtre automatique" ou "trier"
J'espère que cela te convient.
JP
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonneB, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
Je te remercie de l'idée mais hélas ca ne va pas, en effet en haut de chaque
colonne il y a un titre et quelques cellules vides et en copiant la colonne,
le titre et les cellules vides vont être insérés dans les données de la
colonne réceptrice...
Et si je copie les cellules de la colonne je perds beaucoup de temps .
daniel
"Jean-Paul Brine" a écrit dans le message de
news:Bonjour,
Tu peux utiliser les fonctions suivantes:
Selectionnes la colonne ou les cellules à déplacer puis -copier- ensuite
positionnes toi dans la colonne de destination cliques droit "insérer les
cellules copiées" en choisissant "déplacer les cellules vers le bas" puis
"OK"
les cellules sont mainteneant insérées.
Reste à jouer avec "données-filtre automatique" ou "trier"
J'espère que cela te convient.
JP
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonneB, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
Je te remercie de l'idée mais hélas ca ne va pas, en effet en haut de chaque
colonne il y a un titre et quelques cellules vides et en copiant la colonne,
le titre et les cellules vides vont être insérés dans les données de la
colonne réceptrice...
Et si je copie les cellules de la colonne je perds beaucoup de temps .
daniel
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: efJiRmvHIHA.4712@TK2MSFTNGP04.phx.gbl...
Bonjour,
Tu peux utiliser les fonctions suivantes:
Selectionnes la colonne ou les cellules à déplacer puis -copier- ensuite
positionnes toi dans la colonne de destination cliques droit "insérer les
cellules copiées" en choisissant "déplacer les cellules vers le bas" puis
"OK"
les cellules sont mainteneant insérées.
Reste à jouer avec "données-filtre automatique" ou "trier"
J'espère que cela te convient.
JP
"daniel M." <letter1@free> a écrit dans le message de news:
OrfkYCvHIHA.1204@TK2MSFTNGP03.phx.gbl...
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne
B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
Je te remercie de l'idée mais hélas ca ne va pas, en effet en haut de chaque
colonne il y a un titre et quelques cellules vides et en copiant la colonne,
le titre et les cellules vides vont être insérés dans les données de la
colonne réceptrice...
Et si je copie les cellules de la colonne je perds beaucoup de temps .
daniel
"Jean-Paul Brine" a écrit dans le message de
news:Bonjour,
Tu peux utiliser les fonctions suivantes:
Selectionnes la colonne ou les cellules à déplacer puis -copier- ensuite
positionnes toi dans la colonne de destination cliques droit "insérer les
cellules copiées" en choisissant "déplacer les cellules vers le bas" puis
"OK"
les cellules sont mainteneant insérées.
Reste à jouer avec "données-filtre automatique" ou "trier"
J'espère que cela te convient.
JP
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonneB, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des colonnes à rassembler!
Merci de votre aide
daniel
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des colonnes à rassembler!
Merci de votre aide
daniel
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des colonnes à rassembler!
Merci de votre aide
daniel
Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy Cells(1,
9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy Cells(1,
9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." <letter1@free> a écrit dans le message de news:
OrfkYCvHIHA.1204@TK2MSFTNGP03.phx.gbl...
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy Cells(1,
9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des
colonnes à rassembler!
Merci de votre aide
daniel
Alors ça ça me semblerait la bonne idée! et je te remerçie vivement, mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux données déjà présentes dans la colonne A de la feuille
"total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à copier dans la feuille "total" comme je ne peux en avoir
que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes macros beaucoup plus archaïquement avec l'enregistreur de
macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de news:Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des colonnes à rassembler!
Merci de votre aide
daniel
Alors ça ça me semblerait la bonne idée! et je te remerçie vivement, mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux données déjà présentes dans la colonne A de la feuille
"total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à copier dans la feuille "total" comme je ne peux en avoir
que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes macros beaucoup plus archaïquement avec l'enregistreur de
macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: ui5mkqyHIHA.1184@TK2MSFTNGP04.phx.gbl...
Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." <letter1@free> a écrit dans le message de news: OrfkYCvHIHA.1204@TK2MSFTNGP03.phx.gbl...
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des colonnes à rassembler!
Merci de votre aide
daniel
Alors ça ça me semblerait la bonne idée! et je te remerçie vivement, mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux données déjà présentes dans la colonne A de la feuille
"total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à copier dans la feuille "total" comme je ne peux en avoir
que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes macros beaucoup plus archaïquement avec l'enregistreur de
macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de news:Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des colonnes à rassembler!
Merci de votre aide
daniel
Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." a écrit dans le message de news:Alors ça ça me semblerait la bonne idée! et je te remerçie vivement, mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux données déjà présentes dans la colonne A de la feuille
"total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à copier dans la feuille "total" comme je ne peux en avoir
que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes macros beaucoup plus archaïquement avec l'enregistreur de
macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de news:Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des colonnes à rassembler!
Merci de votre aide
daniel
Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." <letter1@free> a écrit dans le message de news: eOeKE8yHIHA.4880@TK2MSFTNGP03.phx.gbl...
Alors ça ça me semblerait la bonne idée! et je te remerçie vivement, mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux données déjà présentes dans la colonne A de la feuille
"total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à copier dans la feuille "total" comme je ne peux en avoir
que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes macros beaucoup plus archaïquement avec l'enregistreur de
macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: ui5mkqyHIHA.1184@TK2MSFTNGP04.phx.gbl...
Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." <letter1@free> a écrit dans le message de news: OrfkYCvHIHA.1204@TK2MSFTNGP03.phx.gbl...
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des colonnes à rassembler!
Merci de votre aide
daniel
Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." a écrit dans le message de news:Alors ça ça me semblerait la bonne idée! et je te remerçie vivement, mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux données déjà présentes dans la colonne A de la feuille
"total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à copier dans la feuille "total" comme je ne peux en avoir
que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes macros beaucoup plus archaïquement avec l'enregistreur de
macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de news:Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude des colonnes à rassembler!
Merci de votre aide
daniel
Ou un tipeu plus court :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Serge
"Tatanka" a écrit dans le message de news:Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." a écrit dans le message de news:Alors ça ça me semblerait la bonne idée! et je te remerçie vivement,
mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle
ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux
données déjà présentes dans la colonne A de la feuille "total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à
copier dans la feuille "total" comme je ne peux en avoir que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je
mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de
ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes
macros beaucoup plus archaïquement avec l'enregistreur de macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de
news:Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy
Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude
des colonnes à rassembler!
Merci de votre aide
daniel
Ou un tipeu plus court :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Serge
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
OUilHJzHIHA.4560@TK2MSFTNGP03.phx.gbl...
Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." <letter1@free> a écrit dans le message de news:
eOeKE8yHIHA.4880@TK2MSFTNGP03.phx.gbl...
Alors ça ça me semblerait la bonne idée! et je te remerçie vivement,
mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle
ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux
données déjà présentes dans la colonne A de la feuille "total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à
copier dans la feuille "total" comme je ne peux en avoir que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je
mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de
ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes
macros beaucoup plus archaïquement avec l'enregistreur de macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news: ui5mkqyHIHA.1184@TK2MSFTNGP04.phx.gbl...
Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy
Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." <letter1@free> a écrit dans le message de news:
OrfkYCvHIHA.1204@TK2MSFTNGP03.phx.gbl...
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude
des colonnes à rassembler!
Merci de votre aide
daniel
Ou un tipeu plus court :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Serge
"Tatanka" a écrit dans le message de news:Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." a écrit dans le message de news:Alors ça ça me semblerait la bonne idée! et je te remerçie vivement,
mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle
ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux
données déjà présentes dans la colonne A de la feuille "total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à
copier dans la feuille "total" comme je ne peux en avoir que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je
mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de
ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes
macros beaucoup plus archaïquement avec l'enregistreur de macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de
news:Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy
Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude
des colonnes à rassembler!
Merci de votre aide
daniel
Salut serge,
Merci beaucoup de ton aide.
On approche du but je pense,
toutefois à la 1ere activation de la macro, tout va bien: les données de la
premiere feuille se reportent bien dans la colonne A de "total", mais si je
veux ajouter une autre liste (d'une autre feuille, colonneA) il ne se pas se
rien...
Peut être y a t'il eu malentendu: je voudrais pouvoir ajouter (ou ins érer)
d'autres listes (colonne A d'autres feuilles) dans la colonne A de la
feuille "total".
Chaque fois j'activerais la macro à partir de la feuille sur laquelle je
suis.
Bien cordialement
daniel
"Tatanka" a écrit dans le message de ne ws:Ou un tipeu plus court :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Serge
"Tatanka" a écrit dans le message de news:Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp ))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." a écrit dans le message de news:Alors ça ça me semblerait la bonne idée! et je te remerçie v ivement,
mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle
ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A a ux
données déjà présentes dans la colonne A de la feuille "total " .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuille s à
copier dans la feuille "total" comme je ne peux en avoir que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je
mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de
ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes
macros beaucoup plus archaïquement avec l'enregistreur de macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de
news: ui5mkqyHIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z_Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy
Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Cop y _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colon ne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude
des colonnes à rassembler!
Merci de votre aide
daniel
Salut serge,
Merci beaucoup de ton aide.
On approche du but je pense,
toutefois à la 1ere activation de la macro, tout va bien: les données de la
premiere feuille se reportent bien dans la colonne A de "total", mais si je
veux ajouter une autre liste (d'une autre feuille, colonneA) il ne se pas se
rien...
Peut être y a t'il eu malentendu: je voudrais pouvoir ajouter (ou ins érer)
d'autres listes (colonne A d'autres feuilles) dans la colonne A de la
feuille "total".
Chaque fois j'activerais la macro à partir de la feuille sur laquelle je
suis.
Bien cordialement
daniel
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de ne ws:
er3HsH1HIHA.5...@TK2MSFTNGP04.phx.gbl...
Ou un tipeu plus court :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Serge
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de news:
OUilHJzHIHA.4...@TK2MSFTNGP03.phx.gbl...
Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp ))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." <letter1@free> a écrit dans le message de news:
eOeKE8yHIHA.4...@TK2MSFTNGP03.phx.gbl...
Alors ça ça me semblerait la bonne idée! et je te remerçie v ivement,
mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle
ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A a ux
données déjà présentes dans la colonne A de la feuille "total " .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuille s à
copier dans la feuille "total" comme je ne peux en avoir que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je
mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de
ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes
macros beaucoup plus archaïquement avec l'enregistreur de macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de
news: ui5mkqyHIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z_ _@TK2MSFTNGP04.phx.gbl...
Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy
Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Cop y _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." <letter1@free> a écrit dans le message de news:
OrfkYCvHIHA.1...@TK2MSFTNGP03.phx.gbl...
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colon ne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude
des colonnes à rassembler!
Merci de votre aide
daniel
Salut serge,
Merci beaucoup de ton aide.
On approche du but je pense,
toutefois à la 1ere activation de la macro, tout va bien: les données de la
premiere feuille se reportent bien dans la colonne A de "total", mais si je
veux ajouter une autre liste (d'une autre feuille, colonneA) il ne se pas se
rien...
Peut être y a t'il eu malentendu: je voudrais pouvoir ajouter (ou ins érer)
d'autres listes (colonne A d'autres feuilles) dans la colonne A de la
feuille "total".
Chaque fois j'activerais la macro à partir de la feuille sur laquelle je
suis.
Bien cordialement
daniel
"Tatanka" a écrit dans le message de ne ws:Ou un tipeu plus court :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Serge
"Tatanka" a écrit dans le message de news:Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp ))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." a écrit dans le message de news:Alors ça ça me semblerait la bonne idée! et je te remerçie v ivement,
mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à quelle
ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A a ux
données déjà présentes dans la colonne A de la feuille "total " .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuille s à
copier dans la feuille "total" comme je ne peux en avoir que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je
mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction de
ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes
macros beaucoup plus archaïquement avec l'enregistreur de macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de
news: ui5mkqyHIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z_Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy
Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Cop y _
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule colon ne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude
des colonnes à rassembler!
Merci de votre aide
daniel
Salut serge,
Merci beaucoup de ton aide.
On approche du but je pense,
toutefois à la 1ere activation de la macro, tout va bien: les données de
la
premiere feuille se reportent bien dans la colonne A de "total", mais si
je
veux ajouter une autre liste (d'une autre feuille, colonneA) il ne se
passe
rien...
Peut être y a t'il eu malentendu: je voudrais pouvoir ajouter (ou insérer)
d'autres listes (colonne A d'autres feuilles) dans la colonne A de la
feuille "total".
Chaque fois j'activerais la macro à partir de la feuille sur laquelle je
suis.
Bien cordialement
daniel
"Tatanka" a écrit dans le message de news:Ou un tipeu plus court :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Serge
"Tatanka" a écrit dans le message de
news:Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." a écrit dans le message de news:Alors ça ça me semblerait la bonne idée! et je te remerçie vivement,
mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à
quelle
ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux
données déjà présentes dans la colonne A de la feuille "total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à
copier dans la feuille "total" comme je ne peux en avoir que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je
mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction
de
ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes
macros beaucoup plus archaïquement avec l'enregistreur de macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de
news:
ui5mkqyHIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy
Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy
_
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule
colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude
des colonnes à rassembler!
Merci de votre aide
daniel
Salut serge,
Merci beaucoup de ton aide.
On approche du but je pense,
toutefois à la 1ere activation de la macro, tout va bien: les données de
la
premiere feuille se reportent bien dans la colonne A de "total", mais si
je
veux ajouter une autre liste (d'une autre feuille, colonneA) il ne se
passe
rien...
Peut être y a t'il eu malentendu: je voudrais pouvoir ajouter (ou insérer)
d'autres listes (colonne A d'autres feuilles) dans la colonne A de la
feuille "total".
Chaque fois j'activerais la macro à partir de la feuille sur laquelle je
suis.
Bien cordialement
daniel
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de news:
er3HsH1HIHA.5...@TK2MSFTNGP04.phx.gbl...
Ou un tipeu plus court :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Serge
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de
news:
OUilHJzHIHA.4...@TK2MSFTNGP03.phx.gbl...
Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." <letter1@free> a écrit dans le message de news:
eOeKE8yHIHA.4...@TK2MSFTNGP03.phx.gbl...
Alors ça ça me semblerait la bonne idée! et je te remerçie vivement,
mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à
quelle
ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux
données déjà présentes dans la colonne A de la feuille "total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à
copier dans la feuille "total" comme je ne peux en avoir que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je
mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction
de
ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes
macros beaucoup plus archaïquement avec l'enregistreur de macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" <garno...@ENLEVER.videotron.ca> a écrit dans le message de
news:
ui5mkqyHIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@TK2MSFTNGP04.phx.gbl...
Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy
Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy
_
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." <letter1@free> a écrit dans le message de news:
OrfkYCvHIHA.1...@TK2MSFTNGP03.phx.gbl...
bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule
colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude
des colonnes à rassembler!
Merci de votre aide
daniel
Salut serge,
Merci beaucoup de ton aide.
On approche du but je pense,
toutefois à la 1ere activation de la macro, tout va bien: les données de
la
premiere feuille se reportent bien dans la colonne A de "total", mais si
je
veux ajouter une autre liste (d'une autre feuille, colonneA) il ne se
passe
rien...
Peut être y a t'il eu malentendu: je voudrais pouvoir ajouter (ou insérer)
d'autres listes (colonne A d'autres feuilles) dans la colonne A de la
feuille "total".
Chaque fois j'activerais la macro à partir de la feuille sur laquelle je
suis.
Bien cordialement
daniel
"Tatanka" a écrit dans le message de news:Ou un tipeu plus court :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Serge
"Tatanka" a écrit dans le message de
news:Salut Daniel,
Alors essaie donc cette macro :
Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a9].End(xlDown), [a65535].End(xlUp))
If Application.CountA(Worksheets("Total").Columns(1)) = 0 Then
plage.Copy Worksheets("Total").[a1]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub
Est-ce mieux ainsi ?
Serge
"daniel M." a écrit dans le message de news:Alors ça ça me semblerait la bonne idée! et je te remerçie vivement,
mais voici le contexte précis:
toutes mes données démarrent à la ligne 10.(mais je ne sais pas à
quelle
ligne elles se terminent)
je suis feuille 1 et je veux ajouter les données de la colonne A aux
données déjà présentes dans la colonne A de la feuille "total" .
Selon les jours, Il se peut que je j'aurai ainsi à avoir 15 feuilles à
copier dans la feuille "total" comme je ne peux en avoir que 2...
donc si à chaque feuille je peux appliquer ta macro (à laquelle je
mettrais un bouton) ce serait parfait!
Aurais tu la gentillesse de m'affiner un peu cette macro en fonction
de
ces derniers élements?
Bien cordialement
daniel
Ps: malheureusement moi je ne connais pas le code VBA, je fais mes
macros beaucoup plus archaïquement avec l'enregistreur de macro!.
Mais bien sûr je saurais recopier ton code dans une macro vide! :o))
"Tatanka" a écrit dans le message de
news:
ui5mkqyHIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$Salut,
Cette macro semble faire ce que tu veux (pas sûr).
Elle copie dans la colonne I les noms qui sont dans
les colonnes 1 à 5.
Est-ce que ça te convient ?
Sub Copier()
Range(Cells(2, 1).End(xlDown), Cells(65535, 1).End(xlUp)).Copy
Cells(1, 9)
For c = 2 To 5
Range(Cells(2, c).End(xlDown), Cells(65535, c).End(xlUp)).Copy
_
Cells(1, 9).End(xlDown).Offset(1, 0)
Next c
End Sub
"daniel M." a écrit dans le message de news:bonjour
j'ai 450 noms dans la colonne A (450 lignes), 5300 noms dans la
colonne B, 25 noms dans la colonne C.
Existe il un moyen de rassembler tous ces noms dans une seule
colonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultitude
des colonnes à rassembler!
Merci de votre aide
daniel