Problème sur une boucle
Résolu
Manouchk
-
Manouchk -
Manouchk -
Bonjour,
J'ai un petit problème sur ma macro. Le tableau du premier fichier se colle seulement à la deuxième ligne et non pas à la première et le début des autres se collent sur la dernière ligne du précédent.
Comment doit-on faire pour que tous les tableaux, qui contiennent 253 lignes, se collent bien les uns après les autres?
Dois-je faire une condition if, le premier fichier...?
Merci d'avance pour votre réponse!!!
Sub CreationSynthese()
Cells.Delete
Dim Chemin As String, Fichier As String
Chemin = "K:\Stagiaire\Stagiaire9\Essais_grappes\Placette_1\Pied1\"
Fichier = Dir("K:\Stagiaire\Stagiaire9\Essais_grappes\Placette_1\Pied1\*.xlsx")
While Len(Fichier) > 0
Workbooks.Open Chemin & Fichier
AvantDernièreLigne = ActiveSheet.UsedRange.Rows.Count - 1
Range("B2:GS253" & AvantDerniereLigne).Copy
Workbooks("Récap_P1C1.xlsm").Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste
Workbooks(Fichier).Close
Fichier = Dir
Wend
J'ai un petit problème sur ma macro. Le tableau du premier fichier se colle seulement à la deuxième ligne et non pas à la première et le début des autres se collent sur la dernière ligne du précédent.
Comment doit-on faire pour que tous les tableaux, qui contiennent 253 lignes, se collent bien les uns après les autres?
Dois-je faire une condition if, le premier fichier...?
Merci d'avance pour votre réponse!!!
Sub CreationSynthese()
Cells.Delete
Dim Chemin As String, Fichier As String
Chemin = "K:\Stagiaire\Stagiaire9\Essais_grappes\Placette_1\Pied1\"
Fichier = Dir("K:\Stagiaire\Stagiaire9\Essais_grappes\Placette_1\Pied1\*.xlsx")
While Len(Fichier) > 0
Workbooks.Open Chemin & Fichier
AvantDernièreLigne = ActiveSheet.UsedRange.Rows.Count - 1
Range("B2:GS253" & AvantDerniereLigne).Copy
Workbooks("Récap_P1C1.xlsm").Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste
Workbooks(Fichier).Close
Fichier = Dir
Wend
A voir également:
- Problème sur une boucle
- Boucle excel sans macro - Forum Excel
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
- Vlc lire en boucle ✓ - Forum Lecteurs et supports vidéo
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
2 réponses
Bonjour
Si la 1 colonne est sans cellule vide une fois placé en haut de la première colonne vous pouvez mettre
Pour vous rendre à la 1er cellule que vous pouvez nommer (exemple ancre1)
Application.Goto Reference:="ancre1"
Puis vous descendez en bas de la colonne
Selection.End(xlDown).Select
Et vous activez la cellule en dessous de la dernière cellule remplie
ActiveCell.Offset(1, 0).Activate
Si la 1 colonne est sans cellule vide une fois placé en haut de la première colonne vous pouvez mettre
Pour vous rendre à la 1er cellule que vous pouvez nommer (exemple ancre1)
Application.Goto Reference:="ancre1"
Puis vous descendez en bas de la colonne
Selection.End(xlDown).Select
Et vous activez la cellule en dessous de la dernière cellule remplie
ActiveCell.Offset(1, 0).Activate