Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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 .
VB:
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD