separer deux colonne en plusieurs

typo · 2 Mai 2010

Bonjour
J'ai deux colonnes cote à cote de chacune un milliers de lignes. Pour imprimer je souhaiterais séparer ces deux colonnes en plusieurs "morceaux" de telle façon que sur la page il y ai 4 rangées de deux colonnes de 30 lignes chacune. Je cherche à le faire en VBA car le nombre de ligne dans mes colonnes de départ peut être variable.

Un petit exemple sera plus clair que mes explications

merci pour votre aide

Typo

pierrejean · 2 Mai 2010

Re : separer deux colonne en plusieurs

bonjour typo

Vois si cela te convient

macro:

Code:

Sub separcol()
Sheets("Feuil2").Cells.ClearContents
col = 1
lig = 0
ligcopie = 1
For n = 0 To Sheets("Feuil1").Range("A65536").End(xlUp).Row Step 30
 Sheets("Feuil1").Range("A" & lig + n + 1 & ":B" & n + lig + 30).Copy Destination:=Sheets("Feuil2").Cells(ligcopie, col)
 col = col + 3
If col > 10 Then
  col = 1
  ligcopie = ligcopie + 36
End If
Next n
Sheets("Feuil2").Select
End Sub

ROGER2327 · 2 Mai 2010

Re : separer deux colonne en plusieurs

Bonjour typo

Une ébauche :

Code:

[COLOR="DarkSlateGray"][B]Sub toto()
Dim i, l, c
   For i = 1 To 1 + Sheets(1).Range("A1").End(xlDown).Row \ 30
      Sheets(1).Range(Cells(30 * i - 29, 1), Cells(30 * i, 2)).Copy Destination:=Sheets(2).Cells(l + 3, c + 1)
      l = l - 34 * ((i Mod 4) = 0)
      c = -(c + 3) * ((i Mod 4) <> 0)
   Next i
End Sub[/B][/COLOR]

ROGER2327
#3388

13 Floréal An CCXVIII
2010-W17-7T17:25:29Z

_______________________
Bonjour pierrejean, encore plus rapide !

typo · 2 Mai 2010

Re : separer deux colonne en plusieurs

Encore merci ROGER2327 et pierrejean pour votre réactivité
c'est exactement ce que je cherchais à faire

Typo

pierrejean · 2 Mai 2010

Re : separer deux colonne en plusieurs

Re

Merci ROGER

votre 'ebauche' m'a permis de rectifier ma macro qui ne reportait que 3 paires de colonnes
Peut-etre un peu plus rapide mais moins performant !!

separer deux colonne en plusieurs

typo

XLDnaute Junior

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

ROGER2327

XLDnaute Barbatruc

typo

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

Discussions similaires