Problème code VBA

[pierrof]

Bonjour

J'ai un code VBA ou je ne comprends pas mon erreur, je souhaite supprimer des lignes en fonction de la valeur d'une cellule je vous laisse un bout de code:


'effacer les lignes dont la quantité d'heure=0 + les services ce code fonctionne
For m = 1 To Range("B10000").End(xlUp).Row
If Cells(m, 9).Value = "0" Then
Cells(m, 1).EntireRow.Delete
m = m - 1
End If
If Cells(m, 6).Value = "M" Then
Cells(m, 1).EntireRow.Delete
m = m - 1
End If
If Cells(m, 6).Value = "G" Then
Cells(m, 1).EntireRow.Delete
m = m - 1
End If
If Cells(m, 6).Value = "GA" Then
Cells(m, 1).EntireRow.Delete
m = m - 1
End If
If Cells(m, 6).Value = "GAR" Then
Cells(m, 1).EntireRow.Delete
m = m - 1
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Cells(m, 13).Value <> "VALID" Then 'ce code bloque je ne comprend pas
Cells(m, 1).EntireRow.Delete
m = m - 1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''

Merci de votre aide

 

[tototiti2008]

Re : Problème code VBA

Bonjour Pierrof,

Prend le temps de nous expliquer précisément dans quel cas il doit supprimer la ligne et on pourra t'aider

 

[pierrof]

Re : Problème code VBA

Bonjour tototiti
Ce code doit supprimer la ligne si la valeur des cellule de la colonne 13 est differentes de VALID
If Cells(m, 13).Value <> "VALID" Then 'ce code bloque je ne comprend pas
Cells(m, 1).EntireRow.Delete
m = m - 1
End If

Les autres code fonctionnent correctement.

Merci de ton aide
Next

 

[pierrejean]

Re : Problème code VBA

Bonjour pierrof
Salut tototiti

A mon avis ,on doit arriver à m-1=0 des le debut de la macro

 

[herve62]

Re : Problème code VBA

Bonjour , Slt les barba....
J'ai rencontré 2 Pb :
j'ai mis des valeurs au pif , et selon les cas on peut avoir :
1 Comme dit PJ on arrive a 0
2 je suis rentré dans une boucle Infernale !!!!!!!!! : il me reste 2 lignes avec VALID en 13
et comme sa variable de boucle cherche le Nb de lignes on reste à 3 qui est vierge donc cherche a supprimer et comme ca jusque ........???????

j'ai mis row -1 et supprimé tous les m=m-1 , ca marche

 

[pierrof]

Re : Problème code VBA

Bonjour PierreJean et Hervé

Merci de votre aide.

Hervé peux tu me préciser ta manip "j'ai mis row -1 et supprimé tous les m=m-1"
Où tu as mis ton row-1?

Merci

 

[pierrejean]

Re : Problème code VBA

Re

Pour eviter ce genre de souci il est preferable d'opter pour

For m = Range("B10000").End(xlUp).Row to 1 step -1
.....

et plus generalement poster un petit fichier exemple !!!!

 

[herve62]

Re : Problème code VBA

Le row -1 n'était pas le + important : Range("B10000").End(xlUp).Row -1
Cette instruction te calcule deja le Nbre de lignes restantes a traiter ( puisque tu en supprimes) pour ta boucle alors pourquoi encore faire m=m-1 , c'était là le HIC !!!

 

[pierrof]

Re : Problème code VBA

Merci à tout les 2 de vos explications
ça fonctionne bcp mieux.