Discussion :

[D@rkneo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou ça (c'est plus mieux)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[D@rkneo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[D@rkneo]

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@rkneo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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