VBA - probleme suppression ligne

[invitec078c399]

Bonjour,

J'ai un petit programme qui doit supprimer entièrement les lignes dont la cellule de la colonne 22 est différente de ""003". Lors de son fonctionnement il ne s'arrête jamais et quand je met pause au programme il se retrouve sur la ligne indiquée. Ai-je fais une erreur ?

Sub MRP3()

Application.ScreenUpdating = False
Sheets("COOIS").Select

i = 2

While Cells(i, 2) <> ""

    If Cells(i, 22) <> "003" Then
    
    Cells(i, 4).EntireRow.Delete
    
    i = i - 1           'Le programme reste sur cette ligne
    
    End If

    i = i + 1

Wend

Application.ScreenUpdating = True

End Sub

-----

[invite948b37db]

bonjour
Remarque : il faut indenter le code pour faciliter sa lecture !

Je ne comprends pas bien les effets de "i=i-1" ?
Je remplacerais la condition IF par un second WHILE ce qui permettrait de supprimer ce "i=i-1"
(tant que la cellule de la colonne 22 est différente de "003", on supprime la ligne puis on passe à la ligne suivante)

[invitec078c399]

Le i = i - 1 permet de ne pas sauter de ligne.

Si la ligne 10 est supprimer, la ligne 11 va devenir ligne 10. Et le programme lui passe à la ligne 11 après la suppression de la 10...

J'ai fait les modifications et cela ne change rien.

Sub MRP3()

Application.ScreenUpdating = False
Sheets("COOIS").Select

i = 2

    While Cells(i, 2) <> ""

        While Cells(i, 22) <> "003"
    
            Cells(i, 2).EntireRow.Delete
    
        Wend    'Le programme se trouve a cette étape lorsque je l'arrête

        i = i + 1

    Wend

Application.ScreenUpdating = True

End Sub

[invite948b37db]

Mets "Application.ScreenUpdatin g = False" en remarque et exécute la macro pas à pas (touche F8) afin de voir ce qui se passe.

[A voir en vidéo sur Futura]

[invitec078c399]

Je pense avoir trouvé le problème. Il se trouve qu'il y a des cellules vide à gauche des cellules ou se trouve les valeurs type "003". J'ai mis des valeurs au hasard pour combler les vides et les lignes se retrouves supprimées. Je vais essayer de tourner mon tableau de sorte à combler se vide.
Je ne pensais pas que cela gênerait la fonction qui supprime la ligne entièrement.

Merci pour la méthode du programme pas à pas, je suis novice et je ne la connaissais pas. C'est bien pratique

[invite948b37db]

Je pense avoir trouvé le problème. Il se trouve qu'il y a des cellules vide à gauche des cellules ou se trouve les valeurs type "003". J'ai mis des valeurs au hasard pour combler les vides et les lignes se retrouves supprimées.

Si c'est bien ça, c'est la ligne

Cells(i, 2).EntireRow.Delete

qui est inadaptée. Essaie :

Row(Cells(i, 1)).EntireRow.Delete

[invitec078c399]

Lorsque je fais cette modification le programme ne tourne plus, l'erreur est la suivante :

Compile error :

Sub or Function not defined

Qu'est-ce qui ne va pas ?

Merci

[invite948b37db]

Quelle modification ?

[invitec078c399]

Celle-ci :

Row(Cells(i, 2)).EntireRow.Delete

[invite948b37db]

je me suis mélangé les pinceaux. C'est :

Rows(i).EntireRow.Delete

[invitec078c399]

Merci cherbe, le programme fonctionne désormais. Néanmoins il est extrêmement long à s'exécuter. Sauriez vous comment gagner du temps ? Il lui faut bien 3-4 min pour arriver à la ligne 1000 et j'en ai environ 10X plus

[invite948b37db]

même avec Application.ScreenUpdating = False ?

[invitec078c399]

Oui hélas !

[invite948b37db]

remet ici le code complet mais je doute pouvoir améliorer sensiblement les choses !

[invitec078c399]

Voici :

Sub MRP3()

Application.ScreenUpdating = False
Sheets("COOIS").Select

     i = 2

     While Cells(i, 2) <> ""

          While Cells(i, 14) <> "003"
    
              Cells(i, 2).EntireRow.Delete
    
          Wend

         i = i + 1

     Wend

Application.ScreenUpdating = True

End Sub

[invite948b37db]

Voici :

Sub MRP3()
Application.ScreenUpdating = False
Sheets("COOIS").Select
     i = 2

     While Cells(i, 2) <> ""
          While Cells(i, 14) <> "003"  
              Cells(i, 2).EntireRow.Delete   
          Wend
         i = i + 1
     Wend
Application.ScreenUpdating = True
End Sub

Je ne comprends pas pourquoi un code aussi compact est aussi long à s'exécuter sans mise à jour de l'écran ? Ton PC est lent ?
Une remarque : tu as gardé Cells(i, 2).EntireRow.Delete au lieu de Rows(i).EntireRow.Delete.
Pourquoi ?

[invite948b37db]

Essaie de commencer par la dernière ligne :

