Autres Optimisation de macro

[Muratime]

Bonjour forum,
J'ai deux macros dans mon fichier une qui s'appel "supprimerlignes" et l'autre "rangementfeuille" et je voudrais les optimiser car la première macro met 7 minutes 40 pour faire le job et l'autre 30 secondes ce qui est mieux. Ce qui fait un total de plus de 8 minutes pour ranger 8475 lignes, je pense quelles peuvent faire mieux.
Merci de votre aide

 

[Staple1600]

Re

Alors il faut d'abord ajouter une feuille que tu nommeras RESULTAT
Ensuite tu renommes la feuille où sont tes données en TEST
Puis tu lances la macro Traiter_Feuille
Et ensuite tu vas voir le résultat (je te le donne en mille ), sur la feuille RESULTAT

Sub Traiter_Feuille()
Application.ScreenUpdating = False
supprimer
ranger
End Sub
Private Sub supprimer()
Dim derniereLigne&, i&, vArr, F As Worksheet: Set F = Sheets("TEST")
derniereLigne = F.Range("A" & Rows.Count).End(xlUp).Row
For i = derniereLigne To 1 Step -1
If VBA.Trim(F.Cells(i, 1)) Like "NS" Then
vArr = F.Cells(i, 1).Offset(1).Resize(18).Value2
F.Cells(i, "C").Resize(, 18).Value = Application.Transpose(vArr)
End If
Next
F.Columns("A:B").Delete
F.Rows("1:3").EntireRow.Delete
End Sub
Private Sub ranger()
Sheets("RESULTAT").Range("T2").FormulaR1C1 = "='TEST'!RC[-19]<>"""""
Sheets("TEST").Columns("A:R").AdvancedFilter _
                Action:=xlFilterCopy, CriteriaRange:=Sheets("RESULTAT").Range("T1:T2"), _
                CopyToRange:=Sheets("RESULTAT").Range("A1")
End Sub

PS: j'ai testé le code avant de le publier ici.
Doc test OK et code fonctionnel.

 

[Muratime]

Cela est pas mal ta macro à l'avantage de ne pas ramer, me reste plus qu'a déplacer des colonnes, formater en heure ou simplement sur la feuille 3 mettre des formules pour transposer ce que je garde et faire un truc plus lisible pour moi

 

[Staple1600]

Re

Muratime
Donc le code du message#16 fonctionne ?
Pourquoi tu parles de feuille 3 ?
Mon code n'utilise que deux feuilles: TEST et RESULTAT

[aparté]

car la première macro met 7 minutes 40 pour faire le job et l'autre 30 secondes ce qui est mieux. Ce qui fait un total de plus de 8 minutes pour ranger 8475 lignes,

Personnellement, je n'appelle pas cela "pas mal"
Vu que ma macro s'exécute en moins de 5 secondes sur mon PC

 

[Muratime]

Oui la macro message 16 fonctionne, après quand le dis pas mal c'est top mis je ne comprend pas pourquoi ma macro se met a ramer dès que j'enregistre le fichier en quittant ou alors faut quitter sans enregistrer mais je ne peux pas la lancer deux fois de suite en tous cas merci beaucoup je vais mettre en résolu le reste je vais essayer de me débrouiller

 

[Staple1600]

Re

Regardes ma boucle
Moi je pars de la fin (toi non)

=>ta boucle
For l = 1 To derniereLigne

=>ma boucle
For i = derniereLigne To 1 Step -1

 

[Muratime]

derniereLigne = Range("A" & Rows.Count).End(xlUp).Row

et ceci ça part pas de la fin ?

 

[Staple1600]

Re

Non
ci-dessous deux petites macros pour mieux comprendre
(faire ce test sur une feuille vierge)

Sub test_A()
[A1:A10] = "test"
Dim derlig&, i&
derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To derlig
MsgBox Cells(i, 1).Address
Next
For i = derlig To 1 Step -1
MsgBox Cells(i, 1).Address
Next
End Sub
Sub test_B()
Dim derlig&, i&
derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = derlig To 1 Step -1
MsgBox Cells(i, 1).Address
Next
End Sub

 

[Muratime]

La macro A fait deux fois de 1 a 10 puis de 10 a 1
La macro B est mieux car elle part de la fin de 10 a 1
M'en doutais qu'il y avait une couille dans ma macro quand j'ai omis de mettre le Application.ScreenUpdating = False j'ai vu le truc qui partais du début pour allez ver la fin et la me suis dis s'il va jusque la ligne 1048576 ça va ramer

 

[Staple1600]

Re

Excuse - mauvais copié/collé
La 1ère macro aurait du être

Sub test_A()
[A1:A10] = "test"
Dim derlig&, i&
derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To derlig
MsgBox Cells(i, 1).Address
Next
End Sub

Donc tu vois que ce n'est pas la même boucle.

 

[Muratime]

Comme dirais Arnaud merci pour le petite explite site

 

[Muratime]

oui de toute façon il va traiter les 1048576 ligne si tu pars du début

 

[Staple1600]

Re

Non, le souci est que quand on veut supprimer des lignes il faut toujours partir de la fin
(d'où ce type de boucle)
For i = derlig To 1 Step -1

 

[Muratime]

Bonjour Staple1600, il y a un petit problème je me retrouve avec une colonne décalé, sur le coup j'ai pas vu c'est quand j'ai mis mes mfc que j'ai vu.