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
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 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
Évidemment la commande "CaseMemoire" & j ne fonctionne pas.
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
Je me demandais s'il existait une telle commande
Merci
Partager