Bonjour,
je n'arrive pas à supprimer des lignes possédant un champ vide.
Mon code importe des colonnes d'un autre classeur et renseigne certaines colonnes à partir d'une boucle. Mon problème est que certaines ligne importées sont vides et je voudrais les supprimer.(
mais mon code ne fait rien
Merci d'avance pour 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
18
19
20
21
22
23 Set FL2 = CL2.Worksheets("Recap-Fides") i = 34 j = 8 Do While nb_lignes_totales <> j - 8 . . . 'supprime les lignes vides Dim iLigne As Integer iLigne = j FL2.Range("A" & j).Select If FL2.Range("A" & j).Value = "" Then FL2.Rows(iLigne).Delete End If i = i + 1 j = j + 1 Loop
Partager