Discussion :

[jeandani2012]

bonjour,

j'ai un code qui met plus de 7 minutes à tourner juster pour remplir en boucle une plage de 8000 lignes.
pour accelerer le traitement j'ai cru bon de faire la mise à jour de l'écran qu'à la fin de l'execution à l'aide de la ligne de code suivante

Code :

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

Application.ScreenUpdating = False

mais bon ça dure toujours autant pourtant le code est simple.

comment peut on par ailleurs accelerer le traitement ?
avez vous une idée ?
toute contribution est la bienvenue!
Merci

[evx136]

Bonjour et si tu nous montrais ton code

[jeandani2012]

le voici:

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
Private Sub CommandButton6_Click()
 
 
Dim i As Integer, cel As Range
 
Worksheets("préparation déclaration FUE").Select
 
 
 
Application.ScreenUpdating = False
 
'boucle sur toutes les cellules des colonnes A et B
 
For Each cel In Worksheets("préparation déclaration FUE").Range("A6:B" & Worksheets("préparation déclaration FUE").Range("B" & Worksheets("préparation déclaration FUE").Rows.Count).End(xlUp).Row)
 
    'si la cellule est vide, elle prend la valeur de la cellule du dessus
 
    If cel.Value = "" Then cel.Value = cel.Offset(-1, 0).Value
 
Next cel 'prochaine cellule des colonnes A et B
 
 
 
End Sub

merci d'avance!

[evx136]

bonjour

J'ai essayé ton code dans un module et le temps d'execution est de 4 seconde !!!!!!!!

[Theze]

Bonjour,

Essai de cette façon :

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 CommandButton6_Click()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("préparation déclaration FUE")
 
        'défini la plage de A6 à Bx
        Set Plage = .Range(.Cells(6, 1), .Cells(.Rows.Count, 2).End(xlUp))  'de A6 à Bx
 
    End With
 
    For Each Cel In Plage
 
        'si la cellule est vide, elle prend la valeur de la cellule du dessus
        If Cel.Value = "" Then Cel.Value = Cel.Offset(-1, 0).Value
 
    Next Cel
 
End Sub

Hervé.

[Didier Gonard]

Bonjour,

Quelque-soit le résultat du chrono, les boucles sont chronophages, il est donc inutile de parcourir une plage entière, limite la boucle aux éléments visés :

Code :

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

1
2
3
4
5
6
7
8
9
Sub gogo()
Dim cell As Range
Dim MaPlage As Range
 
'set MaPlage = Ce que tu vises
For Each cell In MaPlage.SpecialCells(xlCellTypeBlanks)
    cell.Value = cell.Offset(-1, 0).Value
Next cell
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier