Discussion :

[Naoned005]

Bonjour


J'ai fait un tableau en piece jointe dans la feuille 2 tout simple.

Mais le probleme c'est que j'ai trop de ligne blanche avant.

Est ce possible d'avoir un code VBA dans la feuille 2 qui supprime les lignes superflues?


Ci joint mon fichier

Merci beaucoup

Bne journée

[jfontaine]

Bonjour,

Ci dessous une solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim sh As Worksheet
 
'Feuille a traiter
Set sh = ThisWorkbook.Sheets("Feuil2")
 
'vérifie su'il y a des données après la ligne 13 => évite boucle sans fin
If sh.Range("E13").End(xlDown).Row > 13 Then
    'Tant que la cellule E14 est vide
    Do While sh.Range("E14").Value = ""
        'Suppression de la ligne 14
        sh.Rows(14).Delete
    Loop
End If

[Naoned005]

Merci beaucoup. Mais j'ai changé d'architecture de travail. Mais j'ai essayé quand meme ça fonctionne.

Thanks a lot