XL 2016 supprimer cellules vides

[joon49]

bonjour,

j'ai fait un exemple de mon tableau fini

voila je voudrais que lorsqu'une cellule est vide les cellules du dessus descendent pour ne pas avoir de cellules vides.

comment pourrais je procéder?

merci par avance.

 

[sylvanu]

Bonjour Joon,
Un essai en PJ avec une macro.

NB: Était ce vraiment utile toutes ces cellules fusionnées et ces cellules noires ?
Ca n'arrange ni les calculs, ni les macros.

 

[fanch55]

Salut à tous,
Les cellules fusionnées ne sont pas un atout dans des tableaux
( elles sont même non autorisées dans les tableaux structurés)
Le code ci-dessous sera automatiquement exécuté si une zone fusionnée sur 1 colonne et 3 lignes est effacée .

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
    Select Case True
        Case IsNull(Target.MergeCells)
        Case Not Target.Rows.Count = 3
        Case Not Target.Columns.Count = 1
        Case Not Target.Cells(1) = ""
        Case Else
            Set R = Columns(Target.Column).Find("*", Target.Cells(1), xlValues, xlWhole, xlByColumns, xlPrevious)
            If Not R Is Nothing Then
                If R.Row < Target.Row Then
                    Target = R
                    R.MergeArea = ""
                End If
            End If
    End Select
End Sub

 

[joon49]

Bonjour Joon,
Un essai en PJ avec une macro.

NB: Était ce vraiment utile toutes ces cellules fusionnées et ces cellules noires ?
Ca n'arrange ni les calculs, ni les macros.

Du coup ta solution me va et j’ai tout simplement supprimer les cellules fusionnés et modifier la hauteur de ligne.
Merci