Comment paramétrer une variable ?

Version imprimable

Bonjour,

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

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 :roll: ?
Merci d'avance

Bonjour,

Le plus simple est de faire un tableau

Code:

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

20/06/2007, 12h34
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é ... :king: