Suppression de ligne "vide" dans un tableau

[nahtalie]

Bonjour,

Je cherche une astuce pour retirer des lignes "vides" dans un tableau Excel.

Comment faire ?

D'avance merci,
nat🙂

 

[nahtalie]

Re : Suppression de ligne "vide" dans un tableau

Ok merci pour ces infos.

Catrice est ce que tu as 5 mm pour regarder au niveau du détail ? stp ?


++
nathalie

 

[Catrice]

Re : Suppression de ligne "vide" dans un tableau

Bonjour à tous,

en effet Pascal, j'avais intégré la limite de Cjoint vis à vis du Forum.
C'est pour cela que j'avais posté un fichier light qui normalement doit suffire à la compréhension du probleme.
Mais je ne suis pas sur que le .zip soit tres "anonymisé".

@nahtalie
Je regarde ta question asap.
Ou quelqu'un va peut etre y jeter un oeil

 

[Catrice]

Re : Suppression de ligne "vide" dans un tableau

Re,

voici le code complet à copier coller dans la macro.
Ou en bleu les lignes à rajouter/modifier :

Sub Test()
Sheets("Modif").Range("A1").CurrentRegion.Offset(1, 0).Clear
Set MaZone1 = Sheets("Fichier de départ").Range("C18:" & Sheets("Fichier de départ").Range("C65536").End(xlUp).Address)
Var = Application.CountA(MaZone1)
j = 0
For Each X In MaZone1
Application.StatusBar = "Traitement : " & Format(j / Var, "0%")
If X <> "" Then
For i = 0 To Sheets("Fichier de départ").Range(X.Offset(0, 15), X.Offset(0, 15).End(xlToRight)).Offset(1, 0).Columns.Count - 1
With Sheets("Modif").Range("A65536").End(xlUp).Offset(1, 0)
.Value = X.Offset(0, 1) 'N° Client
.Offset(0, 1) = X.Offset(0, -1) 'L'assuré
.Offset(0, 2) = Year(X.Offset(0, 4)) 'Année début
.Offset(0, 3) = X 'Cédante
.Offset(0, 5) = X.Offset(0, 2) 'Type
.Offset(0, 6) = Year(X.Offset(0, 4)) + i 'Année arreté
.Offset(0, 8) = X.Offset(-1, 15 + i) 'Paid
.Offset(0, 9) = X.Offset(0, 15 + i) 'Outstanding
.Offset(0, 10) = X.Offset(1, 15 + i) 'Incurred
End With
Next
j = j + 1
End If
Next
Application.StatusBar = False
End Sub

 

[nahtalie]

Re : Suppression de ligne "vide" dans un tableau

Whouaaaaaahhh du tonnerre!

Merci 1000 fois!
fo que tu m'envoies ta facture, ça me gêne de te faire bosser à ma place!

Tu m'expliques en gros le principe de ta macro ? (c'est incroyable en quelques lignes tu me torches ça, c'est dingueee!

++
nat

 

[Catrice]

Re : Suppression de ligne "vide" dans un tableau

Re,

J'ai mis une version un peu commentée dans Test3.zip.