Discussion :

[Bernard67]

Bonjour le forum,

J'utilise cette macro pour supprimer des lignes sous 2 conditions. Elle fonctionne mais elle passe ligne par ligne, ce qui parait long (200 000 lignes)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub suppression()
i = 1
Do While Cells(i, 1) <> ""
If Cells(i, 1) = "P" And Cells(i, 4) = "20110405" Then
 
Rows(i).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
i = i + 1
Cells(i, 1).Select
Loop
 
End Sub

Est il possible de définir la date au moyen d'une msgbox (20110405) ce qui eviterait de la rentrer en dur dans le code ?
Y a t il une autre methode pour accélerer le déroulement du code ?

Merci pour l'aide.
Bon A.M.

[ladoo]

Option 1:
En début de programme
Application.ScreenUpdating = False
En fin de programme
Application.ScreenUpdating = true
Option 2:
remplacer le while par un if

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub suppression()
derniereligne = Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
For i=derniereligne to 1 step -1
If cells(i, 1) <> "" then
If Cells(i, 1) = "P" And Cells(i, 4) = "20110405" Then
 
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
end if
next
End Sub

[Bernard67]

Bonjour ladoo,
Merci pour ton aide. Le code est un peu plus rapide.
Est il possible pour la seconde condition, de la définir par un Msgbox (20110405), ce qui eviterait de la rentrer en dur dans le code à chaque suppression de ligne ?

Merci encore

[ladoo]

J'avoue que j'ai un peu du mal à te comprendre le Msgbox... Aurais-tu un exemple stp ?

[bellande]

Bonjour,
Si je peux me permettre, est cela l'idée ?

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 suppression()
Dim DateStr 
DateStr=InputBox("Quelle est la date ?")
i = 1
Do While Cells(i, 1) <> ""
If Cells(i, 1) = "P" And Cells(i, 4) = DateStr Then
 
Rows(i).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
i = i + 1
Cells(i, 1).Select
Loop
 
End Sub

[ladoo]

Je pense qu'a priori ça devrait marcher. Tu as essayé de récupérer la ligne

Code :

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

If Cells(i, 1) = "P" And Cells(i, 4) = DateStr Then

[bellande]

Non, je n'ai pas le fichier pour vérifier si il y a une subtilité dans les formats de cellule.

La variable pourrait éventuellement être typé en cas de soucis

Code :

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

Dim DateStr

as string (si besoin)
Tu nous diras ce que ca te donne

cordialement

[Bernard67]

MERCI ladoo et bellande.

C'est cela que je recherchais par la Msgbox, désolé de m'etre mal exprimé.
Il a fallu rajouter :

Code :

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

Dim DateStr as string

le format est "texte" car le fichier vient d'un CSV.

Tout fonctionne impec.

Merci encore ladoo et bellande et bonne fin d'AM
Cordialement