Vba cellule excel dans un tableau
Résolu
Luluc94
-
Luluc94 -
Luluc94 -
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.
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.
A voir également:
- Vba cellule excel dans un tableau
- Trier un tableau excel - Guide
- Tableau word - Guide
- Imprimer un tableau excel - Guide
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
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 :
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
