Discussion :

[peaceandloveman01]

Bonjour,

Dans le cadre d'un projet, j'aurais besoin de faire une boucle sur un ensemble de variable.
voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim i, iligne, icolonne As Integer
Dim mem1, mem2 As String 'etc jusq'à mem 16

i = 1
For iligne = 2 To 346
    For icolonne = 3 To 20
        If Worksheets("Angst & Pfister").Cells(iligne, icolonne) <> "" Then
            mem& i = Worksheets("Angst & Pfister").Cells(iligne, icolonne)
            i = i + 1
        End If
    Next icolonne
Next iligne

en gros je voudrais que pour chaque colonne corresponde une variable mem mais je ne sais pas comment faire...

Pourriez-vous m'aider ?
Merci d'avance

[tonton fred]

Bonjour,

Le plus simple est de faire un tableau

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer, iligne As Integer, icolonne As Integer
Dim mem(1 to 16) As String
 
i = 1
For iligne = 2 To 346
For icolonne = 3 To 20
If Worksheets("Angst & Pfister").Cells(iligne, icolonne) <> "" Then
mem(i) = Worksheets("Angst & Pfister").Cells(iligne, icolonne).value
i = i + 1
End If
Next icolonne
Next iligne

[peaceandloveman01]

Super !!!

Ca fait longtemps que je cherchais une astuce de ce genre... Je la connaissais sous java mais je ne savais pas que ça fonctionnait sous VBA !!!

Merci pour tout. Et quelle rapidité ...