[VBA Excel] tableau
Résolu
lalilu
Messages postés
36
Statut
Membre
-
lalilu Messages postés 36 Statut Membre -
lalilu Messages postés 36 Statut Membre -
Bonjour,
avant tout, je tiens à préciser que je suis débutante en VBA.
je voudrais déclarer un tableau et le remplir avec les valeurs d'une plage de cellules.
j'ai fait un truc de ce genre :
sub ()
sheets (MaFeuille) . select
range ("B1:B8") .select
dim tabl (8) as double
tabl (0) = B1
etc...
end sub
ça me fais une erreur n°9 sur la ligne sheets (MaFeuille) . select ???????????????????
(erreur n°9 = valeur hors du domaine de définition du tableau).
Bref, je suis complètement perdue !
il est fort probable que je sois complètement à côté de la plaque, n'hésitez pas à me le dire.
merci d'avance à tous ceux qui tenteront de m'aider.
avant tout, je tiens à préciser que je suis débutante en VBA.
je voudrais déclarer un tableau et le remplir avec les valeurs d'une plage de cellules.
j'ai fait un truc de ce genre :
sub ()
sheets (MaFeuille) . select
range ("B1:B8") .select
dim tabl (8) as double
tabl (0) = B1
etc...
end sub
ça me fais une erreur n°9 sur la ligne sheets (MaFeuille) . select ???????????????????
(erreur n°9 = valeur hors du domaine de définition du tableau).
Bref, je suis complètement perdue !
il est fort probable que je sois complètement à côté de la plaque, n'hésitez pas à me le dire.
merci d'avance à tous ceux qui tenteront de m'aider.
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
Bonjour
Option Explicit
Sub remplir_tablo()
Dim tablo()
Dim cptr As Byte
With Sheets("feuil1")
tablo = .Range("B1:B8").Value
'restitution pour essai en G11:G18
For cptr = 1 To UBound(tablo)
.Cells(10 + cptr, 7) = tablo(cptr, 1)
Next
End With
End Sub
Michel -
merci michel j'essaie ça tout de suite.
en fait j'ai trouvé d'où vient cette satanée erreur 9 :
sheets (MaFeuille) . select --> il faut des guillemets !!! --> sheets ("MaFeuille") . select
cela dit je vais essayer ton truc, ça m'a l'air bien mieux que ce que j'envisageais de faire !
merci encore -