Code VBA pour consolider plusieurs feuilles en 1 synthèse
Bonjour à tous,
Depuis peu, je me suis mise au VBA, pas facile pour moi de m'y retrouver dans tous les codes.
Pouvez-vous me venir en aide ?
J'ai un tableau très long à faire avec plusieurs feuilles dont j'aimerai regrouper le résultat dans une seule et même feuille.
Avec une mise à jour automatique (appuis sur bouton ou non).
ça fait deux jours que je fais plusieurs code je ne m'en sorts pas.
En PJ le fichier proto
Le dernier code trouvé et copié :
Dim i As Integer, j As Integer
Dim DerniereLigne As Integer
Dim LastRowConsolidation As Integer
'Procédure permettant d'éffacer toutes les données de la feuille Consolidation
Sub EffaceDonnees()
Worksheets("Consolidation").Select
Rows("2:100000000").Select
Selection.Clear
Range("A2").Select
End Sub
'Procédure permettant la consolidation des feuilles du classeur
Sub Consolider()
Application.ScreenUpdating = False
EffaceDonnees
'Boucle permettant de lire toutes les feuilles à consolider
For j = 1 To 6 'Parcours des feuilles de N°1 À n°6
Sheets(j).Select
DerniereLigne = Range(A10000000000).End(x1Up).Row
For i = 2 To DerniereLigne 'Parcours des lignes de chaque Table
Sheets(j).Select
Rows(i).Select
Selection.Copy
Sheets("Consolidation").Select
LastRowConsolidation = Range(A10000000000).End(x1Up).Row + 1
Cells(LastRowConsolidation, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next i
Next j
Application.ScreenUpdating = True
MsgBox "La consolidation est terminée...", vbcKOnly + vbInformation, "Information"
End Sub
ça me donne une erreur
Oups je n'avais pas fini mon message.
Donc comme je vous disais ça me donne une erreur 13. Je n'arrive pas bien à comprendre ce que ça veut dire.
Merci de votre attention.
A bientôt
Bonjour,
Excel ne comporte que
1048576 lignes
A+
Nota : Dans ce forum il est demandé d'encadrer le code VBA par les balises "code" lire ici SVP
Bonjour GALOPIN 01,
Toutes mes excuses je suis nouvelles sur le forum.
Merci pour votre réponse je vais essayer de refaire le Code VBA.
Je vous tiens au courant.
Merci beaucoup de votre réponse
Bonsoir,
Pas compliqué : tu ne laisses que 6 zeros à chaque fois et ça devrait passer.
A+
Re Bonjour à tous et GALOPIN01,
Malheureusement ça ne fonctionne pas, j'ai un message d'erreur : "'erreur d'exécution 1004'
La méthode 'Range' de l'objet Global a échoué"
Et puis cette phrase est surligné en jaune : DerniereLigne = Range(A1000000).End(xlUp).Row
Je n'arrive pas à trouver une réponse sur les autres post. J'ai compris qu'il fallait adapter chaque code à son propre fichier mais là je ne comprends plus ce qu'il se passe.
A votre avis pourquoi Range ne fonctionne pas ? J'ai pourtant bien mis uniquement 6 zéro ?
Dans l'attente de votre retour.
A bientôt