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