Ecran de validation avant execution d'une macro

gibtoul · 25 Août 2013

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+

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

david84 · 25 Août 2013

Re : Ecran de validation avant execution d'une macro

Bonsoir,
peut-être comme cela :

Code:

Sub toto()
Dim Rep
Rep = MsgBox("continuer ?", vbYesNo)
If Rep = vbYes Then
'ton code
End If
End Sub

A+

gibtoul · 25 Août 2013

Re : Ecran de validation avant execution d'une macro

Je te remercie David84...

a bientôt

gibtoul

Ecran de validation avant execution d'une macro

gibtoul

XLDnaute Junior

david84

XLDnaute Barbatruc

gibtoul

XLDnaute Junior

Discussions similaires