Macro récap et multi-onglets

K

Kernoz

XLDnaute Occasionnel

• 24 Novembre 2011

• #2

Re : Macro récap et multi-onglets

Voici un petit exemple en PJ; ca sera plus parlant 🙂

 

Pièces jointes

• Exemple.xlsm

  12.2 KB · Affichages: 100
• Exemple.xlsm

  12.2 KB · Affichages: 107
• Exemple.xlsm

  12.2 KB · Affichages: 103

Vote positif 0 Vote négatif

B

Balot57

XLDnaute Nouveau

• 24 Novembre 2011

• #3

Re : Macro récap et multi-onglets

Bonjour,
Je n'ai pas pu ouvrir ton fichier n'ayant pas la bonne version d'Excel, mais la solution serait celle-là : il te faut un compteur de feuille et un compteur de ligne pour savoir où coller les données.
CompteurFeuille=1
CompteurLignePourColler=2
do while CompteurFeuille<=sheets.count
sheets(CompteurFeuille).select
ton traitement
chercher le nombre de lignes à coller

workbooks(celui où tu veux coller les données).activate
sheets(où tu veux coller les données).select
coller à la ligne CompteurLignePourColler
CompteurLignePourColler=CompteurLignePourColler+nombre de lignes collées

workbooks(celui contenant plusieurs feuilles).activate
CompteurFeuille=CompteurFeuille+1
loop

 

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 24 Novembre 2011

• #4

Re : Macro récap et multi-onglets

Bonjour et merci pour ta réponse.

Helas je ne comprends pas assez bien le VBA pour appliquer ton code correctement 🙁

Je glisse en pièce jointe la version xls de mon fichier 😉 si tu as deux minutes 🙄

 

Pièces jointes

• Exemple.xls

  26 KB · Affichages: 55
• Exemple.xls

  26 KB · Affichages: 60
• Exemple.xls

  26 KB · Affichages: 54

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 24 Novembre 2011

• #5

Re : Macro récap et multi-onglets

J'ai reussi à faire la macro pour copier mes données à la suite sur mon onglet Recap.

Sub copie()
'
' copie Macro
'

'

Range("A7:E14").Select
Selection.Copy
Sheets("Recap").Select
Cells(65535, 1).End(xlUp)(2).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Cliquez pour agrandir...

Maintenant je cherche à faire en sorte que cette macro s'active sur la feuille 1, puis sur la feuille 2, la 3 etc ...

Si quelqu'un a une idée. 😀

 

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 24 Novembre 2011

• #6

Re : Macro récap et multi-onglets

Petites précisions suite à l'avancée de mes recherches :

* Il y a dans mon classeurs plusieurs feuilles qui ne doivent pas être prises en compte par la macro.

* Les données que je veux copier et coller à la suite dans mon onglet Recap sont une partie bien précise d'un tableau.

Je joint à ce post un fichier mis à jour plus en adequation avec ma demande :

Je souhaite copier sur mon onglet Recap à la suite une partie des tableaux (onglets rouges) sans que les onglets BDD et Total ne soient concernés par cette macro.

MERCI D'AVANCE .

😀

 

Pièces jointes

• Exemple.xlsm

  26 KB · Affichages: 64
• Exemple.xls

  62.5 KB · Affichages: 54
• Exemple.xlsm

  26 KB · Affichages: 68
• Exemple.xls

  62.5 KB · Affichages: 55
• Exemple.xlsm

  26 KB · Affichages: 61
• Exemple.xls

  62.5 KB · Affichages: 50

Vote positif 0 Vote négatif

B

Balot57

XLDnaute Nouveau

• 24 Novembre 2011

• #7

Re : Macro récap et multi-onglets

Je n'ai pas pu répondre plus tôt car il faut bien gagner sa vie...
En tout cas, voilà ci-joint une macro qui devrait marcher. J'ai appris les macros sur le tas, donc le code défriserait peut-être un informaticien, mais ça marche ! (sous Excel 2003 en tout cas).

 

Pièces jointes

• Exemple_v2.xls

  60 KB · Affichages: 85
• Exemple_v2.xls

  60 KB · Affichages: 90
• Exemple_v2.xls

  60 KB · Affichages: 91

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 24 Novembre 2011

• #8

Re : Macro récap et multi-onglets

Un grand merci !

