Discussion :

[Val2000]

Bonjour,

j'ai un problème avec une boucle, elle marche bien mais est particulièrement lente. Je pense que c'est la syntaxe for each...next.
Je travaille sur un fichier avec 50 onglets et aurais besoin d'un code qui marche vite:

Voici mon essai:

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
Sub SupprCells()
 
Dim vcell As Variant
Application.ScreenUpdating = False
Dim i As Byte
 
For i = 5 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Select
Range(Cells(6, 4), Cells(87, 41)).Select
For Each vcell In Selection
If vcell.HasFormula = False And IsNumeric(vcell) = True Then
vcell.ClearContents
End If
Next
Next
End Sub

Merci de votre aide!

[Fred.dz]

Tu peux ajouter Application.screenupdating=false au début et Application.screenupdating=true. Normalement ça gagne pas mal de temps.

Après je pense que tu peux gagner du temps en définissant une plage et en faisant for each vcell in plage plutôt que de selectionner à chaque fois la plage. Parce que la selection fait perdre du temps d'après mes souvenirs.

[Invité]

En général il faut éviter tout appel à la fonction '.Select' car elle est dans la plupart des cas inutile.

Est-ce que ce code est plus rapide ?

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
Option Explicit
 
Private Sub SupprCells()
Dim rngCell As Range
Dim i As Long
 
    Application.ScreenUpdating = False
 
    For i = 5 To ActiveWorkbook.Sheets.Count
        With ActiveWorkbook.Sheets(i)
            For Each rngCell In .Range(.Cells(6, 4), .Cells(87, 41))
                If rngCell.HasFormula = False And IsNumeric(rngCell) = True Then
                    rngCell.ClearContents
                End If
            Next rngCell
        End With
    Next
 
End Sub

[Ashireon]

hello,

ca devrait accelerer

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
Sub SupprCells()
 
	Dim vcell As Variant
	Application.ScreenUpdating = False
	Dim i As Byte
 
		For i = 5 To ActiveWorkbook.Sheets.Count
			For Each vcell In ActiveWorkbook.Sheets(i).Range(Cells(6, 4), Cells(87, 41))
				If vcell.HasFormula = False And IsNumeric(vcell) = True Then
					vcell.ClearContents
				End If
			Next
		Next
Application.ScreenUpdating = true
End Sub

[Val2000]

Merci pour vos réponses.
La proposition de vcottineau ne change rien, l'ordi plante, celle d'Ashireon blocke sur la ligne 8...
Ce qui est étonnant c'est que, bien que l'ordi n'est pas le plus rapide, il exécute des macros très longues et complexes et se blocke sur ce petit bout de code...

[Ashireon]

Quelle est le message stp

[Val2000]

Erreur 1004, erreur définie par l'application ou par l'objet