Convertir un tableau excel en code vba

[balboa]

Bonjour,

Existe t-il un moyen de convertir en code vba un fichier excel?

je m'explique je voudrais en fait pouvoir récupérer l'ensemble des paramètres d'un tableau(données + apparence) :

on aurait du code sous la forme suivante

  excel.range('a1' ).value = 'Jan-2004';
  excel.range('a2' ).value = 'Feb-2004';
  excel.range('a3' ).value = 'Mar-2004';
  excel.range('a4' ).value = 'Apr-2004';
  excel.range('a5' ).value = 'May-2004';
  excel.range('a6' ).value = 'Jun-2004';
  excel.range('a7' ).value = 'Jul-2004';
  excel.range('a8' ).value = 'Aug-2004';
  excel.range('a9' ).value = 'Sep-2004';
  excel.range('a10').value = 'Oct-2004';
  excel.range('a11').value = 'Nov-2004';
  excel.range('a12').value = 'Dec-2004';

qui représente un tableau de données.

 

[G.David]

Si ton tableau n'est pas trop grand (ton exempl) une boucle devrait suffir

Sub tablo()
dim entete(11) as string
dim t as integer
for t=0 to 11
entete(t)=range('a' & t ).value
next

ça c'est pour les valeur pour l'aaparence des cellule il faudra jetre un oeil du coté de Format dans l'aide de VBA
Cordialement
G.David
PS il existe une fonction Array pour les tableau (mais je ne m'en suis jamais servi

 

[_Thierry]

Bonjour G.David, Balboa, le Forum

Juste pour dire que 'Entete(11)' est déjà une mini Dynamic 'Array'... Mono dimension sur 12 lignes. (Tableau Séquentiel)

Sub tablo()
Dim entete(12) As String
Dim t As Integer

For t = 0 To 11
entete(t) = Range('a' & t + 1).Value
Next

End Sub


Bonne Journée
[ol]@+Thierry[/ol]