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

8 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
Bonjour Serge et Daniel , &....,

Cela a été bien poursuivi mais on pourrait ajouter deux grains de sel

(pour aller plus vite)
Application.screenupdatingúlse
au début et
reste, le truc qui est tellement évident depuis le début, qu'on en a
pas parlé.
Il ne faut pas que le contenu (nb de cellules restant à copier)
dépasse la capacité de la colonne.
A tout hasard il serait peut être bon de s'en prémunir directement
dans le code

dim lim as long
...
lime536-Sheets("Total").[a65536].End(xlUp).row

...
if F.Range("a10", F.[a65536].End(xlUp).cells.count>lim then
msgbox "Arrêt à la feuille: " & F.name & " dépassement de capacité"
exit sub
else
....
end if
...

'@+
'lSteph


On 5 nov, 21:18, "Tatanka" wrote:
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 ne ws: %23ANCoU%

Salut Daniel,

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

Serge

"daniel M." a écrit dans le message denews: u6ozbG%23H IHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$ gbl...
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 v rai 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 re ste, 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 sys teme 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)) T hen
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: 1194
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_colonn es()
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" colon ne 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 co lonne?
Moi je fais des copier/coller fastidieux car j'en ai une foultit ude des
colonnes à rassembler!
Merci de votre aide
daniel
















Avatar
Tatanka
Salut les deux entêtés que vous êtes,

Ou bien dans ce cas, copier les données dans les colonnes
D et E de la feuile Total ou ajouter une feuille Total1 ...

Serge, l'autre entêté


"lSteph" a écrit dans le message de news:
Bonjour Serge et Daniel , &....,

Cela a été bien poursuivi mais on pourrait ajouter deux grains de sel

(pour aller plus vite)
Application.screenupdatingúlse
au début et
reste, le truc qui est tellement évident depuis le début, qu'on en a
pas parlé.
Il ne faut pas que le contenu (nb de cellules restant à copier)
dépasse la capacité de la colonne.
A tout hasard il serait peut être bon de s'en prémunir directement
dans le code

dim lim as long
...
lime536-Sheets("Total").[a65536].End(xlUp).row

...
if F.Range("a10", F.[a65536].End(xlUp).cells.count>lim then
msgbox "Arrêt à la feuille: " & F.name & " dépassement de capacité"
exit sub
else
....
end if
...

'@+
'lSteph


On 5 nov, 21:18, "Tatanka" wrote:
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 denews:
u6ozbG%23HIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
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
Mes nombreux essais me premettent de croire que oui.

Serge

"daniel M." a écrit dans le message de news:
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





























Avatar
daniel M.
Moi j'suis pas un entété serge...La preuve: je n'ai pas mis dans le cahier
des charges :o) , que la capacité de la feuille risquait d'être insuffisante
....pour la simple raison que j'y avais pensé au départ et que ça ne risque
pas d'arriver .(j'arriverai à un maximum de 30 ou 40 000 lignes), Donc pas
de problême de ce côté.!
Par contre il va falloir que je relise tous vos messages car je ne sais plus
trop ou en est la meilleur amélioration mais ne vous inquietez pas j'y
arriverai!.
Ce que j'ai mis en place fonctionne déjà trés bien par rapport à ce que je
souhaitais.
Mille merci à vous deux et je ne manquerai pas de vous recontacter si
problême rencontré.
De votre côté, à l'approche des fêtes et des cadeaux à faire n'oubliez pas
de regarder sur mon site si qq chose vous tente!
bien cordialement
daniel

"Tatanka" a écrit dans le message de news:
%
Salut les deux entêtés que vous êtes,

Ou bien dans ce cas, copier les données dans les colonnes
D et E de la feuile Total ou ajouter une feuille Total1 ...

Serge, l'autre entêté


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

Bonjour Serge et Daniel , &....,

Cela a été bien poursuivi mais on pourrait ajouter deux grains de sel

(pour aller plus vite)
Application.screenupdatingúlse
au début et
reste, le truc qui est tellement évident depuis le début, qu'on en a
pas parlé.
Il ne faut pas que le contenu (nb de cellules restant à copier)
dépasse la capacité de la colonne.
A tout hasard il serait peut être bon de s'en prémunir directement
dans le code

dim lim as long
...
lime536-Sheets("Total").[a65536].End(xlUp).row

