Discussion :

[Thomas_C_Moi]

bonjour,

j'ai un worksheet "wsTravail". Sur ce worksheet j'ai des donné en colonne A et en colonne C.

Je souhaite remplir un tableau a 2 dimension avec la colonne C en premier et la colonne A en deuxième.

Comment faire ?

y a-t-il la possibilité d'adapter ce code ?

Code :

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

1
2
3
 
Dim tableau As Variant
tableau = wsTravail.Range("A1:B7").Value

[thebenoit59]

Bonjour Thomas.

Tes lignes se suivent-elles (C1, A1, etc...) pour remplir le tableau ?

[Thomas_C_Moi]

oui la premiere ligne de mon tableau contient C1 et A1. il n'y a pas de decalage entre sur les lignes.

[RyuAutodidacte]

Bonjour,
Tu peux t'inspirer de la réponse que j'ai donné dans ce post

[thebenoit59]

Bonjour Ryu.

A adapter à ton nom d'onglet.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
Dim t(), temp(), l&, i&
 
With Sheets("Feuil1")
    l = .[a65000].End(xlUp).Row
    temp = .Range(.Cells(1, 1), .Cells(l, 3)).Value
    ReDim t(1 To UBound(temp), 1 To 2)
    For i = LBound(temp) To UBound(temp)
        t(i, 1) = temp(i, 3)
        t(i, 2) = temp(i, 1)
    Next i
End With
End Sub

[Marc-L]

Bonjour,

réalisable sans boucle en une ligne via la simple fonction de feuille de calculs INDEX d'Excel (Application.Index en VBA).
Je vous laisse lire l'aide d'Excel (et non pas celle de VBA) et tenter de votre côté, niveau pas trop compliqué …

Sinon voir l'exemple de cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[RyuAutodidacte]

Hi thebenoit59,
Je regarderai ça, merci

Édit : merci Marc j'irais voir tout cela

[Marc-L]

j'ai des données en colonne A et en colonne C.

Je souhaite remplir un tableau à 2 dimensions avec la colonne C en premier et la colonne A en deuxième.

Code :

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

1
2
3
4
5
6
7
8
Sub Demo1()
'   With ThisWorkbook.Worksheets(1).UsedRange
    With ThisWorkbook.Worksheets(1).Cells(1).CurrentRegion
        VA = Application.Index(.Value, .Parent.Evaluate("ROW(1:" & .Rows.Count & ")"), [{3,1}])
    End With
                Stop
'   Jeter un œil au contenu de VA dans la fenêtre Variables locales !
End Sub

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Thomas_C_Moi]

merci bien pour les corrections. c'est vrai que la fonction d'affichage était inutile avec la fenêtre de variable local. Mais tout cela ne répond pas à ma question.

[Marc-L]

Pourtant l'aide VBA est assez claire (enfin pour moi elle l'a été), tu l'as peut-être lue un peu vite !

Cette seconde démonstration devrait aider à comprendre pourquoi :

Code :

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

1
2
3
4
Sub Demo2()
    VA = Application.Index(ThisWorkbook.Worksheets(1).UsedRange.Value, , 3)
    Stop
End Sub

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …