supprimer case vide

[bertreng]

bonjour

J'ai supprimé les doublons dans une colonne. Ils ont été remplacé par des cases vides. Comment copier ailleurs cette colonne pour obtenir une liste homogène sans case vides?

merci d'avance

 

[Dan]

Bonjour,

Une solution serait de procéder en utilisant le filtre automatique.

- Sélectionne la cellule dans l'entête de la colonne filtrée
- Menu / Données / Filtre / filtre automatique
- En sélectionnant la flèche, choisis l'option 'Non vides'
- sélectionne les valeurs visibles
- Copier puis coller à l'endroit de destination

Si pb n'hésite pas

 

[Robert]

Bonjour Bertreng, bonjour Dan,

Bertreng, je te propose cette macro à adapter (pour la colonne) qui supprime les cases vides :

Option Explicit 'oblige à déclarer toutes les variabbles

Sub Macro1()
Dim Li As Long 'déclare la variable Li
Dim x As Long 'déclare la variable x

Li = Range('A65536').End(xlUp).Row 'définit la variable Li (à adapter)

For x = Li To 1 Step -1 'boucle inversée sur toutes les cellules éditées de la colonne A
'si la cellule est vide, elle est supprimée
If Cells(x, 1).Value = '' Then Cells(x, 1).Delete Shift:=xlUp
Next x 'prochaine cellule de la colonne A

End Sub