Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel rassembler les colonnes

rassembler les colonnes

38 réponses
Avatar
daniel M.
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3 4
Avatar
lSteph
Tout à fait d'accord,

Mais faudrait prévoir une « patente » permettant de
savoir si telle ou telle feuille a déjà été copiée.


Alors possibilité (si B n'est pas vide ajouter une colonne)

Sub RecopSelSh()
Dim sh As Worksheet
Sheets("Total").[A1] = "Nom"
Sheets("Total").[B1] = "Feuille"
For Each sh In ActiveWorkbook.Windows(1).SelectedSheets
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
Range(Sheets("Total").[b65536].End(xlUp)(2), _
Sheets("Total").[a65536].End(xlUp).Offset(0, 1)) = sh.Name
Next
Sheets("Total").Activate
End Sub

'lSteph

On 5 nov, 15:49, "Tatanka" wrote:
Salut Stéphane,

Oui tu as bien raison. Avec ta macro dans laquelle
j'ai ajouté Sheets("Total"), Daniel devra sélectionner
les feuilles qu'il veut copier et lancer la macro.
Mais faudrait prévoir une « patente » permettant de
savoir si telle ou telle feuille a déjà été copiée.

Serge


Avatar
Tatanka
Et pour commencer le copiage à la ligne 10 de la feuille Total,
as-tu une meilleure idée que celle de mon message
du 05/11/07 10:51 ?

Serge

"lSteph" a écrit dans le message de news:
Tout à fait d'accord,

Mais faudrait prévoir une « patente » permettant de
savoir si telle ou telle feuille a déjà été copiée.


Alors possibilité (si B n'est pas vide ajouter une colonne)

Sub RecopSelSh()
Dim sh As Worksheet
Sheets("Total").[A1] = "Nom"
Sheets("Total").[B1] = "Feuille"
For Each sh In ActiveWorkbook.Windows(1).SelectedSheets
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
Range(Sheets("Total").[b65536].End(xlUp)(2), _
Sheets("Total").[a65536].End(xlUp).Offset(0, 1)) = sh.Name
Next
Sheets("Total").Activate
End Sub

'lSteph

On 5 nov, 15:49, "Tatanka" wrote:
Salut Stéphane,

Oui tu as bien raison. Avec ta macro dans laquelle
j'ai ajouté Sheets("Total"), Daniel devra sélectionner
les feuilles qu'il veut copier et lancer la macro.
Mais faudrait prévoir une « patente » permettant de
savoir si telle ou telle feuille a déjà été copiée.

Serge


Avatar
lSteph
Essaye cet exemple:

http://cjoint.com/?lfrBmWGS4z

--
lSteph



On 5 nov, 16:13, "daniel M." wrote:
Salut serge
Non rien de changé, ca copie bien la première fois mais ça ne rajou te rien
ensuite...
je n'ai pas appelé la macro Sub Copier() mais Sub assemble_colonnes()
j'espère que celà n'a pas d'incidence...
bien cordialement
daniel

"Tatanka" a écrit dans le message de ne ws:


Et ceci alors ?

Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If IsEmpty(Worksheets("Total").[a10]) Then
plage.Copy Worksheets("Total").[a10]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub

Serge

"daniel M." a écrit dans le message de news:
%
Merci de ta proposition
je ne connais pas le code mais je vois ecrit
feuil1....feuil3....feuil4... j'ai donc un doute
Je te rappelle que je veux copier la colonne A (à partir de la ligne 10)
de la feuille en cour, et l'ajouter dans la feuille "total" colonne A (à
partir ligne 10).
Merci
daniel

"lSteph" a écrit dans le message de news:

Re,
Exemple:

Sub Recop()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Select Case sh.Name
Case "Feuil3", "Feuil4"
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Feuil1.[a65536].End(xlUp)(2)
End Select
Next
End Sub

'--
'Cordialement

'lSteph

On 4 nov, 15:38, "daniel M." wrote:
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 d es
colonnes à rassembler!
Merci de votre aide
daniel








Avatar
lSteph
Si cela s'avérait indispensable au lieu de poser mes titres
nom et feuille (ayant pris en compte de ta judicieuse remarque)
en a1 et B1
les mettre en a9 et b9

--
lSteph
On 5 nov, 17:14, "Tatanka" wrote:
Et pour commencer le copiage à la ligne 10 de la feuille Total,
as-tu une meilleure idée que celle de mon message
du 05/11/07 10:51 ?

Serge

"lSteph" a écrit dans le message de news: 11942781
Tout à fait d'accord,

Mais faudrait prévoir une « patente » permettant de
savoir si telle ou telle feuille a déjà été copiée.


Alors possibilité (si B n'est pas vide ajouter une colonne)

Sub RecopSelSh()
Dim sh As Worksheet
Sheets("Total").[A1] = "Nom"
Sheets("Total").[B1] = "Feuille"
For Each sh In ActiveWorkbook.Windows(1).SelectedSheets
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
Range(Sheets("Total").[b65536].End(xlUp)(2), _
Sheets("Total").[a65536].End(xlUp).Offset(0, 1)) = sh.Name
Next
Sheets("Total").Activate
End Sub

'lSteph

On 5 nov, 15:49, "Tatanka" wrote:

Salut Stéphane,

Oui tu as bien raison. Avec ta macro dans laquelle
j'ai ajouté Sheets("Total"), Daniel devra sélectionner
les feuilles qu'il veut copier et lancer la macro.
Mais faudrait prévoir une « patente » permettant de
savoir si telle ou telle feuille a déjà été copiée.

Serge




Avatar
Tatanka
Salut Stéphane,

Avec ta macro, si tu sélectionnes des feuilles déjà copiées,
elle les copie à nouveau dans la feuille Total.
Mon dernier effort :
Créer une nouvelle feuille nommée Listes et utiliser cette macro
sans jamais modifier manuellement la colonne A de ladite feuille.
Erre-je ?

Sub Copier_Selection_Feuilles_Colonne_A_Total()
Dim F As Worksheet
Sheets("Listes").[a1] = "Nom"
Sheets("Total").[a9] = "Nom"
For Each F In ActiveWorkbook.Windows(1).SelectedSheets
If IsError(Application.Match(F.Name, Sheets("Listes").[A:A], 0)) Then
Sheets("Listes").[a65536].End(xlUp).Offset(1) = F.Name
F.Range("a10", F.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
End If
Next F
End Sub

Serge


"lSteph" a écrit dans le message de news:
Essaye cet exemple:

http://cjoint.com/?lfrBmWGS4z

--
lSteph



On 5 nov, 16:13, "daniel M." wrote:
Salut serge
Non rien de changé, ca copie bien la première fois mais ça ne rajoute rien
ensuite...
je n'ai pas appelé la macro Sub Copier() mais Sub assemble_colonnes()
j'espère que celà n'a pas d'incidence...
bien cordialement
daniel

"Tatanka" a écrit dans le message de news:


Et ceci alors ?

Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If IsEmpty(Worksheets("Total").[a10]) Then
plage.Copy Worksheets("Total").[a10]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub

Serge

"daniel M." a écrit dans le message de news:
%
Merci de ta proposition
je ne connais pas le code mais je vois ecrit
feuil1....feuil3....feuil4... j'ai donc un doute
Je te rappelle que je veux copier la colonne A (à partir de la ligne 10)
de la feuille en cour, et l'ajouter dans la feuille "total" colonne A (à
partir ligne 10).
Merci
daniel

"lSteph" a écrit dans le message de news:

Re,
Exemple:

Sub Recop()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Select Case sh.Name
Case "Feuil3", "Feuil4"
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Feuil1.[a65536].End(xlUp)(2)
End Select
Next
End Sub

'--
'Cordialement

'lSteph

On 4 nov, 15:38, "daniel M." wrote:
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








Avatar
daniel M.
Chers amis
tout d'abord merci de vos efforts à vous deux !
j'ai bien reçu un exemple qui me semble convenir parfaitement à ce que je
souhaitais.
Je trouve que c'est une trés bonne idée d'avoir mis une 2e colonne
spécifiant la feuille d'origine.
Par ailleurs, comme le dit serge, et je n'y avais pas pensé, c'est vrai que
sur le nombre il y a possibilité de mettre 2 fois la même feuille ....c'est
le peaufinement suprême :o)
En tout cas je vous remercie de votre aide et pour ne pas rester en reste,
vous me feriez plaisir de choisir l'article de votre choix sur mon site
(signalétique). vous me direz par l'adresse mail communiquée
Comme je ne veux pas faire de pub ici je vais utiliser le génial systeme de
stéphane: http://cjoint.com/?lfuqPT7zBG
bien cordialement
daniel

"Tatanka" a écrit dans le message de news:

Salut Stéphane,

Avec ta macro, si tu sélectionnes des feuilles déjà copiées,
elle les copie à nouveau dans la feuille Total.
Mon dernier effort :
Créer une nouvelle feuille nommée Listes et utiliser cette macro
sans jamais modifier manuellement la colonne A de ladite feuille.
Erre-je ?

Sub Copier_Selection_Feuilles_Colonne_A_Total()
Dim F As Worksheet
Sheets("Listes").[a1] = "Nom"
Sheets("Total").[a9] = "Nom"
For Each F In ActiveWorkbook.Windows(1).SelectedSheets
If IsError(Application.Match(F.Name, Sheets("Listes").[A:A], 0)) Then
Sheets("Listes").[a65536].End(xlUp).Offset(1) = F.Name
F.Range("a10", F.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
End If
Next F
End Sub

Serge


"lSteph" a écrit dans le message de news:

Essaye cet exemple:

http://cjoint.com/?lfrBmWGS4z

--
lSteph



On 5 nov, 16:13, "daniel M." wrote:
Salut serge
Non rien de changé, ca copie bien la première fois mais ça ne rajoute
rien
ensuite...
je n'ai pas appelé la macro Sub Copier() mais Sub assemble_colonnes()
j'espère que celà n'a pas d'incidence...
bien cordialement
daniel

"Tatanka" a écrit dans le message de
news:


Et ceci alors ?

Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If IsEmpty(Worksheets("Total").[a10]) Then
plage.Copy Worksheets("Total").[a10]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub

Serge

"daniel M." a écrit dans le message de news:
%
Merci de ta proposition
je ne connais pas le code mais je vois ecrit
feuil1....feuil3....feuil4... j'ai donc un doute
Je te rappelle que je veux copier la colonne A (à partir de la ligne
10)
de la feuille en cour, et l'ajouter dans la feuille "total" colonne A
(à
partir ligne 10).
Merci
daniel

"lSteph" a écrit dans le message de news:

Re,
Exemple:

Sub Recop()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Select Case sh.Name
Case "Feuil3", "Feuil4"
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Feuil1.[a65536].End(xlUp)(2)
End Select
Next
End Sub

'--
'Cordialement

'lSteph

On 4 nov, 15:38, "daniel M." wrote:
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













Avatar
Tatanka
Salut Daniel,

Voici un autre exemple :
http://cjoint.com/?lfuYjwzCjb

Serge



"daniel M." a écrit dans le message de news: u6ozbG%
Chers amis
tout d'abord merci de vos efforts à vous deux !
j'ai bien reçu un exemple qui me semble convenir parfaitement à ce que je souhaitais.
Je trouve que c'est une trés bonne idée d'avoir mis une 2e colonne spécifiant la feuille d'origine.
Par ailleurs, comme le dit serge, et je n'y avais pas pensé, c'est vrai que sur le nombre il y a possibilité de mettre 2 fois la
même feuille ....c'est le peaufinement suprême :o)
En tout cas je vous remercie de votre aide et pour ne pas rester en reste, vous me feriez plaisir de choisir l'article de votre
choix sur mon site (signalétique). vous me direz par l'adresse mail communiquée
Comme je ne veux pas faire de pub ici je vais utiliser le génial systeme de stéphane: http://cjoint.com/?lfuqPT7zBG
bien cordialement
daniel

"Tatanka" a écrit dans le message de news:
Salut Stéphane,

Avec ta macro, si tu sélectionnes des feuilles déjà copiées,
elle les copie à nouveau dans la feuille Total.
Mon dernier effort :
Créer une nouvelle feuille nommée Listes et utiliser cette macro
sans jamais modifier manuellement la colonne A de ladite feuille.
Erre-je ?

Sub Copier_Selection_Feuilles_Colonne_A_Total()
Dim F As Worksheet
Sheets("Listes").[a1] = "Nom"
Sheets("Total").[a9] = "Nom"
For Each F In ActiveWorkbook.Windows(1).SelectedSheets
If IsError(Application.Match(F.Name, Sheets("Listes").[A:A], 0)) Then
Sheets("Listes").[a65536].End(xlUp).Offset(1) = F.Name
F.Range("a10", F.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
End If
Next F
End Sub

Serge


"lSteph" a écrit dans le message de news:
Essaye cet exemple:

http://cjoint.com/?lfrBmWGS4z

--
lSteph



On 5 nov, 16:13, "daniel M." wrote:
Salut serge
Non rien de changé, ca copie bien la première fois mais ça ne rajoute rien
ensuite...
je n'ai pas appelé la macro Sub Copier() mais Sub assemble_colonnes()
j'espère que celà n'a pas d'incidence...
bien cordialement
daniel

"Tatanka" a écrit dans le message de news:


Et ceci alors ?

Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If IsEmpty(Worksheets("Total").[a10]) Then
plage.Copy Worksheets("Total").[a10]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub

Serge

"daniel M." a écrit dans le message de news:
%
Merci de ta proposition
je ne connais pas le code mais je vois ecrit
feuil1....feuil3....feuil4... j'ai donc un doute
Je te rappelle que je veux copier la colonne A (à partir de la ligne 10)
de la feuille en cour, et l'ajouter dans la feuille "total" colonne A (à
partir ligne 10).
Merci
daniel

"lSteph" a écrit dans le message de news:

Re,
Exemple:

Sub Recop()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Select Case sh.Name
Case "Feuil3", "Feuil4"
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Feuil1.[a65536].End(xlUp)(2)
End Select
Next
End Sub

'--
'Cordialement

'lSteph

On 4 nov, 15:38, "daniel M." wrote:
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

















Avatar
Tatanka
Et en modifiant un tantinet la macro de Stéphane, on peut
se passer de la feuille Listes que j'avais ajoutée.

Sub Copier_Selection_Feuilles_Colonne_A_Total()
Dim F As Worksheet
Sheets("Total").[a9] = "Nom"
Sheets("Total").[b9] = "Feuille"
For Each F In ActiveWorkbook.Windows(1).SelectedSheets
If IsError(Application.Match(F.Name, Sheets("Total").[B:B], 0)) Then
F.Range("a10", F.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
Range(Sheets("Total").[b65536].End(xlUp)(2), _
Sheets("Total").[a65536].End(xlUp).Offset(0, 1)) = F.Name
End If
Next F
Sheets("Total").Activate 'Facultatif
End Sub

Serge



"Tatanka" a écrit dans le message de news: %23ANCoU%
Salut Daniel,

Voici un autre exemple :
http://cjoint.com/?lfuYjwzCjb

Serge



"daniel M." a écrit dans le message de news: u6ozbG%
Chers amis
tout d'abord merci de vos efforts à vous deux !
j'ai bien reçu un exemple qui me semble convenir parfaitement à ce que je souhaitais.
Je trouve que c'est une trés bonne idée d'avoir mis une 2e colonne spécifiant la feuille d'origine.
Par ailleurs, comme le dit serge, et je n'y avais pas pensé, c'est vrai que sur le nombre il y a possibilité de mettre 2 fois la
même feuille ....c'est le peaufinement suprême :o)
En tout cas je vous remercie de votre aide et pour ne pas rester en reste, vous me feriez plaisir de choisir l'article de votre
choix sur mon site (signalétique). vous me direz par l'adresse mail communiquée
Comme je ne veux pas faire de pub ici je vais utiliser le génial systeme de stéphane: http://cjoint.com/?lfuqPT7zBG
bien cordialement
daniel

"Tatanka" a écrit dans le message de news:
Salut Stéphane,

Avec ta macro, si tu sélectionnes des feuilles déjà copiées,
elle les copie à nouveau dans la feuille Total.
Mon dernier effort :
Créer une nouvelle feuille nommée Listes et utiliser cette macro
sans jamais modifier manuellement la colonne A de ladite feuille.
Erre-je ?

Sub Copier_Selection_Feuilles_Colonne_A_Total()
Dim F As Worksheet
Sheets("Listes").[a1] = "Nom"
Sheets("Total").[a9] = "Nom"
For Each F In ActiveWorkbook.Windows(1).SelectedSheets
If IsError(Application.Match(F.Name, Sheets("Listes").[A:A], 0)) Then
Sheets("Listes").[a65536].End(xlUp).Offset(1) = F.Name
F.Range("a10", F.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
End If
Next F
End Sub

Serge


"lSteph" a écrit dans le message de news:
Essaye cet exemple:

http://cjoint.com/?lfrBmWGS4z

--
lSteph



On 5 nov, 16:13, "daniel M." wrote:
Salut serge
Non rien de changé, ca copie bien la première fois mais ça ne rajoute rien
ensuite...
je n'ai pas appelé la macro Sub Copier() mais Sub assemble_colonnes()
j'espère que celà n'a pas d'incidence...
bien cordialement
daniel

"Tatanka" a écrit dans le message de news:


Et ceci alors ?

Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If IsEmpty(Worksheets("Total").[a10]) Then
plage.Copy Worksheets("Total").[a10]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub

Serge

"daniel M." a écrit dans le message de news:
%
Merci de ta proposition
je ne connais pas le code mais je vois ecrit
feuil1....feuil3....feuil4... j'ai donc un doute
Je te rappelle que je veux copier la colonne A (à partir de la ligne 10)
de la feuille en cour, et l'ajouter dans la feuille "total" colonne A (à
partir ligne 10).
Merci
daniel

"lSteph" a écrit dans le message de news:

Re,
Exemple:

Sub Recop()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Select Case sh.Name
Case "Feuil3", "Feuil4"
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Feuil1.[a65536].End(xlUp)(2)
End Select
Next
End Sub

'--
'Cordialement

'lSteph

On 4 nov, 15:38, "daniel M." wrote:
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





















Avatar
daniel M.
salut serge
Je te remercie, cet exemple fonctionne trés bien.
J'aurais tant aimé maitriser cette programation mais ça n'a jamais voulu
'entrer'! pourtant dans le temps je faisais n'importe quoi en basic sur un
trs80 puis un apple II.... ca doit être l'age :o(
Aujourd'hui j'en suis réduit à faire joujou avec l'enregistreur de macro :o)
En tout cas pour cette fois je suis comblé et celà va me faire gagner
beaucoup de temps crois moi.
mes amitiés
daniel
ps: n'oublie pas le lien du message précédent.

"Tatanka" a écrit dans le message de news:
%23ANCoU%
Salut Daniel,

Voici un autre exemple :
http://cjoint.com/?lfuYjwzCjb

Serge



"daniel M." a écrit dans le message de news:
u6ozbG%
Chers amis
tout d'abord merci de vos efforts à vous deux !
j'ai bien reçu un exemple qui me semble convenir parfaitement à ce que je
souhaitais.
Je trouve que c'est une trés bonne idée d'avoir mis une 2e colonne
spécifiant la feuille d'origine.
Par ailleurs, comme le dit serge, et je n'y avais pas pensé, c'est vrai
que sur le nombre il y a possibilité de mettre 2 fois la même feuille
....c'est le peaufinement suprême :o)
En tout cas je vous remercie de votre aide et pour ne pas rester en
reste, vous me feriez plaisir de choisir l'article de votre choix sur mon
site (signalétique). vous me direz par l'adresse mail communiquée
Comme je ne veux pas faire de pub ici je vais utiliser le génial systeme
de stéphane: http://cjoint.com/?lfuqPT7zBG
bien cordialement
daniel

"Tatanka" a écrit dans le message de
news:
Salut Stéphane,

Avec ta macro, si tu sélectionnes des feuilles déjà copiées,
elle les copie à nouveau dans la feuille Total.
Mon dernier effort :
Créer une nouvelle feuille nommée Listes et utiliser cette macro
sans jamais modifier manuellement la colonne A de ladite feuille.
Erre-je ?

Sub Copier_Selection_Feuilles_Colonne_A_Total()
Dim F As Worksheet
Sheets("Listes").[a1] = "Nom"
Sheets("Total").[a9] = "Nom"
For Each F In ActiveWorkbook.Windows(1).SelectedSheets
If IsError(Application.Match(F.Name, Sheets("Listes").[A:A], 0)) Then
Sheets("Listes").[a65536].End(xlUp).Offset(1) = F.Name
F.Range("a10", F.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
End If
Next F
End Sub

Serge


"lSteph" a écrit dans le message de news:

Essaye cet exemple:

http://cjoint.com/?lfrBmWGS4z

--
lSteph



On 5 nov, 16:13, "daniel M." wrote:
Salut serge
Non rien de changé, ca copie bien la première fois mais ça ne rajoute
rien
ensuite...
je n'ai pas appelé la macro Sub Copier() mais Sub assemble_colonnes()
j'espère que celà n'a pas d'incidence...
bien cordialement
daniel

"Tatanka" a écrit dans le message de
news:


Et ceci alors ?

Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If IsEmpty(Worksheets("Total").[a10]) Then
plage.Copy Worksheets("Total").[a10]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1, 0)
End If
End Sub

Serge

"daniel M." a écrit dans le message de news:
%
Merci de ta proposition
je ne connais pas le code mais je vois ecrit
feuil1....feuil3....feuil4... j'ai donc un doute
Je te rappelle que je veux copier la colonne A (à partir de la ligne
10)
de la feuille en cour, et l'ajouter dans la feuille "total" colonne
A (à
partir ligne 10).
Merci
daniel

"lSteph" a écrit dans le message de news:

Re,
Exemple:

Sub Recop()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Select Case sh.Name
Case "Feuil3", "Feuil4"
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Feuil1.[a65536].End(xlUp)(2)
End Select
Next
End Sub

'--
'Cordialement

'lSteph

On 4 nov, 15:38, "daniel M." wrote:
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





















Avatar
daniel M.
salut serge
cette macro permet également d'éviter de copier 2 fois la même feuille?
daniel

"Tatanka" a écrit dans le message de news:
%23gGzOk%
Et en modifiant un tantinet la macro de Stéphane, on peut
se passer de la feuille Listes que j'avais ajoutée.

Sub Copier_Selection_Feuilles_Colonne_A_Total()
Dim F As Worksheet
Sheets("Total").[a9] = "Nom"
Sheets("Total").[b9] = "Feuille"
For Each F In ActiveWorkbook.Windows(1).SelectedSheets
If IsError(Application.Match(F.Name, Sheets("Total").[B:B], 0)) Then
F.Range("a10", F.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
Range(Sheets("Total").[b65536].End(xlUp)(2), _
Sheets("Total").[a65536].End(xlUp).Offset(0, 1)) = F.Name
End If
Next F
Sheets("Total").Activate 'Facultatif
End Sub

Serge



"Tatanka" a écrit dans le message de news:
%23ANCoU%
Salut Daniel,

Voici un autre exemple :
http://cjoint.com/?lfuYjwzCjb

Serge



"daniel M." a écrit dans le message de news:
u6ozbG%
Chers amis
tout d'abord merci de vos efforts à vous deux !
j'ai bien reçu un exemple qui me semble convenir parfaitement à ce que
je souhaitais.
Je trouve que c'est une trés bonne idée d'avoir mis une 2e colonne
spécifiant la feuille d'origine.
Par ailleurs, comme le dit serge, et je n'y avais pas pensé, c'est vrai
que sur le nombre il y a possibilité de mettre 2 fois la même feuille
....c'est le peaufinement suprême :o)
En tout cas je vous remercie de votre aide et pour ne pas rester en
reste, vous me feriez plaisir de choisir l'article de votre choix sur
mon site (signalétique). vous me direz par l'adresse mail communiquée
Comme je ne veux pas faire de pub ici je vais utiliser le génial systeme
de stéphane: http://cjoint.com/?lfuqPT7zBG
bien cordialement
daniel

"Tatanka" a écrit dans le message de
news:
Salut Stéphane,

Avec ta macro, si tu sélectionnes des feuilles déjà copiées,
elle les copie à nouveau dans la feuille Total.
Mon dernier effort :
Créer une nouvelle feuille nommée Listes et utiliser cette macro
sans jamais modifier manuellement la colonne A de ladite feuille.
Erre-je ?

Sub Copier_Selection_Feuilles_Colonne_A_Total()
Dim F As Worksheet
Sheets("Listes").[a1] = "Nom"
Sheets("Total").[a9] = "Nom"
For Each F In ActiveWorkbook.Windows(1).SelectedSheets
If IsError(Application.Match(F.Name, Sheets("Listes").[A:A], 0))
Then
Sheets("Listes").[a65536].End(xlUp).Offset(1) = F.Name
F.Range("a10", F.[a65536].End(xlUp).Address).Copy _
Sheets("Total").[a65536].End(xlUp)(2)
End If
Next F
End Sub

Serge


"lSteph" a écrit dans le message de news:

Essaye cet exemple:

http://cjoint.com/?lfrBmWGS4z

--
lSteph



On 5 nov, 16:13, "daniel M." wrote:
Salut serge
Non rien de changé, ca copie bien la première fois mais ça ne rajoute
rien
ensuite...
je n'ai pas appelé la macro Sub Copier() mais Sub assemble_colonnes()
j'espère que celà n'a pas d'incidence...
bien cordialement
daniel

"Tatanka" a écrit dans le message de
news:


Et ceci alors ?

Sub Copier()
Dim plage As Range
Set plage = ActiveSheet.Range([a10], [a65535].End(xlUp))
If IsEmpty(Worksheets("Total").[a10]) Then
plage.Copy Worksheets("Total").[a10]
Else
plage.Copy Worksheets("Total").[a65535].End(xlUp).Offset(1,
0)
End If
End Sub

Serge

"daniel M." a écrit dans le message de news:
%
Merci de ta proposition
je ne connais pas le code mais je vois ecrit
feuil1....feuil3....feuil4... j'ai donc un doute
Je te rappelle que je veux copier la colonne A (à partir de la
ligne 10)
de la feuille en cour, et l'ajouter dans la feuille "total" colonne
A (à
partir ligne 10).
Merci
daniel

"lSteph" a écrit dans le message de news:

Re,
Exemple:

Sub Recop()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Select Case sh.Name
Case "Feuil3", "Feuil4"
sh.Range("a10", sh.[a65536].End(xlUp).Address).Copy _
Feuil1.[a65536].End(xlUp)(2)
End Select
Next
End Sub

'--
'Cordialement

'lSteph

On 4 nov, 15:38, "daniel M." wrote:
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

























1 2 3 4