...
if F.Range("a10", F.[a65536].End(xlUp).cells.count>lim then
msgbox "Arrêt à la feuille: " & F.name & " dépassement de capacité"
exit sub
else
....
end if
...

'@+
'lSteph


On 5 nov, 21:18, "Tatanka" wrote:
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 denews:
u6ozbG%23HIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
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 exemple qui reprend la macro de Stéphane
que j'ai un tantinet modifiée pour éviter des copies
déjà faites. Ça me semble correct.
http://cjoint.com/?lgsAkJ3gGV

Serge


"daniel M." a écrit dans le message de news:
Moi j'suis pas un entété serge...La preuve: je n'ai pas mis dans le cahier des charges :o) , que la capacité de la feuille
risquait d'être insuffisante ....pour la simple raison que j'y avais pensé au départ et que ça ne risque pas d'arriver
.(j'arriverai à un maximum de 30 ou 40 000 lignes), Donc pas de problême de ce côté.!
Par contre il va falloir que je relise tous vos messages car je ne sais plus trop ou en est la meilleur amélioration mais ne vous
inquietez pas j'y arriverai!.
Ce que j'ai mis en place fonctionne déjà trés bien par rapport à ce que je souhaitais.
Mille merci à vous deux et je ne manquerai pas de vous recontacter si problême rencontré.
De votre côté, à l'approche des fêtes et des cadeaux à faire n'oubliez pas de regarder sur mon site si qq chose vous tente!
bien cordialement
daniel

"Tatanka" a écrit dans le message de news: %
Salut les deux entêtés que vous êtes,

Ou bien dans ce cas, copier les données dans les colonnes
D et E de la feuile Total ou ajouter une feuille Total1 ...

Serge, l'autre entêté


"lSteph" a écrit dans le message de news:
Bonjour Serge et Daniel , &....,

Cela a été bien poursuivi mais on pourrait ajouter deux grains de sel

(pour aller plus vite)
Application.screenupdatingúlse
au début et
reste, le truc qui est tellement évident depuis le début, qu'on en a
pas parlé.
Il ne faut pas que le contenu (nb de cellules restant à copier)
dépasse la capacité de la colonne.
A tout hasard il serait peut être bon de s'en prémunir directement
dans le code

dim lim as long
...
lime536-Sheets("Total").[a65536].End(xlUp).row

...
if F.Range("a10", F.[a65536].End(xlUp).cells.count>lim then
msgbox "Arrêt à la feuille: " & F.name & " dépassement de capacité"
exit sub
else
....
end if
...

'@+
'lSteph


On 5 nov, 21:18, "Tatanka" wrote:
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 denews:
u6ozbG%23HIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
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
Excuse moi j'ai pris un peu de retard.
Voila j'ai fait des essais grandeur nature et j'ai un bleme sur la 1ere
feuille (la 1ere feuille uniquement).
je t'explique:
Dans la feuille 1 j'ai 635 noms, Dans total il copie bien les 635 noms
mais dans la colonne B il met 1999 nom de la feuille! si bien que quand
je copie une autre feuille elle se colle à la 2000e ligne dans total.
Ensuite tout fonctionne normalement.

Par contre si je demarre l'operation par une autre feuille que la feuille 1
tout va bien jusqu'à ce que j'ajoute la feuille 1 ou le problême recommence.
j'espere que tu m'as bien compris
bien cordialement
daniel

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

Voici un exemple qui reprend la macro de Stéphane
que j'ai un tantinet modifiée pour éviter des copies
déjà faites. Ça me semble correct.
http://cjoint.com/?lgsAkJ3gGV

Serge


"daniel M." a écrit dans le message de news:

Moi j'suis pas un entété serge...La preuve: je n'ai pas mis dans le
cahier des charges :o) , que la capacité de la feuille risquait d'être
insuffisante ....pour la simple raison que j'y avais pensé au départ et
que ça ne risque pas d'arriver .(j'arriverai à un maximum de 30 ou 40 000
lignes), Donc pas de problême de ce côté.!
Par contre il va falloir que je relise tous vos messages car je ne sais
plus trop ou en est la meilleur amélioration mais ne vous inquietez pas
j'y arriverai!.
Ce que j'ai mis en place fonctionne déjà trés bien par rapport à ce que
je souhaitais.
Mille merci à vous deux et je ne manquerai pas de vous recontacter si
problême rencontré.
De votre côté, à l'approche des fêtes et des cadeaux à faire n'oubliez
pas de regarder sur mon site si qq chose vous tente!
bien cordialement
daniel

"Tatanka" a écrit dans le message de
news: %
Salut les deux entêtés que vous êtes,

