Discussion :

[guitch59470]

Bonjour,

Je début en VBA et j'aurai besoin de votre aide j'ai un fichier excel qui importe des données d'un autre fichier excel avec une formule. Suite à ceci j'ai des lignes qui ont des données et d'autre non je souhaiterai supprimer les lignes qui n'ont pas de donnée mais de manière automatique. Pouvez-vous m'aider.

[casefayere]

Bonjour à tou(te)s,
une proposition parmi d'autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub supprimer()
Dim x As Integer, dl As Integer
With Sheets("feuil1")
dl = .Range("a" & .Rows.Count).End(xlUp).Row
For x = dl To 2 Step -1
If .Range("a" & x) = "" Then
.Range("a" & x).EntireRow.Delete
End If
Next x
End With
End Sub

bonne journée

[La Zélie]

Bonjour

En faisant une recherche sur le forum avec les mots:suppression lignes vides j'ai trouvé cette discussion:



http://www.developpez.net/forums/d59...ession-lignes/

[Fvandermeulen]

Salut,
Voici une possibilité de code mais ATTENTION tes formules sont relatives (pas de $) donc si on supprime la ligne ça va 'déconner'
Ne sachant pas comment ces forumles "arrivent" sur la feuille j'ai rien intégrer au code mais on peu imaginer le passage de tes formules relatives en formules absolues dans le code de suppression.
A toi de voir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DeleteLigne()
 
Dim derLigne As Integer
Dim l As Integer
 
derLigne = Cells(Range("a:a").Rows.Count, 1).End(xlUp).Row
 
For l = derLigne To 2 Step -1
        If Cells(l, 1) = "" Then
        Rows(l).Delete
        End If
Next l
 
End Sub

A+

Edit: Et une fois de plus je suis à la bourre