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

Version imprimable

1 pièce(s) jointe(s)

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:

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

Pièce jointe 386564

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:

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 ?

en passant par un tableau

exemplececi :

Code:

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:

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

et pour la destination

Code:

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:

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

;)

07/06/2018, 09h37
sommongkul

merci à vous deux. Je vais tester vos codes.

Citation:
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:

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.

07/06/2018, 09h56
sommongkul

Erreur

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() ?
07/06/2018, 09h58
Menhir

Citation:

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.
07/06/2018, 10h03
sommongkul

Citation:

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?
07/06/2018, 10h23
patricktoulon

re

la solution
met tes variables en public
et decharge les apres le moment venu
07/06/2018, 10h55
Menhir

Citation:

Envoyé par sommongkul

Est ce que vous pouvez m'aider comment je peux resoudre ce problème?

Faire les deux étapes en une seule macro.