Comment copier des donnée en passant par un tableau VBA

**sommongkul** · 06/06/2018, 17h39

Bonjour,
Je voulais savoir comment je peux copier mes donnée de feuille 1 vers feuille 2 en passant par un tableau. Mon but est tout d'abord de stocker les donnée de feuille 1 dans un tableau et ensuit je vais utiliser ce tableau pour copier ses contenus vers la feuille 2. J'ais créé deux sub () nomé Tableau et Copy. Je n'arrive pas à obtenir les données dans la feuille 2 via ce tableau. Quelqu'un peut me donner un coup de main sur ce problème? Merci d'avance.

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
 
'Copier des données d'Excel vers VBA
Sub Tableau()
Dim i As Integer
Dim FL1 As Worksheet
Set FL1=Sheets("Feuil1")
With FL1
        Dim tablo(2,5) ' Tableau de 3 x 6 cases
        ReDim tablo(2,5)
        ' Enregistrement des valeurs dans le tableau
        For i=0 To 2
                 tablo(i,0)=.Range("A" & i+4)
                 tablo(i,1)=.Range("B" & i+4)
                 tablo(i,2)=.Range("C" & i+4)
                 tablo(i,3)=.Range("D" & i+4)
                 tablo(i,4)=.Range("E" & i+4)
                 tablo(i,5)=.Range("F" & i+4)
       Next i
End With
End Sub
'Copier des données de VBA vers Excel
 Sub test()
Dim i As Integer
Dim FL2 As Worksheet
Dim tablo()
'***nétoyer feuille 2******
Set FL2 =Sheets("Feuil2")
With FL2 
     .Cells.Clear
'************Nommer et ajouter les titres de colonnes
     .Cells(1,1) = "Data"       
     .Cells(2,1).Resiwe(1,8)=Array("year", "month", "day", "hour", "dm/dt, "kk", "sum","condition")
      For i=0 To 2
              .Range("A" & i+3)= tablo(i,0)      
              .Range("B" & i+3)= tablo(i,1)
              .Range("C" & i+3)= tablo(i,2)
              .Range("D" & i+3)= tablo(i,3)
              .Range("G" & i+3)= tablo(i,4)
              .Range("H" & i+3)= tablo(i,5)       
     Next i
End With
FL2.Activate    
End Sub

discussion.xlsx

**Menhir** · 06/06/2018, 17h54

Petite remarque liminaire : il aurait mieux valu que tu présentes ici un code issu du VBE (étant donné que visiblement celui-ci n'a pas été tapé dans VBE et n'a donc pas pu être exécuté).

Y a-t-il une raison pour laquelle tu souhaites compliquer cette opération en passant par l'intermédiaire d'un tableau ?
Parce que ce que tu souhaites faire peut être obtenu en 2 ou 3 lignes (et sans boucles) si on fait la copie en direct.

Code :

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

1
2
3
4
5
6
7
With Sheets("Feuil2")
    .UsedRange.ClearContents
    .Range("A1") = "Data"       
    .Range("A2:H8") = Array("year", "month", "day", "hour", "dm/dt", "kk", "sum", "condition")
    Sheets("Feuil1").Range("A4:F6").Copy
    .Range("A3").PasteSpecial(xlPasteValues)
End With

C'est quand même plus simple, non ?

**patricktoulon** · 06/06/2018, 19h00

en passant par un tableau

exemplececi :

Code :

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

1
2
3
4
5
6
7
8
For i = 0 To 2
                 tablo(i, 0) = .Range("A" & i + 4)
                 tablo(i, 1) = .Range("B" & i + 4)
                 tablo(i, 2) = .Range("C" & i + 4)
                 tablo(i, 3) = .Range("D" & i + 4)
                 tablo(i, 4) = .Range("E" & i + 4)
                 tablo(i, 5) = .Range("F" & i + 4)
       Next i

peut etre remplacé par cela

Code :

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

tablo = sheets(1)Range("A4:F6").Value

et pour la destination

Code :

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

sheets("feuil2").cells(1,1).resize(ubound(tablo),ubound(tablo,2))=tablo

et on pourrait meme se passer d'un tableau et meme de copy

Code :

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

1
2
set plage=sheets(1).Range("A4:F6")
sheets("Feuil2").cells(1,1).resize(plage.rows.count,plage.columns.count)=plage.value

**sommongkul** · 07/06/2018, 09h37

merci à vous deux. Je vais tester vos codes.

**sommongkul** · 07/06/2018, 09h42

Envoyé par Menhir

Petite remarque liminaire : il aurait mieux valu que tu présentes ici un code issu du VBE (étant donné que visiblement celui-ci n'a pas été tapé dans VBE et n'a donc pas pu être exécuté).

Y a-t-il une raison pour laquelle tu souhaites compliquer cette opération en passant par l'intermédiaire d'un tableau ?
Parce que ce que tu souhaites faire peut être obtenu en 2 ou 3 lignes (et sans boucles) si on fait la copie en direct.

Code :

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

1
2
3
4
5
6
7
With Sheets("Feuil2")
    .UsedRange.ClearContents
    .Range("A1") = "Data"       
    .Range("A2:H8") = Array("year", "month", "day", "hour", "dm/dt", "kk", "sum", "condition")
    Sheets("Feuil1").Range("A4:F6").Copy
    .Range("A3").PasteSpecial(xlPasteValues)
End With

C'est quand même plus simple, non ?

BOnjour Menhir
En fait , je voulais savoir comment utiliser un tableau pour stocker des données. Je crois que avec ce tableau je peux diminuer le temps de calcul si j'ai beaucoup de données.

**sommongkul** · 07/06/2018, 09h56

Du coup, mon code ne me permet pas de copier des données dans le tableau. Je ne sais pas où est son problème? C'est à cause du code Sub tableau() ou Sub test() ?

**Menhir** · 07/06/2018, 09h58

Envoyé par sommongkul

En fait , je voulais savoir comment utiliser un tableau pour stocker des données. Je crois que avec ce tableau je peux diminuer le temps de calcul si j'ai beaucoup de données.

S'il y a des calculs intermédiaires, tu aurais du le préciser.

De toutes façons, ta méthode initiale ne fonctionne pas puisque les variables sont détruites à la fin d'une exécution.
Donc, tu ne peux pas reprendre l'exécution d'une autre macro en espérant récupérer les variables renseignées lors de l'exécution précédente.

**sommongkul** · 07/06/2018, 10h03

Envoyé par Menhir

S'il y a des calculs intermédiaires, tu aurais du le préciser.

De toutes façons, ta méthode initiale ne fonctionne pas puisque les variables sont détruites à la fin d'une exécution.
Donc, tu ne peux pas reprendre l'exécution d'une autre macro en espérant récupérer les variables renseignées lors de l'exécution précédente.

Est ce que vous pouvez m'aider comment je peux resoudre ce problème? Est ce qu'il faut que je crée un tableau dans le macro Sub test() directement ou comment?