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

JVOS · 24 Mai 2024

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

sylvanu · 24 Mai 2024

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 · 27 Mai 2024

sylvanu à dit:
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

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

JVOS

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

JVOS

XLDnaute Junior

Discussions similaires