[VBA-E] Deplacement de lignes et boucle

Bonjour tout le monde,

je viens ici pour demander votre aide, dans mon travail j'ai besoins de traiter des fichiers excel qui sont assez en vrac on peut dire
c'est la premiere fois que je fais des macro en vba

en fait mon pb c'est que j'ai des données sur plusieurs lignes et que j'aimerais toutes les rassembler sur une seule ( 4 lignes ), mais comme il y a plusieurs fois ces lignes car ceux sont des données chaques 10 minutes, j'aimerais faire une boucle jusqu'à la fin du classeur
j'arrive a selectionner la plage de cellules que je veux mais j'arrive pas a les coller automatiquement a la suite

voilà mon code actuel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Dim lignecourante As Integer Dim Index As Integer Index = 3 lignecourante = Index + 1     Range(cells(1,lignecourante),cells(37,lignecourante)).Select Selection.Cut Range(cells(3,Index)).Select ActiveSheet.Paste   lignecourante = lignecourante + 1 Range(cells(1,lignecourante),cells(28,lignecourante)).Select Selection.Cut Range("cells(3,Index)").Select ActiveSheet.Paste   lignecourante = lignecourante + 1 Range(cells(1,lignecourante),cells(8,lignecourante)).Select Selection.Cut Range(cells(3,Index)).Select ActiveSheet.Paste   lignecourante = lignecourante + 1 Range(cells(1,lignecourante),cells(17,lignecourante)).Select Selection.Cut Range(cells(3,Index)).Select ActiveSheet.Paste

---

c'est un peu le bordel, mais j'essaye de comprendre un peu le fonctionnement, là je vais le deplacement pour un bloc de 4 lignes, mais ça marche pas

si vous avez des idées je suis prenneur

Ce qui te manque, c'est le code pour trouver le N° de la première ligne vide pour coller tes lignes... si j'ai bien compris...
Essaie avec ça

Code:

---

PremièreLigneVide = Range("A1").CurrentRegion.End(xlDown).Row + 1

---

ou ça (c'est plus mieux)

Code:

---

PremièreLigneVide = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1

---

merci de ton aide ouskel'n'or, mais ça ne marche toujours pas,
la macro me selectionne et coupe la premiere ligne mais ne la deplace pas si je laisse "range(cells(index,3)).select", si je ne met pas cette ligne, il ne coupe rien
par contre je sais pas s'il faut definir PremiereLigneVide, ni meme en quoi...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim lignecourante As Integer Dim Index As Integer Index = 3   lignecourante = 4 Range(Cells(lignecourante, 1), Cells(lignecourante, 43)).Select Selection.Cut 'Range(Cells(Index, 3)).Select 'PremièreLigneVide = Range("A1").CurrentRegion.End(xlDown).Row + 1 PremièreLigneVide = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1 ActiveSheet.Paste

---

Code:

---

1 2 3 4 5 6 7 8 9

Sub DéplacerUneLigne() Dim lignecourante As Integer Dim Index As Integer Index = 3 lignecourante = 4 PremièreLigneVide = Range("A65535").End(xlUp).Row + 1 Rows(lignecourante).EntireRow.Cut Rows(PremièreLigneVide).Insert Shift:=xlDown End Sub

---

Teste ça ;)

merci pour ta reponse,

ça deplace toute la ligne tout en bas du tableau, je vais essayer de modifier le code pour l'adapter pour le mettre a la suite de ma ligne

désolé de faire un double post, mais j'ai encore un pb, au lieu de copier la ligne a la suite de ligne du dessus ça la met a la fin du fichier en fait
qu'est ce qu'il faut modifier dans la premiere ligne pour faire ça
j'ai testé en mettant un cells(variable,999) a la plce de "A65535" mais il me met une erreur et meme Row en Column mais marche pas

Code:

---

1 2 3

PremièreColVide = Range("A65535").End(xlUp).Row + 1 Rows(lignecourante).EntireRow.Cut Rows(PremièreColVide).Insert Shift:=xlDown

---

merci encore pour vos futures reponses

Où veux-tu placer ta ligne ? Où la prends-tu ?
J'ai peur d'avoir mal compris

je vous donne un exemple de ce que j'ai a la base

je veux mettre toutes les lignes a la suite de la premiere ligne, je prends donc la seconde ligne et je veux la placer a la fin de la premiere ligne automatiquement pour le collage, ensuite je refait pareil encore 3 fois

