Discussion :

[strifer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mais non

Merci d'avance

[jmfmarques]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[strifer]

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)

[strifer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
.....

[jmfmarques]

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

[strifer]

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