macro qui supprime les linges à condtion....

[tapha20]

Bonjour à tous

je cherche une macro qui supprime les ligne de la page excel (fihcier joint) à condition que dans la colone A il n y a plus de numéro d'affaire.
J'utilise cette macro mais elle ne fonctionne pas



For i = 1 To Sheets("DSS").Range("F1").End(xlDown).Row
If Sheets("DSS").Range("A" & i).Value = "0" Then
Sheets("DSS").Range("A" & i & ":F65536").Delete
Sheets("DSS").Range("B" & i & ":F65536").Delete
Sheets("DSS").Range("C" & i & ":F65536").Delete
Sheets("DSS").Range("D" & i & ":F65536").Delete
End If
Next


Merci de votre aide,

le projet touche à sa fin..............

cordialement

 

[GIBI]

Re : macro qui supprime les linges à condtion....

Bonjour,

voici une macro qui boucle de la fin du tableau et supprime toutes les lignes avec la valeur 0 en colonne 1 (ou A)

Sub SupLigne()

For i = Sheets("DSS").Range("A65536").End(xlUp).Row To 2 Step -1
  If Sheets("DSS").Cells(i, 1).Value = "0" Then
     Sheets("DSS").Rows(i).Delete
 
  End If
Next

End Sub

 

[tapha20]

Re : macro qui supprime les linges à condtion....

merci pour ta macro


et si à la place de "0", je mettai "", cad un vide c pour un autre fichier la macro sera bonne aussi?????

encore une chose, cette macro efface le contenu des ligne ou supprime aussi les lignes????


Cordialement

 

[tapha20]

Re : macro qui supprime les linges à condtion....

re bjr

c pour GIBI

ta macro met énormement de temps pour s'exécuter, c pas pratique


Cordialement

 

[GIBI]

Re : macro qui supprime les linges à condtion....

Bonjour tapha20,

Pour répondre à tes questions :

- tu peux tester la valeur que tu veux, donc "" si la cellule est vide
- la propriété Delet supprime la ligne
- Pour la partie performance, dans le forum nous répondons aux question posées de manière simple car souvent les intervenants sont novices (voire très novices) et nous ne voulons pas les noyer sous l'information.

pour les performance, dans notre exemple il est évidents qu'il faut travailler sans mise à jour de l'écran et le résultat est immédiat :

Application.ScreenUpdating = False

For i = Sheets("DSS").Range("a65536").End(xlUp).Row To 2 Step -1
If Sheets("DSS").Cells(i, 1).Value = "0" Then
   Sheets("DSS").Rows(i).Delete
 
End If
Next

Application.ScreenUpdating = True

 

[tapha20]

Re : macro qui supprime les linges à condtion....

merci bien pour tes réponse


cordialement