là je n'ai mis qu'une partie de tout le fichier, et j'ai en gros 5 lignes a mettre sur une seule puis je recommence l'operation jusqu'a la fin du fichier

Déjà tu me perturbes en écrivant ça

Citation:

---

Range(cells(1,lignecourante),cells(28,lignecourante)).Select

---

La syntaxe pour cells est

Code:

---

Range(cells(NoLigne,NoColonne),cells(NoLigne2, NoColonne2)).Select

---

sauf si "Lignecourante est le N° de colonne.
Si tu peux m'éclairer sur ton intention, ton pb n'est pas si ardu qu'on ne pourra le résoudre ;)

désolé c'était une erreur de ma part, j'avais inversé ligne et colone

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim lignecourante As Integer Dim Index As Integer   Index = 4 lignecourante = 5 PremièreColVide = Range("A65535").End(xlUp).Row + 1 ' comment mettre la valeur de la derniere colone vide se trouvant à la fin de la ligne qui a la valeur Index dans PremièreColVide Rows(lignecourante).EntireRow.Cut ' selectionne la ligne que je veux deplacer   Rows(PremièreColVide).Insert Shift:=xlDown 'là au lieu de copier la ligne a a la suite de la ligne du dessus, ça la copie à la fin de mon fichier

---

Oui, le code que je t'ai passé était bien destiné à copier le ligne après la dernière ligne. Ce qui m'a/nous a égaré est le fait que tu copies une ligne complète.
Tu ne peux pas coller une ligne complète à partir d'une colonne donnée. Tu dois sélectionner la plage des cellules renseignées de ta ligne pour la copier à la fin d'une autre ligne renseignée.
Donc, tu dois déterminer la dernière colonne renseignée de la plage copiée et pour avoir cette plage, tu peux mettre

Code:

---

PlageOùCopier = Range(Cells(NoLigne,1), cells(NoLigne, Range(NoLigne & ":" & NoLigne").SpecialCells(xlCellTypeLastCell).Column

---

Et pour coller, tu dois déterminer la première colonne vide de la ligne dans laquelle tu colles

Code:

---

NoCol = Range(NoLigne2 & ":" & NoLigne2").SpecialCells(xlCellTypeLastCell).Column

---

Enfin, tu peux coller en mettant

Code:

---

Cells(NoLigne2,NoCol).paste

---

Tu dis ;)

je n'y arrive pas, la premiere ligne de code que tu m'as donné ne marche pas, elle me met une erreur, je ne vois pas d'où ça vient, j'ai pensé que ça venait de " qu'il y a dans le range de la premiere ligne car dans la deuxieme ligne ça me fesait pareil et je l'ai supprimé mais dans la premiere ça ne fait rien

Code:

---

1 2 3 4 5

PlageOùCopier = Range(Cells(lignecourante,1), cells(lignecourante, Range(lignecourante & ":" & lignecourante").SpecialCells(xlCellTypeLastCell).Column   NoCol = Range(Index & ":" & Index).SpecialCells(xlCellTypeLastCell).Column   Cells(Index, NoCol).Paste

---

j'ai adapté les variables par rapport a ce que j'avais besoins

Autant pour moi... Enlève le guillement en rouge

Code:

---

1 2	PlageOùCopier = Range(Cells(lignecourante,1), cells(lignecourante, _ Range(lignecourante & ":" & lignecourante").SpecialCells(xlCellTypeLastCell).Column

---

il y avait aussi un probleme à la fin de la premiere ligne, il manquait des paranthéses, mais maintenant c'est la derniere ligne qui plante erreur 438

Code:

---

1 2 3 4 5

PlageOùCopier = Range(Cells(lignecourante, 1), Cells(lignecourante, Range(lignecourante & ":" & lignecourante).SpecialCells(xlCellTypeLastCell).Column))   NoCol = Range(Index & ":" & Index).SpecialCells(xlCellTypeLastCell).Column   Cells(Index, NoCol).Paste

---

je viens de reussir a faire ce que je voulais faire, je te remercie de ton aide ouskel'n'or

now je vais faire de la mise en page:)

Alors si c'est résolu, faut faire un clic sur le bouton :resolu: là en bas de la fenêtre.
Faut toujours dire que c'est résolu quand c'est résolu ;)