Déclaration de variables "en masse"

Bonjour à tous,

Changement de poste, je suis confronté au VBA que je découvre à travers des macros réalisées par mes prédécesseurs et en m'aidant bien évidemment des nombreux tutos disponibles sur le net.

J'ai comme objectif de dupliquer une macro existante.
Cette macro créée une requête, récupère les données, les mets dans un tableau et les affiches.

J'ai commencé par la solution de base qui a été de C/C les variables du nombre de requête dont j'avais besoin (et honnêtement j'ai même fait cela pour les autres steps mais on verra par la suite :))

Code:

---

1 2 3 4 5 6

'Déclaration des variables: Dim sURL As String, aResultat() As Variant, aLines() As String Dim sURL2 As String, aResultat2() As Variant, aLines2() As String Dim sURL3 As String, aResultat3() As Variant, aLines3() As String ...

---

Toutefois je me doute qu'il existe une possibilité pour déclarer des variables "en masse" mais je ne trouve pas de tuto à ce sujet.
Est-ce que quelqu'un pourrait me guider là-dessus ?

Merci par avance pour l'aide apportée,

R71

Bonjour,

Citation:

---

Toutefois je me doute qu'il existe une possibilité pour déclarer des variables "en masse" mais je ne trouve pas de tuto à ce sujet.
Est-ce que quelqu'un pourrait me guider là-dessus ?

---

Je ne sais pas ce que vous entendez par une déclaration de variables "en masse" mais comme vous numérotez vos variables, il est possibles que les variables tableaux correspondent à vos recherches

Voici les tutoriels sur ce sujet

• Utiliser les variables tableaux en VBA Excel
• Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

Bonjour Philippe,

Merci beaucoup pour ton retour rapide, cela a parfaitement répondu à ma demande.
J'étais bien tombé sur cette page mais n'en n'avais pas compris les fonctionnalités.
Avec un peu de pratique cela m'a permis de réaliser une boucle/tableau dans ma saisie de requête, super cela fonctionne parfaitement.

Toutefois est-ce que cela est aussi applicable à la fonction Split ?
Je m'explique. Cette fonction créé un tableau.
J'ai voulu appliquer le même principe que précédemment mais sans réussite. Probablement un problème dans la dimension de mon tableau. Je n'avais pas cette préoccupation précédemment puisqu'une seule dimension, alors que là que je ne connais pas la dimension à l'avance de mon tableau.

Code:

---

1 2 3 4 5 6 7

Sub exemple() texte = "www.developpez.net" tableau = Split(texte, ".") sgBox tableau(0) 'Renvoie : www MsgBox tableau(1) 'Renvoie : developpez MsgBox tableau(2) 'Renvoie : net End Sub

---

Comment ne pas à avoir à créer tableau1 pour le texte 1, tableau 2 pour le texte 2 etc ? Créer une nouvelle dimension ?

Merci encore pour l'aide,

R71

Bonjour,

Citation:

---

Probablement un problème dans la dimension de mon tableau. Je n'avais pas cette préoccupation précédemment puisqu'une seule dimension, alors que là que je ne connais pas la dimension à l'avance de mon tableau

---

Split crée une table d'une dimension égale au nombre d'éléments qui sépare la chaîne et on connaît ce nombre grâce à la fonction Ubound mais tout cela est expliqué dans le tutoriel.

Citation:

---

Comment ne pas à avoir à créer tableau1 pour le texte 1, tableau 2 pour le texte 2 etc ? Créer une nouvelle dimension ?

---

Dans mon utilisation de Splt, je n'ai pas de problème particulier mais sans doute n'ai je pas les mêmes contraintes.