Bonsoir
j'ai le code suivant pour effacer et reformater des cellules.
est-il possible avant sont exécution , d'avoir un écran de validation OUI / NON
Merci pour votre aide
a+
j'ai le code suivant pour effacer et reformater des cellules.
est-il possible avant sont exécution , d'avoir un écran de validation OUI / NON
Merci pour votre aide
a+
Code:
Sub FORMATBPU()
'
'
Range("S80:V80").Select
Selection.Copy
Range("S81:V744").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlSlantDashDot
.Color = -16776961
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlDot
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("S81").Select
End Sub