Discussion :

[karimajam]

Bonjour,

débutant en vba, j'aimerai sollicité votre aide
j'ai récupéré des données que j'ai copié sous excel
j'aimerai automatiser via macro la mise en page de ces données récupérées
tout est sur une ligne mais plusieurs colonnes " 3 colonnes remplies - 1colonne vide - 3 colonnes remplies- 1colonne vide...."
j'aimerai déplacer les 3colonnes remplies vers une nouvelle ligne à chaque fois
merci d'avance pour votre aide

[eric4459]

Bonjour Karimajam,
Essayes ceci et dis moi si c'est bien cela que tu recherches:

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
29
30
31
32
33
Sub Ligne_Colonne()
Dim Fl As Worksheet
Dim Rng As Range
Dim i As Integer
Dim j As Integer
Dim Der As Integer
Set Fl = ThisWorkbook.Sheets("Feuil1")
Set Rng = Fl.Range("A1")
Rng = Rng.Offset(0)
j = 1
With Sheets("Feuil1")
Der = .Cells(1, Columns.Count).End(xlToLeft).Column
End With
 
For i = 0 To Der
If Rng.Offset(0, i) <> "" Then
Range(Rng.Offset(0, i), Rng.Offset(0, i).CurrentRegion).Copy
Rng.Offset(j, 0).PasteSpecial
End If
 
If Rng.Offset(0, i) = "" Then
j = j
Else
i = i + 3
j = j + 1
End If
 
Next i
 
Rows("1:1").Delete
 
 
End Sub

Voici le fichier :



Mise en page.xlsm< ------------------------------------fichier à télécharger
Eric
I
Attention le fichier joint ci-dessous n'est pas le bon fichier

[karimajam]

Un grand merci eric
vous m'avez fait gagné un temps énorme
merci encore