formule tri automatique

[phenixsat]

Bonsoir

J'ai besoin de votre aide, ça fait plusieurs jours que je me prend la tete avec;

Est il possible de mettre dans un classeur avec deux feuilles une formule qui permet de suprimer le vide entre les lignes, cad si sur la feuille1 j'ai plusieurs lignes avec des données mais qu'elles ne se suivent pas, peut on mettre une formule pour que sur la feuille2 les lignes vide soient évitées?

ex: feuille1 ligne 1 jean, ligne 2 germain, ligne 4 claude, ligne 28 alain
feuille2 ligne 1 jean, ligne 2 germain, ligne 3 claude, ligne 4 alain


Merci d'avance

 

[sunnyland]

Ebauche de Solution,

Ma formule supprime les lignes vides sur la premiere page. Je ne sais pas si cela suffira. Si tu as des problemes avec la macro n'hesite pas a me contacter.

Sub supprimelignevides()
MsgBox (' Selectionnez la zone pour laquelle vous voulez supprimer les lignes vides')
Dim rangi As Range
Set rangi = ActiveWindow.RangeSelection
For x = rangi.Rows.Count To 1 Step -1
If WorksheetFunction.SumProduct(rangi.Rows(x).EntireRow) = 0 Then
rangi.Rows(x).EntireRow.Delete
End If
Next
End Sub

Bonne Soiree