copier des feuilles

[zbig]

Bonjour

j'ai un classeur essai.xls composé de 31 feuilles
Les mêmes champs sont dans les 31 feuilles et au même endroit (ex nom en col1, prenom en 2...) sur la ligne 1
j'ai une feuille "général" + 30 feuilles (1,2,...30)
les feuilles 1 à 30 sont alimentées régulièrement
dans la feuille "general" je souhaiterais copier toutes les infos des 30 feuilles grâce à un bouton "copie"

merci
zb

 

[DoubleZero]

Re : copier des feuilles

Re-bonjour,

Les différences sont les suivantes:...

Je me disais aussi 🙄 !...

zbig, je n'ai malheureusement pas les compétences pour modifier la macro sans disposer d'un fichier...

En outre, afin d'éviter de multiples modifications stériles, il serait utile de joindre, enfin, le véritable fichier de travail, sans données confidentielles.

 

[zbig]

Re : copier des feuilles

Bonjour

j'image que c'est plus simple feuille.xls
donc voici la feuille type

merci
zb

 

[DoubleZero]

Re : copier des feuilles

Re-bonjour,

Sur le fichier que tu as transmis à 16h53, le bon déroulement de la macro est entravé par l'absence de données en colonne A des onglets "donneurs".

Les cellules vides pourraient-elles être remplacées par des zéros ?

A bientôt 🙂.

 

[zbig]

Re : copier des feuilles

Bonjour

Non dans le champ 1 ce sera X ou vide
zb

 

[DoubleZero]

Re : copier des feuilles

Re-bonjour,

... Non dans le champ 1 ce sera X ou vide...

Dans ce cas, je vais tenter une parade... si je parviens à la trouver 😕 !

 

[Fo_rum]

Re : copier des feuilles

Bonsoir,

autre proposition (avec le dernier fichier joint et le déblayage de DoubleZero 😱) :

Sub Copie_suivi()
    Dim Dl As Long, s As Worksheet
    Application.ScreenUpdating = False
    Rows("4:65000").Delete                                 'nettoyage préventif
    For Each s In Worksheets
        Dl = Cells(Rows.Count, 1).End(xlUp).Row + 1        'N° de ligne de copie recalulé ici
        If s.Name <> "TCD" And s.Name <> "general" Then
           s.[a1].CurrentRegion.Offset(2, 0).Copy Range("A" & Dl)
        End If
    Next
End Sub

 

[DoubleZero]

Re : copier des feuilles

Re-bonjour,

Voici une nouvelle version respectant la contrainte des cellules potentiellement vides en colonne A.

A bientôt 🙂.

 

[DoubleZero]

Re : copier des feuilles

Re-bonjour,

Bonjour, Fo_rum 😀,

Le code que tu viens de fournir ne tient pas malheureusement pas compte des cellules vides en colonne A (onglets "f..") 😱...

A bientôt 🙂.

 

[zbig]

Re : copier des feuilles

Bonjour

ça a l air de fonctionner
je vais tenter avec toutes les feuilles ce matin...

 

[zbig]

Re : copier des feuilles

Bonjour

j'ai voulu copier tout ou partie de mes feuilles originales vers le fichier de 00
mais j'ai tjs un message et une fenetre m'indique "impossible de copier"
pourtant c'est uncopier coller ttout simple.

petite info :
dans les feuilles sauf tcd,
le champ 1 = vide ou x
le champ 2 = nom trié alphabétiquement

est ce possible
d'avoir
un bouton1 en général qui colle l'ensemble des feuilles : ça s'est fait (double oo)
un bouton 2 qui ne copie que les lignes des feuilles ou un X apparait dans champ 1 ?
merci
zb

 

[zbig]

Re : copier des feuilles

bonjour

par rapport au blocage de copie, je viens de comprendre, un fichier était en [groupe de travail]

 

[DoubleZero]

Re : copier des feuilles

Bonjour à toutes et à tous,

... est ce possible
d'avoir ...

un bouton 2 qui ne copie que les lignes des feuilles ou un X apparait dans champ 1 ?
merci
zb

Où la copie des lignes en question doit-elle être collée ? Dans un nouvel onglet, "general bis", par exemple, ou bien sur l'onglet "general" ?

 

[zbig]

Re : copier des feuilles

3 boutons :

Transferer : copie toutes les feuilles sauf general et tcd dans general

Suivi : copie que les lignes de general où il y a un "x" dans le 1er champ (colonne 1) vers feuille suivi1

effacer: mettre la feuille general vierge des infos

 

[DoubleZero]

Re : copier des feuilles

Re-bonjour,

Je ne vais sans doute pas tarder à rendre mon tablier...

Dans l'attente d'une réponse de ta part, j'ai préparé le fichier joint.

Pourrait-il convenir (il ne contient que deux boutons 🙄) ?.

Quelle serait l'utilité du troisième ?

effacer: mettre la feuille general vierge des infos

 

[zbig]

Re : copier des feuilles

Excellent

si je mets des noms de champs (ex nom, prenom, ...) à la place de champ2, champ3...
ça va fonctionner?
merci
zb