vba cellule excel dans un tableau Résolu/Fermé

Question

Bonjour, 

Je suis en train de développer une macro VBA sous excel 2003 et j'ai le problème suivant :

J'ai une feuille qui contient divers paramètres nécessaires à l'exécution de cette macro. Sur cette feuille, j'ai une cellule nommée "liste_valeurs" qui contient plusieurs valeurs séparées par des virgules et je voudrais mettre le contenu de cette cellule dans un tableau.
Si je fais :
Dim montab as variant
montab = Array(Worksheets("param").Range("liste_valeurs"))
le contenu de la cellule est affecté en totalité à montab(0) 
et pour montab(1) et suivants "L'indice n'appartient pas à la sélection"
Comment puis-je remédier à cela ?
Merci d'avance pour votre aide.

pijaku · Answer

Bonjour,
Pour séparer une chaine de caractères selon un séparateur et "rentrer"  tout cela dans une variable tableau, il faut utiliser Split.
Comme ceci, par exemple :
Dim montab As Variant, i As Integer
'Split avec séparateur virgule :
montab = Split(Worksheets("Feuil1").Range("liste_valeurs"), ",")
For i = 0 To UBound(montab)
    Debug.Print montab(i) 
Next

Luluc94 · Answer

Génial, ça marche super !
Merci beaucoup.

Vba cellule excel dans un tableau

2 réponses