Discussion :

[damienlelol]

Bonjour à tous,

Voilà mon problème :
Je veux remplir un tableau dynamique contenant des tarifs , grâce à une macro vba, depuis un fichier excel, en appelant à chaque fois un numéro de colonne du document source :

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
array_Tarifs(l, 0) = Worksheets("Feuille1").Range("A" & l + 1)
array_Tarifs(l, 1) = Worksheets("Feuille1").Range("B" & l + 1)
array_Tarifs(l, 2) = Worksheets("Feuille1").Range("C" & l + 1)

Jusque là, tout se passe bien, chaque case du tableau VBA se remplit depuis le fichier source excel (ici en prenant depuis les colonnes A, B et C notamment).
Le problème intervient quand je veux importer des données depuis des colonnes de type NN (car il y a plus que A,B,...,Y,Z = 26 colonnes) :

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
array_Tarifs(l, 72) = Worksheets("Feuille1").Range("BT" & l + 1)
array_Tarifs(l, 73) = Worksheets("Feuille1").Range("BU" & l + 1)

compile mais me renvoie le message d'erreur suivant :

"Erreur d'exécution '9':
L'indice n'appartient pas à la sélection"
puis me surligne dans mon code les lignes précédentes pour les colonnes BT ET BU

Avez vous une idée de comment appeler ces colonnes à double lettres ?

Merci bien !

[Marc-L]

Bonjour, bonjour !

Le problème ne vient pas des doubles lettres mais plutôt des variables, vérifier leur contenu donc …


Sinon à la place de Range utiliser la propriété Cells (cf aide VBA intégrée).


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Menhir]

As-tu essayer de remplacer tes "l + 1" par "Str(l + 1)" ?

[damienlelol]

Merci Marc-L (ou Marc-LeDieuDuVBA) tu es pour l'instant mon idole du VBA !

[Marc-L]

LoL !


Mais ne pas voter est s'exposer à ne pas avoir de réponse lors de la prochaine discussion …

[Pierre Fauconnier]

Salut.

Tu peux y aller de façon plus directe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  Dim MonTableau
 
  MonTableau = Range("a1:b10")
 
  End Sub

créera directement un tableau de taille (10,1) indicé à partir de 1 => beaucoup plus rapide qu'une boucle...

Voir le tuto d'Ormonth à ce sujet.