Sub MRP3()
    Application.ScreenUpdating = False
    i = Range("A1048576").End(xlUp).Row
    While Cells(i, 2) <> "" and i >=2
          While Cells(i, 14) <> "003"   
              Rows(i).EntireRow.Delete  
          Wend
         i = i - 1
    Wend
Application.ScreenUpdating = True
End Sub

[invitec078c399]

J'ai essayé de le laisser tourner jusqu'au bout pour voir si tout allait bien. Je l'ai laissé une heure et le programme tournait toujours. J'ai vérifié, il a bien joué son rôle en suppriment tout ce qui était différent de "003". Il doit y avoir une boucle infini quelque part à cause de la suppression de ligne mais je n'arrive pas à comprendre où elle se trouve.
Je vais essayer de commencer par la dernière ligne

[invited8344905]

Bonjour,

Je ne sais pas si tu as des calculs automatique dans ton tableau. C'était le cas pour un de mes projet, je te conseille de mettre cette ligne de code:

Application.Calculation = xlCalculationManual

Après ton:

Application.ScreenUpdating = False

Ça permet de ne pas faire les calcus automatiquement le temps que ta macro tourne.

A la fin de ton programme ajoute la ligne suivante pour réactiver les calculs automatiques:

Application.Calculation = xlCalculationAutomatic

Avant ou après ton:

Application.ScreenUpdating = True

Cordialement,

[invitec078c399]

Bonjour matthieu2,

Suivant vos conseilles à tout les deux il y a du bien ! Le code s'exécute très rapidement et presque correctement. Dernier petit problème. Lorsqu'il a supprimé toutes les lignes nécessaires et arrive à la ligne 2 il se met en erreur sur la ligne :

While Cells(i, 2) <> "" And i >= 2

De plus lorsque que je relance le programme aussitôt (donc aucune ligne a supprimer) il s'exécute jusqu'à s'arrêter tout seul sans problème... Savez vous pourquoi ? :

Sub MRP3()
    
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Sheets("COOIS").Select
    
    i = Range("A1048576").End(xlUp).Row
    While Cells(i, 2) <> "" And i >= 2
          While Cells(i, 14) <> "003" And i >= 2
              Rows(i).EntireRow.Delete
              i = i - 1
          Wend
         i = i - 1
    Wend

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Merci

[invitec078c399]

J'ai trouvé ! compte tenu des deux

i = i - 1

qui se suivent, dans certaines conditions i peut être égale a 1. Ce qui plante le programme compte tenu de la première boucle While.

Voici le programme fonctionnel :

Sub MRP3()
    
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Sheets("COOIS").Select
    
    i = Range("A1048576").End(xlUp).Row
    While Cells(i, 2) <> "" And i >= 2

          While Cells(i, 14) <> "003" And i >= 2
              Rows(i).EntireRow.Delete
              i = i - 1
          Wend

         If i > 1 Then
         i = i - 1
         End If

    Wend

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Merci Cherbe et Matthieu2

[invite948b37db]

problème déjà signalé :

While Cells(i, 14).Value <> "003" And i >= 2

D'autre part, il semble que :

Do While test
   instructions
loop

Soit préférable à :

while test
  instructions
wend

mais je n'ai pas compris pourquoi ?

[invitec078c399]

J'ai effectué les retouches que vous me conseillez cherbe.

Je vais vous expliquer le problème dans le programme. Voici le code qui posais problème, plaçons nous dans le cas où la ligne 2 est à supprimer :

While Cells(i, 2) <> "" And i >= 2                         
          While Cells(i, 14) <> "003" And i >= 2        
              Rows(i).EntireRow.Delete                        
              i = i - 1                                                 'Si dans cette boucle i = 2 en entrée i passe à 1 en sortie ce qui fait sortir de cette boucle While
          Wend                                                        
         i = i - 1                                                       'Ensuite à cette ligne, i passe de 1 à 0, ce qui engendre une erreur 
    Wend

Le fait d'ajouter une boucle If empêche donc ce problème.

[inviteca7090fa]

Bonsoir ou Bonjour suivant l'heure,
Le souci à régler est qu'effectivement la suppression de lignes modifie le numéro d'ordre des suivantes.
Dans cet exemple, j'ai une Listbox qui énumère les lignes à supprimer suivant des critères en vrac.
J'ai donc, lors de la collecte, récupéré le n° de ligne initial (Ici la deuxième colonne de la ListBox)
Ma variable "RECUL" me permet d'avoir une constante ajustant le tir.
Amicalement, si cela peut servir,

For i = 0 To Me.ListBox1.ListCount - 1
 NO_LIGNE = Me.ListBox1.List(i, 1) + RECUL
ActiveSheet.Cells(NO_LIGNE, 1).EntireRow.Delete 'Mise à jour de la feuille 
RECUL = RECUL - 1 ' Ceci rectifie le nouveau numéro de ligne
Next i

P.S. A noter que cela est adaptable aisément à une boucle faite directement sur une feuille

[invite948b37db]

Si tu commençais par la fin de la feuille, tu n'aurais pas de changement de numéro des lignes à supprimer.

[inviteca7090fa]

Amusant! Je n'y avais pas pensé!
N'utilisant quasiment jamais "While/Wend", je vais devoir regarder de plus près.
Et aussi comprendre la présence du "i = i -1" dans ton code