Discussion :

[isrdum]

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

[ARTURO83]

Bonjour,

Pour mémoriser toutes les valeurs comprises dans le tableau (de ligne 1 à 3, de colonne 1 à 70)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim i As Long, j As Long
    Dim Lig As Long, Col As Long
    Col = 70
    Lig = 3
    ReDim CaseMemoire(Lig, Col) As String
    For i = 1 To Lig
        For j = 1 To Col
            If Feuil1.Cells(i, j) <> "" Then
                CaseMemoire(i, j) = Feuil1.Cells(i, j)
            End If
        Next j
    Next i
End Sub

Cdlt

[isrdum]

Merci Arturo

Petite question, par la suite, si je veux traiter l'information mémorisée, comment est-ce que je dois procéder?
Supposons que j'ai mémorisé quelque choses qui était dans la cellule A1 et que je veux considérer cette donnée est ce que je fais?

Code :

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

if CaseMemoire(1,1) = 8 then

Merci encore

[ARTURO83]

Bonjour

Supposons que j'ai mémorisé quelque choses qui était dans la cellule A1 et que je veux considérer cette donnée est ce que je fais?
if CaseMemoire(1,1) = 8 then

Oui, ou pour passer en revue toutes les variables enregistrées, il suffit de les rappeler tour à tour en répétant la boucle, exemple:

Code :

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

1
2
3
4
5
6
    For i = 1 To Liges 
            If Feuil1.Cells(i, j) <> "" Then
                Memoire=CaseMemoire(i, j) 
            End If
        Next j
    Next i

Cdlt