Discussion :

[Bernard67]

Bonjour le forum,

est il possible le temps d'exécution d'une macro qui fait 4 opérations sur une feuille excel ?
Tout se passe sur la colonne A
dans l'ordre :
1-Supprime les espaces en colonne A
2-Supprime les lignes qui contiennent le mot "CLIENT" en colonne A
3-Supprime les lignes dont la cellule de la colonne A est vide
4-Classe dans l'ordre croissant les données par rapport à la colonne A

Voici le code :

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
Sub tri_click()
 
Dim i As Long
Dim a As Variant
For Each a In Range("A2:A65536"): a.Value = Trim(a.Value): Next
 
For i = 65536 To 2 Step -1
If Cells(i, 1) = "CLIENT" Then Rows(i).Delete
If Cells(i, 1) = "" Then Rows(i).Delete
Next
 
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
Range("A2").Select
 
 
End Sub

Merci pour l'aide.

[valou94250]

Bonjour,
Je n'ai pas bien saisi ce que tu veux faire mais si tu désactive l'actualisation de l'affichage tu gagneras du temps.

Pour celà tu suis l'exemple:

Code :

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

1
2
3
4
5
6
7
8
9
Sub exemple()
 
    Application.ScreenUpdating = False
 
    'Ton Code
 
    Application.ScreenUpdating = True 
 
End Sub

Si tu veux modifier ton code, quelqu'un d'autre t’aiguillera mieux que moi!

[Bernard67]

Bonjour valou94250
Je te remercie pour ta solution mais elle ne regle pas mon probleme.
Bonne AM