Effacer les cellules à gauche de cellules vides

[Lamoriciere]

Bonjour le forum,

Y-a-t-il moyen d'effacer des cellules se situant à gauche de cellules vides, au moyen de formule ou de VBA?
Merci

 

[michel_m]

bonjour,

par VBA

If IsEmpty(ActiveCell) Then
ActiveCell.Offset(0, -1) = ''
End If

Michel

 

[andré]

Salut à vous,

Est-ce que c'est une question ZOP ?

La réponse est simple, il suffit de supprimer la feuille !

Suivez mon raisonnement : si j'efface la cellule située à gauche d'une cellule vide, elle devient vide à son tour, donc j'efface aussi la cellule qui se trouve à sa gauche, qui elle devient aussi vide, ..., pour finir j'efface toute la ligne.

Et comme il m'étonnerait que les 256ièmes cellules des lignes soient non vides, tant qu'on y est, effaçons toute la feuille !

Et puisque cette feuille est vide, elle ne sert plus à rien, alors tant la supprimer.

Donc la solution est simple : supprimer la feuille.

Là-dessus il commence à faire soif.

Â+

 

[Lamoriciere]

Réponse à André,

Je m'explique, les données des colonnes AA et AB sont utilisées dans une ListBox mais à partir d'une certaine ligne la colonne AB est vide.
Mais les données de AA apparaissent dans la ListBox. C'est donc pour éviter cela que je désire effacer les cellules de gauche.
Maintenant s'il existe un moyen de faire autrement, je suis preneur.

Merci

 

[andré]

Salut,

J'espère bien que tu as reçu ma réponse au deuxième degré !
Simplement pour t'expliquer que ta question n'était pas assez détaillée.

En colonne A, les données sont-elles des constantes ou obtenues par formule ?

Â+

 

[Lamoriciere]

Rebonjour,

Ce sont des constantes.
A+

 

[Bernard_XLD]

Bonjour Lamoricière, Michel_M, andré

C'est une listbox sur feuille ou sur userform ?
la solution la plus adaptée serait de définir la plage de référence de la listbox automatiquement sans effacer les cellules.

A+

 

[ChTi160]

Salut Lamoriciere
bonjour le Fil
bonjour le Forum

pour aller dans le sens de yeahou

un fichier demo

tu nous tiens au courant

A ce Soir

Bonne Journée [file name=test_1.zip size=8760]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_1.zip[/file]

 

[Lamoriciere]

Bonjour,
Merci de vous intéresser à mon problème.
J'ai trouvé une macro que voici:
Sub vide4()


Range('B1:B50').Select
For Each vCellule In Selection
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
If IsEmpty(ActiveCell) Then
ActiveCell.Offset(0, -1) = ''
End If
Next


End Sub
Qu'en pensez-vous? Y-a-t-il moyen de l'améliorer?

Merci

 

[ChTi160]

Bonsoir Lamoriciere
bonsoir le Fil
bonsoir le Forum

Merci de vous intéresser à mon problème.
J'ai trouvé une macro que voici:

avant de nous remercier peux tu nous dire si ce que l'on te propose te convient si non pourquoi??? Merci

ensuite pour la procèdure que tu as trouvé, point n'est besoin je pense d'utiliser la Methode Find

Range('B1:B50').Select
For Each vCellule In Selection
If vCellule.value = '' Then
vCellule.Offset(0, -1) = ''
End If
Next

merci de nous tenir au courant

bonne fin de Soirée

Message édité par: Chti160, à: 29/08/2005 20:47

 

[Lamoriciere]

Bonjour,

Ce code me convient très bien.
Je vous remercie tous.