Ou bien dans ce cas, copier les données dans les colonnes
D et E de la feuile Total ou ajouter une feuille Total1 ...

Serge, l'autre entêté


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

Bonjour Serge et Daniel , &....,

Cela a été bien poursuivi mais on pourrait ajouter deux grains de sel

(pour aller plus vite)
Application.screenupdatingúlse
au début et
reste, le truc qui est tellement évident depuis le début, qu'on en a
pas parlé.
Il ne faut pas que le contenu (nb de cellules restant à copier)
dépasse la capacité de la colonne.
A tout hasard il serait peut être bon de s'en prémunir directement
dans le code

dim lim as long
...
lime536-Sheets("Total").[a65536].End(xlUp).row

...
if F.Range("a10", F.[a65536].End(xlUp).cells.count>lim then
msgbox "Arrêt à la feuille: " & F.name & " dépassement de capacité"
exit sub
else
....
end if
...

'@+
'lSteph


On 5 nov, 21:18, "Tatanka" wrote:
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 denews:
u6ozbG%23HIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
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,

Je fais une supposition :
À mon avis, il y a une cellule non vide sous ta liste de noms
de la Feuil1 (près de A2000). Elle contient peut-être un espace ou un caractère
invisible. Pour le savoir, place-toi dans la cellule juste en-dessous
du dernier nom, tape sur la touche End et ensuite sur la flèche
vers le bas. En tous cas, sélectionne toutes les cellules de la colonne A
situées en-dessous de ton dernier nom et efface tout.
Pour toutes les autres feuilles, assure-toi que les cellules sous le dernier
nom sont réellement vides.
Fais le ménage des colonnes A et B de la feuille Total et lance la macro.
Peut-être que ça va régler ton problème.

Serge


"daniel M." a écrit dans le message de news: u%
Salut serge
Excuse moi j'ai pris un peu de retard.
Voila j'ai fait des essais grandeur nature et j'ai un bleme sur la 1ere feuille (la 1ere feuille uniquement).
je t'explique:
Dans la feuille 1 j'ai 635 noms, Dans total il copie bien les 635 noms mais dans la colonne B il met 1999 nom de la feuille!
si bien que quand je copie une autre feuille elle se colle à la 2000e ligne dans total.
Ensuite tout fonctionne normalement.

Par contre si je demarre l'operation par une autre feuille que la feuille 1 tout va bien jusqu'à ce que j'ajoute la feuille 1 ou
le problême recommence.
j'espere que tu m'as bien compris
bien cordialement
daniel

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

Voici un exemple qui reprend la macro de Stéphane
que j'ai un tantinet modifiée pour éviter des copies
déjà faites. Ça me semble correct.
http://cjoint.com/?lgsAkJ3gGV

Serge


"daniel M." a écrit dans le message de news:
Moi j'suis pas un entété serge...La preuve: je n'ai pas mis dans le cahier des charges :o) , que la capacité de la feuille
risquait d'être insuffisante ....pour la simple raison que j'y avais pensé au départ et que ça ne risque pas d'arriver
.(j'arriverai à un maximum de 30 ou 40 000 lignes), Donc pas de problême de ce côté.!
Par contre il va falloir que je relise tous vos messages car je ne sais plus trop ou en est la meilleur amélioration mais ne
vous inquietez pas j'y arriverai!.
Ce que j'ai mis en place fonctionne déjà trés bien par rapport à ce que je souhaitais.
Mille merci à vous deux et je ne manquerai pas de vous recontacter si problême rencontré.
De votre côté, à l'approche des fêtes et des cadeaux à faire n'oubliez pas de regarder sur mon site si qq chose vous tente!
bien cordialement
daniel

"Tatanka" a écrit dans le message de news: %
Salut les deux entêtés que vous êtes,

Ou bien dans ce cas, copier les données dans les colonnes
D et E de la feuile Total ou ajouter une feuille Total1 ...

Serge, l'autre entêté


"lSteph" a écrit dans le message de news:
Bonjour Serge et Daniel , &....,

Cela a été bien poursuivi mais on pourrait ajouter deux grains de sel

(pour aller plus vite)
Application.screenupdatingúlse
au début et
reste, le truc qui est tellement évident depuis le début, qu'on en a
pas parlé.
Il ne faut pas que le contenu (nb de cellules restant à copier)
dépasse la capacité de la colonne.
A tout hasard il serait peut être bon de s'en prémunir directement
dans le code

dim lim as long
...
lime536-Sheets("Total").[a65536].End(xlUp).row

...
if F.Range("a10", F.[a65536].End(xlUp).cells.count>lim then
msgbox "Arrêt à la feuille: " & F.name & " dépassement de capacité"
exit sub
else
....
end if
...

'@+
'lSteph


On 5 nov, 21:18, "Tatanka" wrote:
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 denews:
u6ozbG%23HIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
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.
Bonjour serge,
Merci de ton diagnostique, il y avait en effet qq chose d'invisible....ce
n'est donc encore pas cette fois que je te prendai en défaut ! :o).
Donc apparemment tout est parfait! merci encore
daniel

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

Salut Daniel,

Je fais une supposition :
À mon avis, il y a une cellule non vide sous ta liste de noms
de la Feuil1 (près de A2000). Elle contient peut-être un espace ou un
caractère
invisible. Pour le savoir, place-toi dans la cellule juste en-dessous
du dernier nom, tape sur la touche End et ensuite sur la flèche
vers le bas. En tous cas, sélectionne toutes les cellules de la colonne A
situées en-dessous de ton dernier nom et efface tout.
Pour toutes les autres feuilles, assure-toi que les cellules sous le
dernier
nom sont réellement vides.
Fais le ménage des colonnes A et B de la feuille Total et lance la macro.
Peut-être que ça va régler ton problème.

Serge


"daniel M." a écrit dans le message de news:
u%
Salut serge
Excuse moi j'ai pris un peu de retard.
Voila j'ai fait des essais grandeur nature et j'ai un bleme sur la 1ere
feuille (la 1ere feuille uniquement).
je t'explique:
Dans la feuille 1 j'ai 635 noms, Dans total il copie bien les 635
noms mais dans la colonne B il met 1999 nom de la feuille! si bien que
quand je copie une autre feuille elle se colle à la 2000e ligne dans
total.
Ensuite tout fonctionne normalement.

Par contre si je demarre l'operation par une autre feuille que la feuille
1 tout va bien jusqu'à ce que j'ajoute la feuille 1 ou le problême
recommence.
j'espere que tu m'as bien compris
bien cordialement
daniel

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

Voici un exemple qui reprend la macro de Stéphane
que j'ai un tantinet modifiée pour éviter des copies
déjà faites. Ça me semble correct.
http://cjoint.com/?lgsAkJ3gGV

Serge


"daniel M." a écrit dans le message de news:

Moi j'suis pas un entété serge...La preuve: je n'ai pas mis dans le
cahier des charges :o) , que la capacité de la feuille risquait d'être
insuffisante ....pour la simple raison que j'y avais pensé au départ et
que ça ne risque pas d'arriver .(j'arriverai à un maximum de 30 ou 40
000 lignes), Donc pas de problême de ce côté.!
Par contre il va falloir que je relise tous vos messages car je ne sais
plus trop ou en est la meilleur amélioration mais ne vous inquietez pas
j'y arriverai!.
Ce que j'ai mis en place fonctionne déjà trés bien par rapport à ce que
je souhaitais.
Mille merci à vous deux et je ne manquerai pas de vous recontacter si
problême rencontré.
De votre côté, à l'approche des fêtes et des cadeaux à faire n'oubliez
pas de regarder sur mon site si qq chose vous tente!
bien cordialement
daniel

"Tatanka" a écrit dans le message de
news: %
Salut les deux entêtés que vous êtes,

Ou bien dans ce cas, copier les données dans les colonnes
D et E de la feuile Total ou ajouter une feuille Total1 ...

Serge, l'autre entêté


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

Bonjour Serge et Daniel , &....,

Cela a été bien poursuivi mais on pourrait ajouter deux grains de sel

(pour aller plus vite)
Application.screenupdatingúlse
au début et
reste, le truc qui est tellement évident depuis le début, qu'on en a
pas parlé.
Il ne faut pas que le contenu (nb de cellules restant à copier)
dépasse la capacité de la colonne.
A tout hasard il serait peut être bon de s'en prémunir directement
dans le code

dim lim as long
...
lime536-Sheets("Total").[a65536].End(xlUp).row

...
if F.Range("a10", F.[a65536].End(xlUp).cells.count>lim then
msgbox "Arrêt à la feuille: " & F.name & " dépassement de capacité"
exit sub
else
....
end if
...

'@+
'lSteph


On 5 nov, 21:18, "Tatanka" wrote:
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 denews:
u6ozbG%23HIHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
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