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
Du coup ta solution me va et j’ai tout simplement supprimer les cellules fusionnés et modifier la hauteur de ligne.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.