Bonjour,
Voici un fichier, ayant pour base, l'extraction des tarifs d'un client.
Souhaitant mettre en forme, et répertorier par "chapitre", j'ai fait différentes formules.
Mais chaque client a un nombre différent de lignes dans chaque chapitre.
Je souhaiterais donc automatiser la suppression des lignes dont la formule donne "" dans chaque tableau.
J'ai testé cette macro :
Sub supprimerLigneVide()
For lig = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountBlank(Rows(lig)) = Application.Columns.Count Then
Rows(lig).EntireRow.Delete
End If
Next
End Sub
Elle fonctionne si mon fichier est léger mais si je suis sur un client avec beaucoup de lignes de tarif, elle mouline en restant à 0%...
Je vous remercie par avance si vous prenez le temps de me donner un coup de pouce.
Bonne journée,
Céline
Voici un fichier, ayant pour base, l'extraction des tarifs d'un client.
Souhaitant mettre en forme, et répertorier par "chapitre", j'ai fait différentes formules.
Mais chaque client a un nombre différent de lignes dans chaque chapitre.
Je souhaiterais donc automatiser la suppression des lignes dont la formule donne "" dans chaque tableau.
J'ai testé cette macro :
Sub supprimerLigneVide()
For lig = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountBlank(Rows(lig)) = Application.Columns.Count Then
Rows(lig).EntireRow.Delete
End If
Next
End Sub
Elle fonctionne si mon fichier est léger mais si je suis sur un client avec beaucoup de lignes de tarif, elle mouline en restant à 0%...
Je vous remercie par avance si vous prenez le temps de me donner un coup de pouce.
Bonne journée,
Céline