Bonjour

Je chercher a créer un programme qui va lire des cellules et placer l’information dans des variable qui font office de "cases mémoire"

J'aimerais ne pas réécrire le nom des variable une à une dans le programme en les incrémentant

Déclaration des variables
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim CaseMemoire1 as integer
Dim CaseMemoire2 as integer
Dim CaseMemoire3 as integer
Dim CaseMemoire4 as integer
Dim CaseMemoire5 as integer
Dim CaseMemoire6 as integer
Dim CaseMemoire7 as integer
Dim CaseMemoire8 as integer
Dim CaseMemoire9 as integer
Dim CaseMemoire10 as integer
Ce que je veux faire

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
    LettreCol = 70
    Ligne = 3
 
For j = 1 To 10
        Colonne = Chr(LettreCol)
        If Feuil1.Range(Colonne & Ligne) <> "" Then
            "CaseMemoire" & j = Feuil1.Range(Colonne & Ligne)
        j = j + 1
        LettreCol = LettreCol + 1
        End If
Next j
Évidemment la commande "CaseMemoire" & j ne fonctionne pas.
Je me demandais s'il existait une telle commande

Merci