Tableau vba et excel

Fermé
nick - 18 févr. 2009 à 13:51
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 18 févr. 2009 à 15:18
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
A voir également:

8 réponses

Réponse 1 / 8
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 févr. 2009 à 14:07
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)
0
Réponse 2 / 8
kibel
18 févr. 2009 à 14:07
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
0
Réponse 3 / 8
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
18 févr. 2009 à 14:10
Bonjour

essaies:
Sub Monprog()
With Sheets(2)
Sheets(2).Range("l13:l18").Value = .Range("J1:J6").Value
End With
End Sub
0
Réponse 4 / 8
nick
18 févr. 2009 à 14:16
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
nick
18 févr. 2009 à 14:17
et effectivement j'ecrivais tjr ds la meme case du tableau merci ^^
0
Réponse 6 / 8
nick
18 févr. 2009 à 14:29
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
0
Réponse 7 / 8
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 févr. 2009 à 14:34 
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)
0
nick
18 févr. 2009 à 14:40
merci c cool ca marche je vé pouvoir me debrouiller pour la suite quoi que ...
0
Réponse 8 / 8
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 févr. 2009 à 15:18
De rien,

Bonne continuation.

;o)
0