Discussion :

[CEIO56]

Bonjour a tous,

Je débute sur ce forum, je vais donc essayer d'être clair et concis

Dans un classeur j'ai une série de données sur 3 colonnes (voir exemple joint) la colonne A correspond a un identifiant qui peut se répéter plusieurs fois.

Avec une petite macro je récupère toutes les lignes correspondant a un identifiant et je les stocke dans une table pour les coller dans un 2eme classeur :

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
 
Sub coller()
 
Set f = Sheets("Feuil1")
  mot = InputBox("Numéro Identifiant?")
  colonne = 1
 
  bd = f.Range("A1:C" & f.[A65000].End(xlUp).Row) 'selection derniere ligne
 
  For i = 1 To UBound(bd)
    If bd(i, colonne) Like mot Then tempe = tempe & i & ","
  Next i
 
        TLC = Application.Index(bd, Application.Transpose(Split(tempe, ",")), Array(3, 2))
 
'Selection de mon 2eme classeur
 
    Workbooks("NW").Activate
    Sheets(mot).Select
 
 'Je colle ma table 
 
    Cells(ligne + 2, "C").Resize(UBound(TLC) - 1, UBound(TLC, 2)) = TLC
 
 
End Sub

Ca fonctionne j’obtiens ça :


mais dans certains cas je me retrouve avec 200/300 lignes et pour des raisons de présentation et d'économie de papier je voudrais obtenir ça :



Soit scinder ma table de donnée en 2 pour pouvoir l’insérer en C et D puis en E et F

Le problème c’est que je maitrise mal la gestion des tables en VBA (en fait je maitrise mal VBA tout court !) et je ne sais pas par quel bout commencer.

Si une âme charitable pouvais me mettre sur la voie ce serait génial.

[boisgontierjacques]

Bonjour,

Exemple en PJ

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub DécoupeArrayBlocs()
  a = Range("A1:B20")
  Début = 1
  TailleBloc = 5
  décal = 0
  For Début = 1 To UBound(a) Step TailleBloc
    fin = Début + TailleBloc - 1
    b = Application.Index(a, Evaluate("Row(" & Début & ":" & fin & ")"), Application.Transpose(Evaluate("Row(1:" & UBound(a, 2) & ")")))
   [d2].Offset(, décal).Resize(UBound(b), UBound(b, 2)) = b
   décal = décal + 3
  Next
End Sub

Boisgontier

[CEIO56]

Merci boisgontier, je vais prendre le temps de comprendre ton code.

Si je saisi, ton code permet de dimensionner la taille de la table (à 5 dans l'exemple) et ensuite de copier en décalant chaque bloc ainsi crée.

Moi je cherche plutôt a couper en 2 une table d'enregistrement mais dont je ne connait pas la dimension à l'avance
A 1ere vu cela ne répond pas complétement à ma question, mais cela me donne une piste de recherche, je peux peut-être compter le nombre d’enregistrement retourné et le divisé par 2 ce qui me donnerait la taille de mon bloc.
Je vais creuser en ce sens.

Merci encore

[boisgontierjacques]

>A 1ere vu cela ne répond pas complétement à ma question, mais cela me donne une piste de recherche

Pour couper en 2, il suffit de faire

TailleBloc = UBound(a) \ 2

Boisgontier

[mercatog]

@ boisgontierjacques

Il faudrait ajouter cette ligne après la ligne 5 au cas où la taille initial n'est pas divisible par la taille choisie des blocs

Code :

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

    If fin > UBound(a) Then fin = UBound(a)

[CEIO56]

Encore merci, effectivement il fallait y penser

J'ai adapté la 1ere partie de ton code comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
 
  Debut = 1
  TailleBloc = UBound(TLC) / 2
 
  If Int(TailleBloc) - TailleBloc = 0 Then
  TailleBloc = UBound(TLC) / 2
  Else
  TailleBloc = (UBound(TLC) + 1) / 2
  End If

Car si je ne conserve que l'entier de la division et que mon nombre est impair j'ai une erreur d’exécution

Je m'attaque maintenant à comprendre la 2eme partie.

Bonne soirée