selction cellules non vide dans une colonne

[hidozo]

Bonjour,

Comment sélectionner des cellules non vides (pas forcément contigues) dans une colonne pour les coller de manière contigue dans une autre colonne en partant de la 1ère cellule vide ?

Cordialement

 

[tototiti2008]

Re : selction cellules non vide dans une colonne

Bonjour hidozo,

Moi je ferais un filtre automatique, je choisirais non vide, je copierais le résultat et le collerais à l'endroit voulu...

 

[hidozo]

Re : selection cellules non vide dans une colonne

Bonjour

j'essaye ça en voulant supprimer les cellules vide de ma colonne afin de remonter toutes les cellules non vide vers le haut de la colonne avant de mettre la liste dans la listbox, mais ça ne marche pas :

Sub RecupFichierTableau()

For i = 1 To 10000
If Cells("z" & i) = "" Then Cells("z" & i).Delete
Next i


Application.ScreenUpdating = False
On Error Resume Next
Dim Tableau() As String
Call RecupNomFichier(chemin, Tableau)
FiltreAlpha
End Sub

 

[hidozo]

Re : selction cellules non vide dans une colonne

Oui, pourquoi pas, mais le faire dans Excel, pas de problème, le coder dans VBA, je ne sais pas faire,

faut que je réfléchissee !!!

lol

A plus

Merci

 

[Cousinhub]

Re : selction cellules non vide dans une colonne

Bonjour,

essaie avec un tri, les cellules vides seront en bas....

 

[Cousinhub]

Re : selction cellules non vide dans une colonne

Re-,

ou si tu ne peux pas trier :

    Range("Z1:Z" & [Z65000].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[hidozo]

Re : selction cellules non vide dans une colonne

Bonjour,

J'ai essayé par le tri, mais j'ai toujours le problèma quand je fais plusieurs tests de suite, il colle les listes de cellules à partir de Z200 voir plus..

J'ai également essayé l'autre solution, mais là il me dit "impossible sur des cellules qui se superposent.

 

[hidozo]

Re : selction cellules non vide dans une colonne

bhbh

ta formule m'efface les lignes, comment faire pour n'effacer que les cellules vides de la colonne z ?

 

[Cousinhub]

Re : selction cellules non vide dans une colonne

Re-,

Tout d'abord, pourquoi effacer des cellules vides?

Je comprends supprimer..

    Range("Z1:Z" & [Z65000].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Delete

 

[hidozo]

Re : selction cellules non vide dans une colonne

re bonjour,

problème résolu !!!!!

J'ai enregistré une macro, je l'ai copié dans la bonne sub et CA FONCTIONNE, Hourra,

Merci à vous

Au plaisir de vous lire

hidozo