VBA
Résolu/Fermé
rimoa
Messages postés
149
Date d'inscription
samedi 9 février 2013
Statut
Membre
Dernière intervention
18 octobre 2024
-
Modifié le 8 janv. 2022 à 11:03
rimoa Messages postés 149 Date d'inscription samedi 9 février 2013 Statut Membre Dernière intervention 18 octobre 2024 - 11 janv. 2022 à 19:55
rimoa Messages postés 149 Date d'inscription samedi 9 février 2013 Statut Membre Dernière intervention 18 octobre 2024 - 11 janv. 2022 à 19:55
2 réponses
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
Modifié le 8 janv. 2022 à 11:14
Modifié le 8 janv. 2022 à 11:14
Bonjour,
dereniereligne= Range("A1000000").End(xlUp).Row
et
For i = 2 To DerniereLigne 'parcours lignes chaque table
La y a un probleme de nom de variable et c'est pas le d majuscule
Vous dites que ca copie une seule table, ben pas possible copie rien
Maintenant, il faut eviter les select et autant que possible les boucles sur ligne quand il y a moyen de faire autrement
Une facon de faire:
dereniereligne= Range("A1000000").End(xlUp).Row
et
For i = 2 To DerniereLigne 'parcours lignes chaque table
La y a un probleme de nom de variable et c'est pas le d majuscule
Vous dites que ca copie une seule table, ben pas possible copie rien
Maintenant, il faut eviter les select et autant que possible les boucles sur ligne quand il y a moyen de faire autrement
Une facon de faire:
Sub test() Application.ScreenUpdating = False For j = 1 To 3 'parcours feuilles dereniereLigne = Sheets(j).Range("A" & Rows.Count).End(xlUp).Row With Sheets("Comb") LastRowConsolidation = .Range("A" & .Rows.Count).End(xlUp).Row + 1 Sheets(j).Rows("2:" & dereniereLigne).Copy .Cells(LastRowConsolidation, 1) End With Next j Application.ScreenUpdating = True MsgBox "Consolidation terminée", vbOKOnly + vbInformation, "information" End Sub
rimoa
Messages postés
149
Date d'inscription
samedi 9 février 2013
Statut
Membre
Dernière intervention
18 octobre 2024
1
11 janv. 2022 à 19:55
11 janv. 2022 à 19:55
sorry j avais oubliè de cliquer rèsolu. c esr fait.
juste une petite note que j avais manquee dans mes repinses. Oui mon code erronè copiait ètrangement une seuille feuille dans le combinè. oui ça ne devait pas fonctionner du tout mais bon je voulais juste ajouter cette precision.
juste une petite note que j avais manquee dans mes repinses. Oui mon code erronè copiait ètrangement une seuille feuille dans le combinè. oui ça ne devait pas fonctionner du tout mais bon je voulais juste ajouter cette precision.
8 janv. 2022 à 13:17
11 janv. 2022 à 02:15
merci aussi pour l'idée de Option Explicit
11 janv. 2022 à 19:42