Discussion :

[casefayere]

Bonjour à toutes et tous,
Peut-être quelqu'un pouura me donner un tuyau pour accelerer cette procédure :

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
23
24
25
26
27
28
Private Sub Worksheet_Activate()
Dim x As Integer, y As Range, z As Integer, lg As Integer, nblg As Integer
Dim result As Double
'--------------------------------------------------------------------------
lg = Worksheets("saisies").Range("d1001").End(xlUp).Row 'feuille des saises
 
With Worksheets("VENTILATION") 'feuille pour recapitulation
nblg = .Range("a" & Rows.Count).End(xlUp).Row
For x = 2 To nblg
.Range("A" & x, "B" & x).Select
If Selection.MergeCells = False Then 'si la cellule n'est pas fusionnée
    Set y = Worksheets("saisies").Range("e2:e" & lg)
    .Range("B" & x).Select
    For z = 2 To nblg
    result = Application.SumIf(y, .Range("a" & z), Worksheets("saisies").Range("o2:o" & lg))
    .Range("b" & z) = result
    Next z
Else
    Set y = Worksheets("saisies").Range("n2:n" & lg)
    For z = 2 To nblg
    result = Application.SumIf(y, .Range("a" & z), Worksheets("saisies").Range("o2:o" & lg))
    .Range("c" & z) = result
 
    Next z
End If
Next x
End With
End Sub

le programme repasse toutes les cellules en revue de la feuille "ventilation" et donc met du temps
la feuille "ventilation" en copie


Merci de vos réponses

[casefayere]

bonjour ouskel'n'or,

Avec un peu de retard (cause repas), je m'explique :

Si la cellule n'est pas une cellule fusionnée, je demande de faire une addition conditionnelle (la cellule "a" doit correspondre à la cellule "e" de la feuille "saisies") sinon le calcul se fait (pour les cellules fusionnées) en "c" avec les critères de la cellule "n" de la feuille "saisies" (je ne peux pas mettre cette feuille en fichier joint car confidentielle). Ma procédure marche mais malgré que le calcul se fasse instantanément, le programme repasse en revue chaque cellule "b" de la feuille "ventilation" (je ne sais pas pourquoi) et donc perd du temps.

J'espère avoir été plus clair et merci encore

merci de ta réponse

[ouskel'n'or]

Si dans une boucle une condition est remplie et que cette seule condition te satisfait, tu peux sortir de la boucle avec Exit for.
Est-ce de ça dont tu parles ?

PS - Pour ma réponse précédente, j'ai dit une c...e J'ai cru que les deux lignes n'en formaient qu'une

[ouskel'n'or]

Je viens de "re" regarder ce que tu as mis et ma solution serait tout autre
Intro de la formule Sumif dans la colonne .Range("b" & z) et, si besoin est, copie sur place des seules valeurs.
Se résume à :
- Une formule dans une cellule se copie sur une plage de cellules (une seule ligne de code)
- Une copie sur place des valeurs issues de la formule (tient sur deux lignes de code)
Résultat : Pas de boucle, trois lignes de code. Pas de délai d'exécution.
Besoin d'un coup de main pour le faire ?

[casefayere]

RE OUSKEL,

J'ai raccourci un peu mon code et enlevé les IF qui ne sont pas vraiment utiles (si on fait attention nom de rubrique <> nom activité), pour le reste, je n'ai pas tout compris alors si tu me propose un coup de main..... merci d'avance, le code raccourci :

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
Private Sub Worksheet_Activate()
Dim x As Integer, y As Range, z As Integer, lg As Integer, nblg As Integer
'--------------------------------------------------------------------------
lg = Worksheets("saisies").Range("d1001").End(xlUp).Row
With Worksheets("VENTILATION")
nblg = .Range("a" & Rows.Count).End(xlUp).Row
For x = 2 To nblg
    Set y = Worksheets("saisies").Range("n2:n" & lg)
    For z = 2 To nblg
    .Range("c" & z) = Application.SumIf(y, .Range("a" & z), Worksheets("saisies").Range("o2:o" & lg))
    Next z
 
    Set y = Worksheets("saisies").Range("e2:e" & lg)
    For z = 2 To nblg
    .Range("b" & z) = Application.SumIf(y, .Range("a" & z), Worksheets("saisies").Range("o2:o" & lg))
    Next z
 
 
Next x
End With
End Sub

[ouskel'n'or]

Ce que je suggère ? De faire un test dans Excel.
Ecris, dans Excel (non dans VBA) la formule qui va bien dans la cellules "C2" et recopie-la jusqu'en ligne nblg
Tu as en colonne C le résultat que tu désires.
Tu ne veux que les valeurs sans les formules ?
Tu copies ta colonne et tu la colles avec Collage spécial -> Valeurs seules.
Tu as le principe

Si tu veux bien tester.

Le code ?
Pour la copie de la formule, le code de copie enregistré en faisant ne va pas.
Il est avantageusement remplacé par une simple copie de la cellule contenant la formule sur la plage.

Code :

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

Range("C2").copy Range("C3:C" & nblg)

Simplement, comme o2 et lg sont fixes (adresses absolues) remplace Range("o2:o" & lg)) par Range("o$2:o$" & lg)) dans ta formule écrite dans Excel.
Enfin, tu adaptes...