supprimer les cellules vides et déplacer à gauche

[Abissa]

salut;
je suis débutant en VBA , et j'aimerais supprimer des cellules vides (prendre jute des rendements positives avec leurs écart type)
merci

 

[Robert]

Re : supprimer les cellules vides et déplacer à gauche

Bonjour Abissa, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Set pl = Sheets("BasesDonnees").UsedRange 'définit la plage pl
Set pl = pl.Offset(1, 1).Resize(pl.Rows.Count - 1, pl.Columns.Count - 1) 'redéfinit la plage pl (sans la colonne A ni la ligne 1)
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    If cel.Value = 0 Then cel.Value = "" 'si la cellule contient zéro, vide la cellule
Next cel 'prochaine cellle de la boucle
pl.SpecialCells(xlCellTypeBlanks).Delete xlToLeft 'supprime les cellules vides en décalant vers la gauche
End Sub

 

[Abissa]

Re : supprimer les cellules vides et déplacer à gauche

salut Robert, salut le forum,
merci infiniment ça marche j'ai juste changé le nom de feuille
merci bouceaup