Scinder un tableau generé avec Array

Version imprimable

3 pièce(s) jointe(s)

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:

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 :
Pièce jointe 409538

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 :

Pièce jointe 409545

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.

Bonjour,

Exemple en PJ

Code:

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

06/09/2018, 15h13
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
06/09/2018, 15h49
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
06/09/2018, 16h12
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:

If fin > UBound(a) Then fin = UBound(a)
06/09/2018, 19h05
CEIO56
Encore merci, effectivement il fallait y penser ;)

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

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