Suppresion de ligne en VBA

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.

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

Code:

---

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

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/

;)

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:

---

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 :calim2: