[VBA-E] Problèmes de variables

Bonjour,

J'aurais besoin d'aide sur un problème de variables.

En fait c'est assez simple j'ai 22 variable b1 --> B22
Et je voudrais que le if est pour condition
b1, puis b2 puis b3 etc ...
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Dim b1 As String Dim b2 As String Dim b3 As String 'Etc.....       b1 = "X" b2 = "Y" b3 = "Z" 'Etc ....     For g = 2 To 12 For i = 6 To 477 For j = 1 To 80 For h = 1 To 22       Windows("Rapport index.xls").Activate Sheets("mois " & g).Activate     'Le probleme ce trouve ici ===> If Range("B" & i) = b &h Then   Range("E" & i).Copy ......

---

Je pensais Qu'en faisant une boucle for avec une variable d'Integer h,
ça marcherait

Code:

---

If Range("B" & i) = b &h Then

---

Mais non :?

Merci d'avance

Un seul conseil, Strifer :
Utilise un tableau dynamique. Tu y gagneras énormément...plutôt que toutes ces variables b1, b2,....,b22 (tiens... un bombardier qui réapparaît !)

Tiens :
Essaye celà et comprends comment utiliser un tableau dans ces cas-là :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command1_Click() Dim b(22) As String For i = 0 To 21 b(i) = i Next For i = 0 To 21 MsgBox b(i) Next End Sub

---

Ok pour le tableau dynamique.

Désolé mais malheureusement les fonctions en VBA sont assez spéciale quand on a jamais fait de Visual Basic et les aides sont pas super super.

Si Je rentre les données des variables sur un tableau comment pourrais je faire pour que la macro aille chercher les données sur un fichier Excel et les mettent sous une variable (dans un tableau)

Sinon je ne vois pas d'autre moyen que de rentrer manuellement les valeurs des variables (en String)

J'ai réussi à régler le problème que j'avais mais maintenant je me pose une autre question.

Comment faire pour sélectionner par exemple :
les cellules :
A2, B2, E2, H2
Puis
A4,B4,E4,h4

En fait j'ai une boucle qui recherche un élément dans les lignes du tableau et dés qu'il le trouve il fait une copie de 4 colonnes de cette ligne.

J'ai essayé :

Code:

---

1 2 3 4 5 6

For i =0 to 150 if range("A" & i).Value= d(h) 'soit h une variable et d un tableau de 22 cases Range("A" & i, "B" & i, "E" & i, "H" & i).Copy .....

---

Citation:

---

J'ai réussi à régler le problème que j'avais mais maintenant je me pose une autre question.

Comment faire pour sélectionner par exemple :
les cellules :
A2, B2, E2, H2
Puis
A4,B4,E4,h4

---

Autre problème = autre sujet... après avoir mis le tag RESOLU au présent.
Merci

Je m'étais que ca éviterais de faire un autre sujet pour une question si courte.
Mais bon c'est vous les chef :D