VBA mise en page

Version imprimable

03/02/2015, 17h01
karimajam

VBA mise en page

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

2 pièce(s) jointe(s)

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

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
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 :

Pièce jointe 168125< ------------------------------------fichier à télécharger
Eric
I
Attention le fichier joint ci-dessous n'est pas le bon fichier

04/02/2015, 17h58
karimajam

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