[VBA] Variable dynamique

Bonjour a tous,
Je doit créer un XML a partir d'une feuille excel.
Ma fonction récupère les données nécessaires dans la feuille mais je ne sais pas à l'avance combien de colonne contient la feuille. J'ai donc besoin d'une variable dynamique pour les récupérer.

je voudrai faire un truc du genre :

Code:

---

1 2 3 4 5

Dim j As Integer For j = 1 To nbCol valeur & j = ThisWorkbook.Worksheets(myFilename).Cells(1, j).Value Next j

---

Mais malheureusement ça ne passe pas, des idées ??

Des idées plein
mais regarde cette contribution qui recense la majeur partie des solution possible

Comment connaître les numéros des dernière ligne et dernière colonne renseignées d'une plage de données.

note : j'ai des doute sur le valeur & j = mais je dit juste ca en passant

edit oups je crois que j'ai compris:oops:
ce n'est pas le nombre de colonne le problème mais le nombre de variable
essaye avec un tableau que tu dimentionne a la bonne taille dans le code

Code:

---

1 2 3 4 5 6 7

Dim variable() as string 'enfin tu choisi le type     redim variable(1 to nbcol) for j=1 to nbcol variable(j)=...... next j

---

re edit : et tant que l'on y est Bonjour Dead

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test()   Dim j As Integer Dim valeur As String   valeur = ""   For j = 1 To Range("A1").End(xlToRight).Column valeur = valeur & Cells(1, j).Value Next j   MsgBox valeur   End Sub

---

Et si, tu sais combien de colonnes contient ta feuille à l'avance :ccool: Il suffit d'utiliser

Code:

---

Range("A1").End(xlToRight).Column

---

pour connaître la dernière colonne non vide de la première ligne :aie:

Ensuite, je n'ai pas très bien compris ce que tu voulais faire dans ta boucle. J'ai donc supposé que tu voulais incrémenter une variable de texte pour y mettre, à la suite (sans espaces, tu t'occuperas d'arranger cela comme tu le souhaites), les données de la première ligne. Est-ce bien cela?

EDIT : et j'ai encore croisé le Krovax et ses idées ;)

Et RE-EDIT : il semble que je n'avais pas, moi aussi, compris le truc :roll: La réponse de Krovax me paraît bien :mouarf: Bonne chance pour la suite !

Et FIN-EDIT : je ne t'ai pas dit bonjour :oops: Alros bonjour, Krovax ;)

Mdr merci les gars.

En fait l'idée plus précise c'est d'avoir autant de variable que de colonnes.
Et je récupère le nombre de colonne au moment ou je traite ma feuille!

La variable étant formée de valeur concaténée à l'indice

pour pouvoir faire :
valeur1 = ThisWork...
valeur2 = ThisWork...
valeur3 = ThisWork...
...

Et ensuite me servir dans une autre boucle sur le meme princpe
Set noeud1 = xmlDoc.creatElement(valeur1)
Set noeud2 = xmlDoc.creatElement(valeur2)
Set noeud3 = xmlDoc.creatElement(valeur3)

Car chaque colonne va correspondre à une balise que je vais remplir avec les données de la cellule correspondante... je sais pas si c'est clair !! lol

Bonjour à tous!
Je suis content que tu poses cette question matthedemon, je me suis posé la même question il y a deux semaines et on m'a dit que j'étais tordu.
Je suis content de ne pas être le seul à avoir un esprit tordu :aie:
J'ai mis un code qui permet de faire ce que tu veux faire mais pour des constantes. Tu pourras peut-être l'adapter pour que ça fonctionne avec des variables!

Le lien
Bon courage :ccool:

Oui moi aussi je suis tordu :lol:
En fait l'idée la plus simple pour moi est d'utiliser un tableau que je remplit.
Mais ce serait tellement plus simple de pour concaténer les compteur à la string pour obtenir un nombre de variables aléatoire...

Merci à tous en tout cas!
Je close pas mais je pense que je vais me débrouiller.

Bon merci tout le monde ça marche très bien avec des tableaux :ccool:

Code:

---

1 2 3 4 5

ReDim valeur(nbCol) As String For j = 1 To nbCol valeur(j) = ThisWorkbook.Worksheets(myFilename).Cells(1, j).Value Next j

---

Donc la création de variable dynamique en concatenant une string et un indice ne fonctionne pas et le plus est l'utilisation de tableau.

Voilà j'espère que ça pourra en aider.