Comment resserrer une colonne sans trier

Bonsoir,

ce qui m'interpelle dans ta demande c'est "et sans passer par la suppression de lignes vides"
s'il s'agit d'un tableau avec des données dans les colonnes suivantes B, C etc
si tu supprimes des cellules en colonne A les données en B et les suivantes ne vont plus correspondre avec celle de la colonne A

Bonjour,

Tu insères une colonne avec 1, 2, 3, etc, tu tries, supprime les vides et re-tries par n°.
Ca prend 30s.
eric

RE,

alors il faut passer par du VBA si tu as quelques connaissances, mais la ligne entière sera masquée

Re,

non soit tu supprimes la cellule et dans ce cas les données qui se trouvent dans la cellule inférieure remonte et prend la place de la cellule supprimée et après les données des colonnes de droite comme de gauche ne correspondrons plus avec les données de la colonne modifiée

soit tu supprimes la ligne

soit tu masques la ligne, ce qui correspond le mieux à ta demande et qui te permettra d'afficher les lignes masquées
le masquage d'une cellule est impossible

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Bonjour

Ce n'est pas tout a fait ce que je cherchais mais enfin ça marche.

Merci a tous .

Re,

un code tout simple à coller dans les propriétés d'un bouton activex pour traiter la colonne A à partir de la deuxième ligne

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
With Cells(i, 1)
.EntireRow.Hidden = .Value = ""
End With
Next i
End Sub

Bonjour
peux être un truc comme ça

Sub TestVide()
Nlig = Range("A" & Rows.Count).End(xlUp).Row
For L = 2 To Nlig
   If Range("A" & L).Value = "" Then
      Deb = L
      For D = Deb To Nlig
         If Range("A" & D).Value <> "" Then
            Range("A" & D).Cut Destination:=Range("A" & L)
            Exit For
         End If
      Next
   End If
Next
End Sub

A+
Maurice