suppression de ligne vide en VBA

[clmntpetit]

Bonjour,
Je cherche à supprimer des lignes vides dans un tableau.
Je ne suis pas un expert en VBA donc je ne connait pas le code pour supprimer en fonction d'une condition.
Je vous joint un fichier tests.
merci

 

[Pierrot93]

Re : suppression de ligne vide en VBA

Bonjour,

regarde peut être ceci, comme aucune explication sur le post et dans le fichier...

Option Explicit
Sub test()
Dim i As Long
For i = Range("D65536").End(xlUp).Row To 10 Step -1
    If IsEmpty(Cells(i, 5).Value) Then Rows(i).Delete
Next i
End Sub

bonne journée
@+

 

[clmntpetit]

Re : suppression de ligne vide en VBA

merci ca marche nickel.
maintenant j'aimerais supprimer les colones vides.
je joint un fichier ou j'ai mis en rouge ce qu'il y a à supprimer.
En gros le personnel est regroupé en différent poste de travail et chacun à ses propres compétence.
je veut donc juste voir quelle sont les compétences par par poste de travail
Merci

 

[Pierrot93]

Re : suppression de ligne vide en VBA

Re,

peut être ceci :

Option Explicit
Sub test()
Dim i As Long
For i = Range("IV").End(xlToLeft).Column To 1 Step -1
    If Application.CountA(Cells(2, i).Resize(Cells(65536, 1).End(xlUp).Row - 1)) = 0 Then Columns(i).Delete
Next i
End Sub

 

[clmntpetit]

Re : suppression de ligne vide en VBA

C'est exactement ce que je voulais.
Merci pour cette réponse aussi rapide

 

[clmntpetit]

Re : suppression de ligne vide en VBA

Re,
j'ai modifié un peu la mise en page de ma feuille et du coup la macro ne fonctionne plus.
Je n'ai pas réussi à modifier la macro pour la faire fonctionner sur mon modèle.
J'ai joint le fichier avec la macro.
Merci

 

[Pierrot93]

Re : suppression de ligne vide en VBA

Bonjour,

modifie comme suit :

Dim i As Long
For i = Range("IV4").End(xlToLeft).Column To 1 Step -1
    If Application.CountA(Cells(5, i).Resize(Cells(65536, 1).End(xlUp).Row - 4)) = 0 Then Columns(i).Delete
Next i

bonne journée
@+

 

[clmntpetit]

Re : suppression de ligne vide en VBA

ok nickel.
Merci beaucoup.