Microsoft 365 création de boucle et suppression de ligne si une cellule est vide

JVOS

XLDnaute Junior
Bonjour à tous
Je dois transformer chaque ligne d'un tableau en TTC HT TVA (si elle existe)
Pour cela j'ai créée une macro (elle est pas super évidement mais elle fait le job).
Cependant il arrive que j'ai pas de TVA et je voudrais que la ligne soit supprimé
De plus je ne sais pas faire de boucle, car le nombre de lignes est variable à chaque traitement de données.
Je vous au mis un fichier avec des données et une feuille qui donne un exemple du rendu voulu.
Merci beaucoup du temps que vous consacrerez à mon problème
 

Pièces jointes

  • aClasseur1 test.xlsm
    30.5 KB · Affichages: 8

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Jvos,
Sans toucher à votre macro, à la fin de celle ci avant le End Sub ajoutez cette ligne : Call SupLigne
Et ajoutez cette macro, en modifiant le nom de la page concernée :
Code:
Sub SupLigne()
Dim L%: Application.ScreenUpdating = False
With Sheets("exemple de la finalité")    ' A adapter
    For L = .[A10000].End(xlUp).Row To 2 Step -1
        If .Cells(L, "C") = "" Then .Rows(L).Delete Shift:=xlUp
    Next L
End With
End Sub
 

JVOS

XLDnaute Junior
Bonsoir Jvos,
Sans toucher à votre macro, à la fin de celle ci avant le End Sub ajoutez cette ligne : Call SupLigne
Et ajoutez cette macro, en modifiant le nom de la page concernée :
Code:
Sub SupLigne()
Dim L%: Application.ScreenUpdating = False
With Sheets("exemple de la finalité")    ' A adapter
    For L = .[A10000].End(xlUp).Row To 2 Step -1
        If .Cells(L, "C") = "" Then .Rows(L).Delete Shift:=xlUp
    Next L
End With
End Sub
Bonjour
Merci beaucoup pour ton aide
Impeccable la suppression de ligne
 

Discussions similaires

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA