tableau vba et excel Fermé

Question

Bonjour,
je voudrais savoir comment on pourrait stocker des donner d'une colonne excel dans un tableau en vba mais pas on utilisant temp_tab(6) = Worksheets("Sheet2").Range("a1:a10") enfaite je voudrais stocker celllule par cellul en utilisant une boucle fort donc jai esseyer ca mé ca ne marche pas :

Sub Monprog()
 Dim i, jAs Integer

 Dim ZeroMin, ZeroMax As Double
 Dim temp_tab(6) As Variant
    For i = 1 To 6
        temp_tab(6) = Worksheets("Sheet2").Range("J" & i)
    Next i
 'Boucle sur les éléments du tableau pour lire leur contenu
    For j = 0 To 6
        Worksheets("Sheet2").Range("l13:l19") = temp_tab(j)
    Next j
End Sub

la il me rend toujour la dernier valeur dans mon affichage mé ca marche bien lorsqu'on lui definit une plage ("a1:a10") 

Merci pour vos corrections

Polux31 · Answer

Bonjour,

Essai ça :
Sub Monprog() 
Dim i, jAs Integer 

Dim ZeroMin, ZeroMax As Double 
Dim temp_tab(6) As Variant 
For i = 1 To 6 
temp_tab(i) = Worksheets("Sheet2").Range("J" & i) 
Next i 
'Boucle sur les éléments du tableau pour lire leur contenu 
For j = 1 To 6 
Worksheets("Sheet2").Range("l" & j) = temp_tab(j) 
Next j 
End Sub 


;o)

kibel · Answer

Il y a rien qui te choc dans cette boule là?

For i = 1 To 6 
temp_tab(6) = Worksheets("Sheet2").Range("J" & i) 
Next i

Genre tu remplis toujours la même cases du tableau soit temp_tab(6)?

Sinon tu veux faire quoi exactement car c'est pas trés clair.

Correction:

For i = 1 To 6 
temp_tab(i) = Worksheets("Sheet2").Range("J" & i) 
Next i

michel_m · Answer

Bonjour

essaies:
Sub Monprog()
With Sheets(2)
Sheets(2).Range("l13:l18").Value = .Range("J1:J6").Value
End With
End Sub

nick · Answer

Polux31 : ta methode fonctionne merci a toi 
michel_m : enfaite j'essayais de lire une colonne  excel(ex: de 6lignes ) et stocker dans un tableau ligne par ligne enfin celule par cellule et no par plage. en faissant cellule par cellule cela me permettra d'effectuer des boucles pour faire des sauts sur des cellules plus consequent
Merci a vous

nick · Answer

et effectivement j'ecrivais tjr ds la meme case du tableau merci ^^

nick · Answer

jai un petit souci je voulais prendre autre cellule ke ceux de la  boucle  i (j1,j2,j3,j4,j5,j6)et moi je voulais par exemple (j11,j12,...,j16) et ca veut pas
For k = 11 To 16
    For i = 1 To 6
        temp_tab(i) = Worksheets("Sheet2").Range("J" & k)
    Next i
Next k

Polux31 · Answer

Dim i As Integer

i = 1
For k = 11 To 16 
   temp_tab(i) = Worksheets("Sheet2").Range("J" & k) 
   i = i + 1
Next k

;o)

Polux31 · Answer

De rien,

Bonne continuation.

;o)

Tableau vba et excel

8 réponses

Newsletters