Suppression des cellules mais pas de ligne

[anber]

Bonsoir,

Je cherche un code pour supprimer des cellules vides entre plusieurs parties d'un bloc de cellules en remontant les valeurs de celles en dessous, mais sans supprimer les lignes.

Merci par avance

 

[Temjeh]

Bonjour à toi

Voici la macro

Sub DétruireLigne()
derniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub


A++Temjeh

 

[Temjeh]

oupsss

Ma façon supprime ptêtre les lignes

Attendons mieux

Temjeh

 

[Michel_M]

bonsoir Anber, Temjeh

Pour supprimer les cellules vides d'une zone sélectionnée en remontant, les valeurs des voisines du dessous:

Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

A+
Michel

 

[anber]

Bonsoir Michel, Temjeh

J'ai adapté la solution à Michel, elle fonctionne super,

Merci quand même Temjeh


A+

BA