Discussion :

[curt]

Bonjour à tous,

en complément de la discussion https://www.developpez.net/forums/d1...feuille-excel/ j'essaie à présent de copier le contenu de ma variable TABLEAU dans une feuille Excel (sheets) MAIS sans la première ligne (cette première ligne contient les étiquettes de champs et a déjà été extraite via l'excellentissime solution de PatrickToulon ()

Pour l'instant, j'effectue cette recopie via une boucle

Code :

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

1
2
3
For ligne = 2 To 5
Cells(ligne + 4, 1).Resize(1, UBound(TABLEAU2, 2) + 1) = Application.Index(TABLEAU2, ligne)
Next

je me sert en fait de la solution de Patrick que je parcours via cette boucle (j'ai rien inventé finalement)
Mais je suppose qu'il y a une solution "plus élégante" et surtout performante pour effectuer cette recopie.

Bonne journée à tous.
Curt

[joe.levrai]

Bonjour,

pourquoi ne pas tout simplement copier l'intégralité du tableau sur ta feuille, et ensuite supprimer la première ligne transférée ?
Ça sera moins gourmand qu'une boucle qui transfère ligne à ligne ton tableau

[Menhir]

Déjà, l'utilisation de Index pour un tableau de variables, je doute que ça puisse fonctionner, mais, surtout, je n'en vois pas l'intérêt alors qu'il est si simple d'accéder à l'index d'une variable.

Au lieu de se faire des noeuds au cerveau, autant utiliser une double boucle.
Ce n'est pas une solution "élégante" mais c'est pragmatique.

Code :

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

1
2
3
4
5
For ligne = 2 To 5
    For Colonne = 1 To UBound(TABLEAU2, 2)
        Cells(ligne + 4, Colonne).Value = TABLEAU2(ligne, Colonne)
    Next Colonne
Next ligne

[joe.levrai]

Si si,

application.Index permet d'extraire une ligne entière ou une colonne entière d'un tableau

Pour une ligne

Code :

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

Application.Index(MonTableau,MaLigne)

Pour une colonne

Code :

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

Application.Index(MonTableau,0,MaColonne)

[patricktoulon]

re
salut curt
si je comprends bien tu veux copier ton tableau sans la 1 ere ligne du tableau sur le sheets en ligne 6

un petit exemple tout simple

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim tablo1
    tablo1 = Range("A1:C3").Value    'on créé le tableau avec une plage pour l'exemple
    With Cells(5, 1).Resize(UBound(tablo1), UBound(tablo1, 2))    ' on determine l'emplacement de la copie
        .Value = tablo1    ' on y met le tableau
        tablo1 = .Offset(1).Value    ' on reprend le tablo mais dans le nouvel emplacementet a partir de la 2d ligne
        .ClearContents    ' on revide ce nouvel emplacement
        .Value = tablo1    ' on lui repet le tableau
    End With
End Sub

pas plus compliqué que ca

[patricktoulon]

Si si,

application.Index permet d'extraire une ligne entière ou une colonne entière d'un tableau

Pour une ligne

Code :

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

Application.Index(MonTableau,MaLigne)

Pour une colonne

Code :

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

Application.Index(MonTableau,0,MaColonne)

oui absolument et on obtient pour la colonne un tablo a 2 dim (x ligne ,1 colonne )
pour transformer ce tableau en array (c'est parfois utile de le convertir) c'est

Code :

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

application.transpose(Application.Index(MonTableau,0,MaColonne))

ainsi plutot que de l'exploiter avec msgbox tablo(4,1) on l'exploite avec msgbox tablo(4)car c'est devenu un array (tableau a 1 dim)
ca fonctionne de la meme maniere avec une plage sauf l'indexation qui commence a 1 une variable tableau pouvant comencer a 0

[curt]

Bonjour à tous,

je ne pensais pas avoir autant de pistes sur ma question.

- Effectivement, je peux copier tout le TABLEAU et ensuite supprimer la 1ère ligne
- La boucle est (à mon avis) la solution passe-partout - ça n'est pas forcément la plus rapide

et pour PatrickTOULON

si je comprends bien tu veux copier ton tableau sans la 1 ere ligne du tableau sur le sheets en ligne 6

Oui, tu as tout compris et c'est ta solution que je prends

Merci à tous pour votre commentaires, avis et solutions.

Curt

[Klin89]

Bonjour à tous

Vois ceci :

Code :

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

1
2
3
4
5
 
Sub test()
    a = Range("a1").CurrentRegion.Value
    b = Application.Index(a, Evaluate("row(2:" & UBound(a, 1) & ")"), Application.Transpose(Evaluate("row(1:" & UBound(a, 2) & ")")))
End Sub

klin89

[patricktoulon]

bien vu klin
cela dit on a pas besoins de controler la 1 colonne puisque l'on veut toute les ligne sauf les entete donc dans l'evaluate partie ligne ubound(a) suffit

Code :

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

1
2
3
4
5
Sub test()
    a = Range("a1").CurrentRegion.Value
    b = Application.Index(a, Evaluate("row(2:" & UBound(a) & ")"), Application.Transpose(Evaluate("row(1:" & UBound(a, 2) & ")")))
Cells(6, 1).Resize(UBound(b), UBound(b, 2)) = b
End Sub

[curt]

Bonjour Klin et Patrick,

effectivement, ça fonctionne aussi mais la macro est un peu plus difficile à "décoder"

Encore bravo à vous.

Curt

[Klin89]

Re

Y'avait un bug lorsque le tableau restitué ne comportait qu'une seule ligne

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
    a = Range("a1").CurrentRegion.Value
    b = Application.Index(a, Evaluate("row(2:" & UBound(a, 1) & ")"), Application.Transpose(Evaluate("row(1:" & UBound(a, 2) & ")")))
    If UBound(Application.Transpose(b), 2) = 1 Then
        Range("a10").Resize(1, UBound(b)) = b
    Else
        Range("a10").Resize(UBound(b, 1), UBound(b, 2)) = b
    End If
End Sub

klin89