Je testerais demain pour adapter le code à mon fichier, mais c'est vraiment chic à toi d'avoir en plus du code, expliqué celui ci pas à pas.

😱

 

Vote positif 0 Vote négatif

B

Balot57

XLDnaute Nouveau

• 24 Novembre 2011

• #9

Re : Macro récap et multi-onglets

J'ai moi-même débuté en lisant et adaptant les macros des autres. Et parfois, j'aurais adoré qu'il y ait des commentaires. Alors j'essaie de ne pas tomber dans les mêmes travers. D'ailleurs, si je peux me permettre un autre conseil, écris plein de commentaires dans ton code, ça t'aidera le jour où tu voudras faire des modifs mais où tu auras tout oublié du pourquoi du comment !
Tiens nous au courant pour ta macro, ça me fera plaisir de savoir que tu es arrivé au bout !

 

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 25 Novembre 2011

• #10

Re : Macro récap et multi-onglets

Bonjour Balot57, bonjour à tous.

J'ai essayé d'adapter le code à mon tableau mais helas ca ne marche pas, j'arrive à comprendre à peu pret le code, à adapter certaines choses mais certaines choses coincent :

* Les données que je veux copier dans l'onglet Recap sont situées sur chaque feuille dans le Range A271 : AV351.

* Dans ce Range certaines colonnes sont masquées.

* Certaines cellule sont fusionnées, ce qui pose probleme lors de la copie.

* Les cellules copiées contiennent des formules, je cherche donc à ne copier que les valeurs.

Je joint un fichier exemple mis à jour, encore un peu plus précis. 😛

 

Pièces jointes

• Exemple.xls

  63.5 KB · Affichages: 63
• Exemple.xls

  63.5 KB · Affichages: 73
• Exemple.xls

  63.5 KB · Affichages: 97

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 25 Novembre 2011

• #11

Re : Macro récap et multi-onglets

Salut, à adapter à ton contexte

Code:

Option Explicit

Sub ConcatenationFeuilles()
Dim i As Long
Dim T() As Variant
    Application.ScreenUpdating = False
    ShConcat.Cells.Clear
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> ShConcat.Name And IsNumeric(Sheets(i).Name) Then
            With Sheets(i)
                T = .Range("A7:F14").Value
                ShConcat.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
            End With
        End If
    Next i
    Erase T
    Application.ScreenUpdating = True
End Sub

ShConcat est le CodeName de la feuille Recap
Voir VBA Les bases [Résolu] - Forum des professionnels en informatique

Pour le reste ce n'est plus que de l'habillage

 

Dernière édition: 25 Novembre 2011

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 25 Novembre 2011

• #12

Re : Macro récap et multi-onglets

Bonjour et merci pour le code.

Celui ci fonctionne 🙂

Juste une petite précision, je voudrais qu'au lieu d'effacer l'ensemble de la feuille "Recap" , le code n'efface qu'a partir de la ligne 6 ( je voudrais mettre des titres de colonnes et des boutons de macro au dessus de mes données.

D'avance merci

EDIT : J'ai trouvé 🙂

 

Dernière édition: 25 Novembre 2011

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 29 Novembre 2011

• #13

Re : Macro récap et multi-onglets

Bonjour,

J'ai voulu adapter le code pour ce même fichier sur d'autres données.

Le problème, lorsque je lance la macro, rien ne se copie.

Peut-être à cause du CodeName de ma feuille destinataire ?

Voici le code :

Sub Divers()
'
' Divers Macro
'

'
Dim i As Long
Dim T() As Variant
Application.ScreenUpdating = False
Consolid.Range("A430:AZ6666").Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> Consolid.Name And IsNumeric(Sheets(i).Name) Then
With Sheets(i)
T = .Range("A247:AE269").Value
ShConcat.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
End With
End If
Next i
Erase T
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

Merci d'avance.

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 29 Novembre 2011

• #14

Re : Macro récap et multi-onglets

Salut, encore un drame du copier/coller

Code:

.....
ShConcat.Range("A" & Rows.Count ....
.....

 

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 29 Novembre 2011

• #15

Re : Macro récap et multi-onglets

kiki29 à dit:

Salut, encore un drame du copier/coller

Code:

.....
ShConcat.Range("A" & Rows.Count ....
.....

Cliquez pour agrandir...

Bouuhhhhh ... 😱😱😱

Merci 😛

 

Vote positif 0 Vote négatif