Discussion :

[awa123]

Bonjour,

J'ai un classeur 'donnees' qui renvoie des données triées dans le classeur 'program'.
Je voudrais ajouter au code du classeur 'donnees' un code qui permet de supprimer la ligne entière, dans le cas où il trouve que la cellule de la colonne A est vide .

Pour cela je pense qu'il faudrait ajouter le code suivant au code du classeur 'donnees':

Code :

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

1
2
3
4
5
6
 
Sub effacer()
For Each c In Sheets("feuil1").Range("A1:A" & Range("A65356").End(xlUp).Row)
If c = "" Then c.EntireRow.Delete
Next c
End Sub

Mais comment l'intégrer au code déjà existant du classeur 'donnees' pour ne pas faire plusieurs exécutions de différents codes???

Merci