méthode qui alimente une variable tableau

**huître** · 11/05/2011, 11h17

bonjours j'ai un crée un code vba qui compte des valeurs et les reclasse dans un tableau

le code est le suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub compteur()
Dim sh As Worksheet
    Dim Ligne As Long
    For Each sh In Worksheets(Array("AAR35", "AAR", "RST", "PCH", "EXP DIF"))
        Ligne = sh.Range("ae" & sh.Rows.Count).End(xlUp).Row
    For i = 2 To Ligne
    For j = 4 To 27
    For k = 2 To 6
    If Cells(k, 3) = sh.Name Then
        If Cells(1, j) = sh.Cells(i, 32) Then
        Cells(k, j) = Cells(k, j) + 1
        End If
    End If
    Next k
    Next j
    Next i
    Next sh
End Sub

le soucis c'est que la durée du traitement est relativement longue donc je voudrais savoir s' il existe un méthode pour aller plus vite
j'ai entendu parler d'un methode qui alimente une variable tableau mais je ne vois pas comment faire

**pgz** · 11/05/2011, 11h54

Bonjour.

En gros, cela pourrait ressembler à cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub compteur()
Dim sh As Excel.Worksheet, orng As Excel.Range, v As Variant
Dim Ligne As Long, i As Long, j As Integer, k As Integer
 
For Each sh In Worksheets(Array("AAR35", "AAR", "RST", "PCH", "EXP DIF"))
    Ligne = sh.Range("ae" & sh.Rows.Count).End(xlUp).Row
    Set orng = sh.Range("A1:AF" & Ligne)
    v = orng.Value
    For i = 2 To Ligne
        For j = 4 To 27
            For k = 2 To 6
                If v(k, 3) = sh.Name Then
                    If v(1, j) = v(i, 32) Then
                        v(k, j) = v(k, j) + 1
                    End If
                End If
            Next k
        Next j
    Next i
    orng.Value = v
Next sh
End Sub

Fait attention à l'indentation du code!

PGZ

**huître** · 11/05/2011, 12h02

ben visiblement ca ne fonctionne pas pourtant le code semble fonctionner
mais ca ne m'insere aucune donnée dans le tableau

**pgz** · 11/05/2011, 12h18

Re,

ET le code que tu as donné fonctionnait?
Tu as testé ce que je t'ai envoyé texto ou tu as adapté?

Tu peux mettre une feuille renseignée et dire ce qu'on doit obtenir?

PGZ

**huître** · 11/05/2011, 12h56

ben à la rigueur je vais t'envoyé le fichier tu comprendras mieux

donc tu trouveras la procédure compteur dans le module 5 qui va alimenter le premier tableau dans tableau de bord

donc je viens de tester mon programme il marche correctement

mais comme il est lourd j'ai supprimer des pages pour pouvoir le joindre

et tu constateras que le temps de chargement est relativement lent

**pgz** · 11/05/2011, 14h01

Hello.

Je ne vois pas ton code marcher. D'ailleurs ton test

Code :

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

1
2
For k = 2 To 6
    If Cells(k, 3) = sh.Name Then

regarde en colonne C sur les lignes 2 à 6 si on trouve le nom de la feuille. Or, en colonne C, il n'y a que des valeurs numériques...

Avec j = 4 à 27 et k = 2 à 6, Cells(k,j) balaie les cellules de la plage D2:AA26

J'efface le contenu des cellules D2:H5 et je lance ton code : les cellules restent vides.

Mais bon, si tu trouves que ton code marche, c'est très simple de l'adapter à l'utilisation d'une var tableau.

Un peu de lecture, par exemple : Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

Cordialement,

PGZ