Suppression de lignes.

[Icedarts]

Bonsoir à tous,

J'ai un classeur avec plusieurs.
Sur chaque feuille en colonne A j'ai un liste de noms et de numéros (plusieurs milliers de lignes).
Je voudrais supprimer toutes les lignes ou il y a des numéros SAUF la ligne qui précède un nom.
Je vous joins un fichier d'exemple avec à gauche la liste de départ et à droite la liste finale après triage.

Merci d'avance!

 

[JCGL]

Re : Suppression de lignes.

Bonjour à tous,

La fléchette à rater la cible...
Tu as oublié le fichier...

A+ à tous

 

[Icedarts]

Re : Suppression de lignes.

MDR merci JCGL! 😉

 

[JCGL]

Re : Suppression de lignes.

Bonjour à tous,

Tes nombres sont en format Texte.
Je suppose que ton export est ainsi fait.

Difficile pour moi "de tenter de vouloir t'aider"...

Des pointures vont intervenir...

A++, j'ai "école" demain...
A+ à tous

Edition : un essai par formule...

 

[skoobi]

Re : Suppression de lignes.

Bonsoir icedarts,
salut JC, toujours un plaisir 😉,

Voici une proposition qui tient compte du fait que tu as des "milliers" de lignes à traiter:

Option Base 1
Sub test()
Dim Elmnt As Range, Agarder(), X As Long
X = 0
'pour chaque "Elmnt" étant du texte de A1 à la dernière cellule non vide colonne A
For Each Elmnt In Range("A1", [A65536].End(xlUp)).SpecialCells(xlCellTypeConstants, xlTextValues)
  X = X + 2
'on dimensionne "Agarder"
  ReDim Preserve Agarder(1, X)
'on récupère le N°
  Agarder(1, X - 1) = Elmnt.Offset(-1, 0).Value
'on récupère le nom
  Agarder(1, X) = Elmnt.Value
Next
'on détruit la liste sur la feuille
Range("A1", [A65536].End(xlUp)).Delete shift:=xlShiftUp
'on transfert le tableau "Agarder" vers la feuille
Range("A1:A" & UBound(Agarder, 2)) = Application.Transpose(Agarder)
End Sub

Bon test!

 

[JCGL]

Re : Suppression de lignes.

Bonjour à tous,
Salut ami Skoobi 🙂,

J'ai édité avec un essai par formule...
Au plaisir de te croiser ici ou ailleurs Arf...

A+ à tous

 

[skoobi]

Re : Suppression de lignes.

A++, j'ai "école" demain...

Bon bin aller au lit, faut être en forme pour l'interro 😀

 

[JCGL]

Re : Suppression de lignes.

Re,

Oui mais c'est moi qui interroge...
Mais tu as raison :

 If Now ="Dodo JC"

A++ Skoobi
A+ à tous

 

[Icedarts]

Re : Suppression de lignes.

Merci à vous, les 2 solutions fonctionnent très bien!