Garder que certaines données d'une variable tableau

Version imprimable

Voir 40 message(s) de cette discussion en une page

18/04/2017, 14h21
nouveauvba

Garder que certaines données d'une variable tableau

Bonjour à tous,
j'ai une variable tableau (tablo) constituée de 12 lignes et 8 colonnes.
je souhaite écrire dans une feuille Excel les 12 lignes mais seulement les colonnes 1, 4,5,6,7.

Ma ligne de code actuelle est :

Code:

Range("C5:J16").Value = tablo

qui comme vous vous en doutez, écrit toutes les données (même celles que je ne veux pas)!

Suis je obliger de créer une nouvelle variable qui récupère uniquement les données que je souhaite, ou puis je procéder différemment?

Merci par avance de votre aide.
18/04/2017, 15h14
a_diard

pour moi il faut créer une nouvelle variable ne contenant que les données que tu souhaite.
18/04/2017, 15h15
Pierre Fauconnier

Salut.

Tu vas être obligé de travailler en boucle sur ton tableau et d'alimenter ta plage cellule par cellule.
18/04/2017, 15h22
nouveauvba

Merci à vous deux pour les pistes évoquées.
Zut moi qui croyait qu'une ligne de code suffirait :calim2:

Bah... Il n'y en aura pas beaucoup plus...

Voilà un code exemple (à adapter à ton tableau). Le principal se trouve dans l'initialisation de la première cellule d'arrivée et dans la boucle, bien sûr.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Test() Dim tablo Dim Target As Range Dim Counter As Long tablo = Range("a1:c12") Set Target = Range("f1") For Counter = 1 To UBound(tablo) Target.Value = tablo(Counter, 1) Target(1, 2) = tablo(Counter, 3) Set Target = Target(2) Next Counter End Sub

18/04/2017, 15h49
nouveauvba

Merci, je viens de tester ce code, je dois l'adapter mais ça répond très probablement à mon besoin.:D
18/04/2017, 15h54
Marc-L

Bonjour,

réalisable sans boucle en deux instructions - une par plage contigüe - via la fonction de feuille de calculs d'Excel INDEX !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
18/04/2017, 15h57
nouveauvba

Bonjour,
je suis sur et certain que cela correspond à mon besoin j 'ai cherché sur cet élément mais là va falloir m'en dire un peu plus stp..:zoubi:
18/04/2017, 16h02
Marc-L

Et donc à toi d'expliquer précisément la destination de chaque colonne de la variable tableau,
la raison pour laquelle je n'ai pu présenter un exemple sans !

Et merci de ne pas citer l'intégralité d'un message juste précédent, cela nuit à la fluidité de la discussion …

2 pièce(s) jointe(s)

Bonjour,

Citation:

j'ai une variable tableau (tablo) constituée de 12 lignes et 8 colonnes.

Code:

1
2
3
4
5
6
 
Sub essai()
  Tbl = [A1:H12]             ' création d'un Array()         
  a = Application.Index(Tbl, [{1;2;3;4;5;6;7;8;9;10;11;12}], [{1,4,5,6,7}])    ' extraction tableau
  [M1].Resize(UBound(a), UBound(a, 2)) = a  
End Sub

Code:

1
2
3
4
5
6
 
Sub essai2()
  Tbl = [A1:H12]
  a = Application.Index(Tbl, Evaluate("Row(1:12)"), [{1,4,5,6,7}])
  [M1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

Boisgontier
http://boisgontierjacques.free.fr

18/04/2017, 16h09
Pierre Fauconnier

Citation:

Envoyé par boisgontierjacques

[...]

Et lorsque tu as 100.000 lignes? ;)
18/04/2017, 16h17
Marc-L
Certes, mais là pour une plage aussi ridicule le B-A-BA suffit amplement !
Code:

1 2 [C5:C16].Value = Application.Index(Tablo, , 1) [F5:I16].Value = Application.Index(Tablo, [ROW(1:12)], [COLUMN(D:G)])
___________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
18/04/2017, 16h24
Marc-L

Citation:

Envoyé par Pierre Fauconnier

Et lorsque tu as 100.000 lignes? ;)

En découpant par blocs car c'est bien plus rapide qu'une boucle travaillant cellule par cellule et donc forcément plus lente …
18/04/2017, 16h27
nouveauvba

