Suppression des cellules vides d'une colonne

[Nickal]

Bonjour,

J'ai un petit soucis qui me semblait simple mais dont la réponse me parait plus complexe que prévue ; je ne trouve ni dans des formules, ni dans les fonctions.

J'ai un tableau avec du texte dans les lignes de la colonne A, avec certaines lignes vides.
Je voudrais que le texte des cellules non vides se retrouve en colonne B, mais sans les espaces.


Merci d'avance,

Nicolas.

PS : fichier basique en pièce jointe.

 

[Guest]

Re : Suppression des cellules vides d'une colonne

Bonjour,

Tu tries tes données sur la colonne A. Toutes tes lignes avec des vides en A se retrouveront au même endroit et tu pourras les supprimer facilement. Sans macro, ni formule.

A+

 

[Robert]

Re : Suppression des cellules vides d'une colonne

Bonjour Nickal, hasco, bonjour le forum,

Une proposition VBA avec le code ci-dessous :

Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim PLC As Range 'déclare la variable PLC (Plage des Constantes)

Set O = Sheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditiée DL de la colonne 1 (=A) de l'onglet O
Set PL = O.Range("A3:A" & DL) 'définit la plage PL
Set PLC = PL.SpecialCells(xlCellTypeConstants) 'définit la plage PLC des cellules contenant une constante dans la plage PL
PLC.Copy O.Range("B3") 'copie la plage PLC et la colle dans B3
End Sub

 

[Modeste]

Re : Suppression des cellules vides d'une colonne

Bonjour le fil,

... et pour que l'éventail des solutions se complète (mais surtout pour le plaisir de croiser Hasco et Robert ), une fonction matricielle en B3:

=SI(LIGNES($1:1)<=NBVAL($A:$A)-1;INDEX($A$1:$A$20;PETITE.VALEUR(SI($A$3:$A$20<>"";LIGNE($A$3:$A$20));LIGNES($1:1)));"")

Valider avec Ctrl+Shift+Enter, puis recopier vers le bas

 

[Nickal]

Re : Suppression des cellules vides d'une colonne

Merci pour ces lignes de programmations ! Cela fonctionne parfaitement.