méthode qui alimente une variable tableau

Version imprimable

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:

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

Bonjour.

En gros, cela pourrait ressembler à cela

Code:

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

11/05/2011, 11h02
huître

ben visiblement ca ne fonctionne pas pourtant le code semble fonctionner
mais ca ne m'insere aucune donnée dans le tableau
11/05/2011, 11h18
pgz

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
11/05/2011, 11h56
huître

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
11/05/2011, 13h01
pgz
Hello.

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

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...:koi:

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.:aie:

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

Je crois qu'il veut modifier uniquement les valeurs de la feuille Tableau De Bord. Il faut donc un second tableau correspondant à cette feuille, qui sera modifié.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub compteur1()
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
 On Error GoTo errorhandler
 
For Each sh In ThisWorkbook.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
    Set v1orng = ThisWorkbook.Sheets("TABLEAU DE BORD").Range("A1:AF" & Ligne)
    v1 = v1orng.Value
    For i = 2 To Ligne
        For j = 4 To 27
            For k = 2 To 6
                If v1(k, 3) = sh.Name Then
                    If v1(1, j) = v(i, 32) Then
                        v1(k, j) = v1(k, j) + 1
                    End If
                End If
            Next k
        Next j
    Next i
 
    v1orng.Value = v1
 
Next sh
 
Exit Sub
errorhandler:
MsgBox Error
 
End Sub

11/05/2011, 14h28
pgz

Bonjour DocMarti,

Je crois que tu as mis le doigt dessus!:ccool:

Cela veut dire que la procédure de départ ne fonctionne que si la feuille Tableau de bord est active!

Pas étonnant que je ne la voyais pas marcher.

Bon ap'

PGZ
11/05/2011, 14h36
huître

ah genial ça marche merci

:cry:non en faite j'ai rien dit ça ne marche plus ça me met incompatibilité de type
11/05/2011, 15h34
huître

non ca marche je ne sais pas pourquoi dsl et merci encore
11/05/2011, 17h29
Docmarti

Pourrais-tu être plus précis.
Quelle est l'erreur et à quelle ligne?
Ou quel est le résultat obtenu et le résultat attendu?
15/05/2011, 17h33
huître

non c'est bon ca marche merci^^