Tableau vba et excel

nick -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   1 204
 
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
 
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   Statut Contributeur Dernière intervention   3 314
 
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
 
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
 
et effectivement j'ecrivais tjr ds la meme case du tableau merci ^^
0
Réponse 6 / 8
nick
 
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   Statut Membre Dernière intervention   1 204
  
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
 
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   Statut Membre Dernière intervention   1 204
 
De rien,

Bonne continuation.

;o)
0