XL 2019 décalage cellule si vide

[gg13]

Bonjour,
Je voudrais faire un tri dans une colonne (celle de gauche) en supprimant toutes les cellule contenant "* " et en décalant vers le haut pour avoir
une suite continue sans "trou" comme ci dessous à droite.
Il est possible de faire une boucle sur l'ensemble des cellules mais il doit exister une formule plus rapide et efficace mais je ne la connais pas.
Merci de votre aide si vous connaissez la solution.
GG13

A1	A1
A2	A2
*	A4
A4	A6
*	A7
A6	A8
A7	A9
A8	A13
A9	A14
*	A15
*	A19
*	A20
A13
A14
A15
*
*
*
A19
A20

 

[vgendron]

Bonjour
avec un fichier c'est mieux qu'une image.

sinon, Filtre + tri

 

[gg13]

vgendron merci
j'ai utilisé la méthode du tri comme tu me l'indique.
C'est assez rapide en l'intégrant dans une macro.
Bonne journée
GG13

 

[mapomme]

Bonjour @gg13 🙂, @vgendron 😉,

Une méthode très rapide qui ne trie pas les éléments.
Un exemple dans le classeur joint (20 000 lignes). Cliquez sur le bouton Hop!
Le code est dans Module1:

Sub Asterisque()
Dim i&, t, n&
   With Sheets("Feuil1")
      i = .UsedRange.Row + .UsedRange.Rows.Count: t = Range("a1").Resize(i)
      For i = 1 To UBound(t)
         If t(i, 1) <> "" And t(i, 1) <> "*" Then n = n + 1: t(n, 1) = t(i, 1)
      Next i
      .Range("a1").EntireColumn.ClearContents
      If n > 0 Then .Range("a1").Resize(n) = t
   End With
End Sub

 

[gg13]

mapomme MERCI
mais je ne comprends rien a cette formule, je me demande où vous trouvez toutes ces infos.
Est-ce qu'il existe sur internet un site qui explique toutes ces formules ???
gg13