Bonjour,
j'ai fait un petit tableau avec 2 boutons fusion ou défusion des cellules pour les utilisateurs, cela marche très bien, sauf pour la défusion il met la protection sur les cellules.
pouvez vous m'aider sur cette partie défusion afin qu'il ne protège pas les cellules dans le VBA.
merci beaucoup à vous
Sub defusionner()
With Selection
.MergeCells = False
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlEdgeTop).Weight = xlHairline
End With
Cells(Selection.Row, 3).Borders(xlEdgeLeft).LineStyle = xlContinuous
Cells(Selection.Row, "AP").Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub
j'ai fait un petit tableau avec 2 boutons fusion ou défusion des cellules pour les utilisateurs, cela marche très bien, sauf pour la défusion il met la protection sur les cellules.
pouvez vous m'aider sur cette partie défusion afin qu'il ne protège pas les cellules dans le VBA.
merci beaucoup à vous
Sub defusionner()
With Selection
.MergeCells = False
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlEdgeTop).Weight = xlHairline
End With
Cells(Selection.Row, 3).Borders(xlEdgeLeft).LineStyle = xlContinuous
Cells(Selection.Row, "AP").Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub