Comment ajouter plusieurs liste pour n'en faire qu'une?

Paritec

XLDnaute Barbatruc

• 23 Décembre 2008

• #16

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Pierrot le Forum,
oui c'est une bonne idée la création et la vérif
je regardes cela tout de suite et je te dis quoi
par contre pourquoi il est impératif d'avoir des données dans toutes les feuilles?
a te lire
Papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 23 Décembre 2008

• #17

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Pierrot,
on avance, maintenant il me dit que
Erreur d'exécution 1004
la méthode 'range' de l''objet'_Worksheet à échoué
là c'est ????
a te lire
Papou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Décembre 2008

• #18

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

re

il faut qu'il y ait des données dans toutes les feuilles...

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 23 Décembre 2008

• #19

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Re
Alors là j'ai copié une liste, la même dans toutes les feuilles sauf la Recap et cela me met toujours
la méthode 'range' de l''objet'_Worksheet à échoué
va comprendre
J'ai mis la macro dans un module standard
ou est-ce que j'ai fait une bêtise là je sais pas mais je dois quitter un moment un client en panne!!!
a+
Papou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Décembre 2008

• #20

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Re

mais la feuille en question en pièce jointe, sans données confidentielles, ce sera plus facile pour t'aider...

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Décembre 2008

• #21

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Re

autant pour moi, il manquait un ws....

Code:

Sub test()
Dim ws As Worksheet
On Error Resume Next
Set ws = Sheets("Recap")
If Err.Number = 9 Then Sheets.Add.Name = "Recap"
On Error GoTo 0
For Each ws In Worksheets
    If ws.Name <> "Recap" Then ws.Range([B][COLOR="Red"]ws.[/COLOR][/B]Range("A2"), ws.Cells(ws.Range("A65536").End(xlUp).Row, ws.Range("IV1").End(xlToLeft).Column)).Copy _
        Sheets("Recap").Range("A65536").End(xlUp).Offset(1, 0)
Next ws
End Sub

Aarf... pas bon, moi...

@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 23 Décembre 2008

• #22

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

re
Pierrot, c'est tout bon maintenant, quand tu dis je suis pas bon!!! j'aimerais bien être aussi mauvais sans problèmes
Merci pour tout, c'est exactement ce que je cherchais
maintenant tu ne m'as pas dit pourquoi il faut des infos dans les feuilles?
moi il est possible que certaines feuilles en fonction du moment de l'année soit vide pendant un certain temps et la macro il faut que je m'en serve tout le temps
a te lire
Papou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Décembre 2008

• #23

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Re

si vide, copiera Plage A2:A1, à voir sans doute pas d'impact sur le résultat final...

bonne soirée
@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 23 Décembre 2008

• #24

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Re
Pierrot j'ai essayé apparemment c'est tout bon il n'y a qu'un tout petit défaut
lors de la création de la feuille Recap, il faudrait copier la ligne 1 de la feuille 1 par exemple
pour avoir les étiquettes de colonnes et après c'est tout bon
j'ai essayé avec des classeurs de 8 à 12 colonnes c'est top sauf la ligne 1;
et c'est fini
dans l'attente de te lire
a+
Papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 23 Décembre 2008

• #25

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Pierrot
J'ai ajouté
Feuil1.Rows("1:1").Copy Sheets("recap").Rows("1:1")
je pense que c'est bon?
merci d eme dire
a+
Papou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Décembre 2008

• #26

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Re,

ca doit être bon, si tu as toujours une feuille dont le codename est "Feuil1", dans le cas contraire j'aurais procédé ainsi :

Code:

Option Explicit
Sub test()
Dim ws As Worksheet, b As Boolean
On Error Resume Next
Set ws = Sheets("Recap")
If Err.Number = 9 Then Sheets.Add.Name = "Recap"
On Error GoTo 0
For Each ws In Worksheets
    If ws.Name <> "Recap" Then
        ws.Range(ws.Range("A2"), ws.Cells(ws.Range("A65536").End(xlUp).Row, ws.Range("IV1").End(xlToLeft).Column)).Copy _
            Sheets("Recap").Range("A65536").End(xlUp).Offset(1, 0)
        If b = False Then ws.Range(ws.Cells(1, 1), ws.Cells(1, ws.Range("IV1").End(xlToLeft).Column)).Copy _
            Sheets("Recap").Range("A1"): b = True
    End If
Next ws
End Sub

@+

Edition : avais pas vu, tu as utilisé le codename...🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 23 Décembre 2008

• #27

Re : Comment ajouter plusieurs liste pour n'en faire qu'une?

Re
Pierrot,
oui il est certain que ta solution c'est mieux mais c'est luxueux alors allons y restons y
je l'adopte et comme cal au moins si un jour j'ai pas de feuille 1 ce qui et peu probable mais possible, ça marchera à coup sur
merci pour tout et Bonnes Fêtes de Fin d'Année à toi et tout le Forum
bonne soirée
papou

 

Vote positif 0 Vote négatif