1 pièce(s) jointe(s)

Je vais essayer d'être plus clair:

La destination de la valeur de la variable "tablo" contenue en ligne 1 et colonne 1 doit aller en C5 jusqu'à la valeur de la ligne 12 colonne 1 doit aller en C16.

La destination de la valeur de la variable "tablo" contenue en ligne 1 et colonne 4 doit aller en D5 jusqu'à la valeur de la ligne 12 colonne 1 doit aller en D16.

La destination de la valeur de la variable "tablo" contenue en ligne 1 et colonne 5 doit aller en E5 jusqu'à la valeur de la ligne 12 colonne 1 doit aller en E16.

......

a destination de la valeur de la variable "tablo" contenue en ligne 1 et colonne 7 doit aller en E5 jusqu'à la valeur de la ligne 12 colonne 1 doit aller en G16.

Je prends note pour la citation.:oops:

Merci par avance :P
18/04/2017, 16h27
Pierre Fauconnier

Citation:

Envoyé par Marc-L

En découpant par blocs car c'est bien plus rapide qu'une boucle travaillant cellule par cellule et donc forcément plus lente …

Je répondais de façon humoristique à Jacques qui donnait une solution énumérant toutes les lignes dans la matrice, ce qui n'est pas très pratique... ;)
18/04/2017, 16h32
nouveauvba

Merci Jacques Boisgontier j'étais justement en train de feuilleter votre "site".

J'en profite aussi pour vous remercier car il m'a permis de m'ouvrir pas mal l'esprit :D bien que des fois j'aurais voulu vous interpeller pour avoir plus de détail pour comprendre certains points :mouarf:

Pour le moment je n'ai pas 100 000 lignes car déjà digérées au préalable mais dans un autre programme ça va venir....:aie:

1 pièce(s) jointe(s)

Le transfert par boucle est 2 fois + rapide que Application.index mais plus compliqué.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub FiltreColonnes()
  a = [A2].Resize(4, 20)                       ' tableau a()
  b = FiltreArrayCol(a, Array(1, 3, 6, 7))     ' on prend les colonnes 1, 3,  6, 7
  [A11].Resize(UBound(b), UBound(b, 2)) = b
End Sub
 
Function FiltreArrayCol(tableau, ColResult)
  Dim b()
  ReDim b(LBound(tableau) To UBound(tableau), 1 To UBound(ColResult) - LBound(ColResult) + 1)
  decal = 1 - LBound(ColResult)
  For i = LBound(tableau, 1) To UBound(tableau, 1)
    For c = LBound(ColResult) To UBound(ColResult)
      b(i, c + decal) = tableau(i, ColResult(c))
    Next c
  Next i
  FiltreArrayCol = b
End Function

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub SelectionColonnes()
  a = [A2:D7].Value
  b = FiltreArrayColonnes(a, Array(1, 4, 2))
  [G2].Resize(UBound(b), UBound(b, 2)) = b
End Sub
 
Function FiltreArrayColonnes(Tbl, ColResult)
  FiltreArrayColonnes = Application.Index(Tbl, Evaluate("Row(1:" & UBound(Tbl) & ")"), ColResult)
End Function

18/04/2017, 16h34
Marc-L

Citation:

Envoyé par nouveauvba

Je prends note pour la citation.:oops:

C'est juste ma signature par défaut, n'en prends par ombrage …
Du reste tu verras demain elle aura été ajoutée automatiquement cette nuit à tous mes messages !

Sinon tu as déjà tout le nécessaire entre les exemples du grand Jacques (Salut Maître ! 8-) Autant pour moi quant à la rapidité …)
et le mien …

Donc ma première intention était la bonne (doute à cause du flou de la présentation initiale) : réalisable donc en une seule instruction !
18/04/2017, 16h43
nouveauvba

Mac L je ne suis pas familier des forums donc je prends toutes remarques comme constructives pour être dans les clous ;) et donc nullement fâché :ptdr:.
J'ai testé ta solution elle fonctionne à merveille.

Je vous remercie tous chaleureusement pour l'aide que vous avez voulu m'accorder.
:zoubi:
18/04/2017, 16h53
nouveauvba

Il me reste plus qu'a conserver ces données pour les sommer avec la prochaine itération.
La suite au prochain épisode :roll:

Voir 40 message(s) de cette discussion en une page