Discussion :

[Invité]

Bonjour.

J'ai créé un tableau en 2 dimensions (ex : Dim MonTab(1 To 5, 1 To 10) As Integer)
Le tableau contient des données.

Je voudrais maintenant copier UNE LIGNE de mon tableau dans un feuille en une seule fois
(et non faire une boucle de 1 à 10 qui copie une cellule à la fois, histoire d'optimiser mon code).

Je ne peux copier l'entièreté du tableau en mémoire car chaque ligne va à un endroit différent dans la feuille.

Il me manque quelque chose après feuil1.range(B5:K5)=MonTab(??? uniquement la ligne 1 ???).

Par avance, merci de votre aide.

Cordialement.


Lsg

[Philippe Tulliez]

Bonjour,
Je te conseille la lecture de ce tutoriel Utiliser les variables tableaux en VBA Excel et tout particulièrement le chapitre XIV-F. Transférer le contenu d'un tableau dans une feuille de calcul

[Marc-L]

Bonjour !

Je voudrais maintenant copier UNE LIGNE de mon tableau dans un feuille en une seule fois

Même en VBA simplement via la fonction de feuille de calculs INDEX …

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[mjpmjp]

bonjour,
résultat du lien de Philippe Tulliez



résultat de l'adaptation d'une de mes discussion : Extraire une Dimension d'un tableau SANS utiliser de boucle

pour une colonne


pour une ligne

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Private Sub CommandButton2_Click()
    '----- partie 1 : lien de Philippe Tulliez (modif JP : "-" par "_")
    Dim x As Integer, y As Integer
    Dim i As Integer, j As Integer
    Dim NomTableau() As String
 
    'Redéfinit la taille du tableau
    x = 10
    y = 5
    ReDim NomTableau(1 To x, 1 To y)
 
    'Alimente les éléments du tableau
    For i = 1 To x
        For j = 1 To y
            NomTableau(i, j) = i & "_" & j
        Next j
    Next i
 
    'efface zone
    Range(Cells(1, 1), Cells(x, y)).Value = ""
 
    'Transfère les éléments du tableau dans la feuille de calcul
    Range(Cells(1, 1), Cells(UBound(NomTableau, 1), UBound(NomTableau, 2))) = NomTableau
 
    '----- partie 2 : code JP : extraire une dim (colonne)
 
    'definir la plage de cellules à mettre dans le tableau TabZone
    Set Zone = ActiveSheet.Range(Cells(1, 1), Cells(x, y))
    'Alimente les éléments du tableau...possible...[{1,3,5}]..ou..[{2,4,5}]..par exemple
    TabZone = Application.Index(Zone, Evaluate("Row(1:" & Zone.Rows.Count & ")"), [{1,2,3,4,5}])
    'EXTRAIRE une Dim
    TabDim = Application.Index(TabZone, , 3)
    'nouveau tableau
    NewTableau = Application.Transpose(TabDim)
 
    'efface zone
    Range(Cells(1, 1), Cells(x, y)).Value = ""
 
    'Transfère les éléments du tableau dans la feuille de calcul
    Range(Cells(1, 1), Cells(1, UBound(NewTableau))) = NewTableau
 
End Sub

pour être complet , pour une colonne :

Code :

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

1
2
3
4
5
6
7
8
 
    'EXTRAIRE une Dim
    TabDim = Application.Index(TabZone, , 3)
    'nouveau tableau
    NewTableau = Application.Transpose(TabDim)
 
    'Transfère les éléments du tableau dans la feuille de calcul
    Range(Cells(1, 1), Cells(1, UBound(NewTableau))) = NewTableau

et pour une ligne :

Code :

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

1
2
3
4
5
6
 
    'EXTRAIRE une Dim
    NewTableau = Application.Index(TabZone, 3)
 
    'Transfère les éléments du tableau dans la feuille de calcul
    Range(Cells(1, 1), Cells(1, UBound(NewTableau))) = NewTableau

@+JP