Discussion :

[iperkut]

Bonjour
Je cherche à optimiser le temps d'exécution d'une boucle.
Mon fichier fait +/- 50 000 lignes et je souhaite tester la valeur d'une cellule dans la ligne, et supprimer la ligne si cette valeur n'est pas valide.

Dans la colonne A je dispose de valeur du genre :
tototata
tototutu
rururoro
popopapa
...
Je ne souhaite garder que les valeurs du style tototata / tototutu

Code :

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

1
2
3
4
 
for each cell in .range(.cells(1,1),.cells(DerniereLigne,1))
if instr(1,cell.value,"toto",1)=0 then rows(cell.row)delete shift:=xlup
next cell

Je teste donc si toto est contenu dans la cellule (avec ou sans majuscule).
Le problème est que cela prend pas mal de temps (1'30 facile)

Y'a t'il d'autres façon de faire ?
Peut être autre que 'instr', je pense à 'like'...
Le faire avec un for ? un while ?

Merci d'avance pour vos idées !

[PPz78]

Bonsoir,

Juste un conseil si tu fais une boucle il faut commencer par la dernière ligne et remonter vers la première ligne.

PPz

[patricktoulon]

bonjour
regarde dans l'aide vba
tu a un debut de macro au sujet de "find" et find next qui est relativement moins long qu'une boucle

[iperkut]

Ok je vais regarder du coté du find next.
Pourquoi partir du bas lors d'une boucle ? C'est plus rapide ?

[iperkut]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With Worksheets(1)
LastLigne = .Range("A65536").End(xlUP).row
With Range(.Cells(1,1), .Cells(LastLigne,1))
    Set c = .Find("toto", lookin:=xlValues)
    If  c Is Nothing Then
        firstAddress = c.Address
        Do
            rows(h.row).Delete shift:=xlUp
            Set c = .FindNext(c)
        Loop While  c Is Nothing And c.Address <> firstAddress
    End If
End With

Cela ne marche pas...
Mais dans le principe l'exécution est plus rapide qu'un for each ?

[Didier Gonard]

Bonjour,

Dans la colonne A je dispose de valeur du genre :
Je ne souhaite garder que les valeurs du style tototata / tototutu

Si ce que tu souhaites conserver sont les chaînes commençant par "toto", tu appliques un filtre auto avec comme condition Commence par : Toto et tu as le résultat très très rapidement.

Le reste n'est qu'une question de code, et si il y plusieurs options, je pense que ça restera de loin la méthode la plus rapide et la plus simple..

cordialement,

Didier

[iperkut]

Vraiment pas bête comme idée... j' n'y avait pas pensé !
par contre une autre question :
exemple :
A1 : tototata
A2 : tototutu
A3 : roro
A4 : momo
A5 : toto

Cela va me sortir A1,A2,et A5 soit 3 lignes
Comment faire pour parcourir ces cellules ensuite ?
Car d'habitude je le fais avec

Code :

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

LastLigne = .range("A65000").end(xlup).row

Sauf qu'ici LastLigne me renvera 5 au lieu de 3 non ?

[mercatog]

Essaies comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
application.screenupdating=false
With Sheets(1)
    .AutoFilterMode = False
    LastLigne = .Cells(Rows.Count, 1).End(xlUp).Row
    With .Range("A1:A" & LastLigne)
        .AutoFilter field:=1, Criteria1:="<>toto*"
        .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
    .AutoFilterMode = False
End With

[patricktoulon]

bonjour mercatog,ormonth et re ipercut
la macro de mercatog est pas mal mais elle fait exactement le contraire de se que tu cherche au départ

c'est justement les toto ,tototutu qu'on veux supprimer et non pas garder que cela

cela dit plus rapide que ça tu meurs hihihi je n'y avais pas penser a "autofilter"

y a t_il un moyen de transformer la condition positive sur l'autofilter en négative tout simplement j'ai essayé mais boum ça bug il est vrai que je ne maîtrise pas beaucoup cette fonction


au plaisir

[patricktoulon]

oupps

si j'écrivais moins vite que je réfléchi j'économiserai des posts

en reprenant l'idée de mercatog et ormonth voila la macro qui efface toute les lignes avec toto

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 eface()
 
 
 
Application.ScreenUpdating = False
With Sheets(1)
    .AutoFilterMode = False
    LastLigne = .Cells(Rows.Count, 1).End(xlUp).Row
    With .Range("A1:A" & LastLigne)
        .AutoFilter field:=1, Criteria1:="=*toto*"
        .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
    .AutoFilterMode = False
End With
End Sub

j'ai simplement modifier le critère 1 avec "*toto*" de façon a qu'il n'y ai pas de récalcitrants et la c'est bien les totos qui sen vont et les titi reste hihihi

je crois que l'on peut remercier mercatog et ormonth pour leur idée tiptop

au plaisir

[iperkut]

Merci Mercatog
Non c'est bien cela que je souhaite faire. (garder les toto)
Ton code marche nikel.