Bonjour,
Je suis débutant en vba et je voulais savoir si quelqu'un pouvais m'aider?
En effet j'ai essayer de réaliser une macro de suppression de ligne.
Malheureusement, ma macro supprime certaine ligne ou la cellule B est vide mais pas toute.
Je suis donc obliger de relancer plusieurs fois la macro pour qu'elle les supprimes entièrement.
Voici ma macro :
Je vous remercie par avance de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Sub supp() Dim fl As Worksheet Sheets("F203170862086_ZADVS02C-89.23505").Select Dim cell As Range For Each cell In Range("B1:B20000") If cell.Value = "" Then cell.EntireRow.Delete Shift:=xlUp End If Next cell End Sub
Partager