[VBA Excel] tableau
Résolu
lalilu
Messages postés
35
Date d'inscription
Statut
Membre
Dernière intervention
-
lalilu Messages postés 35 Date d'inscription Statut Membre Dernière intervention -
lalilu Messages postés 35 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- [VBA Excel] tableau
- Tableau word - Guide
- Trier un tableau excel - Guide
- Imprimer tableau excel sur une page - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
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
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