Message d'alerte vba

Question

Bonjour a tous,
Je voudrais savoir comment on fait pour ajouter un message d'aletre dans un code vba 

Voici mon code
ub Macro1()

    Range("F9:G24").Select
    
    Range("F9:G24,J9:K24").Select
    Range("J9").Activate
    Range("F9:G24,J9:K24,N9:O24").Select
    Range("N9").Activate
    Range("F9:G24,J9:K24,N9:O24,R9:S24").Select
    Range("R9").Activate
    Range("F9:G24,J9:K24,N9:O24,R9:S24,V9:W24").Select
    Range("V9").Activate
    Range("F9:G24,J9:K24,N9:O24,R9:S24,V9:W24,Z9:AA24").Select
Selection.ClearContents

Ce que je voudraic'est quil est un message qui me dit par ex "etes vous sur de vouloir supprimer?" avant que le code soit vraiment excecuté

Merciii

Frenchie83 · Answer

Bonjour

créer un bouton, et affectez lui la macro suivante

la zone sélectionnée peut comportée des zones non contiguës

Sub Effacer()
    ZoneSelectionnee = Selection.Address
    Dim Msg, Style, Title, Response
    Msg = "Etes-vous sûr de vouloir effacer la sélection?"
    Style = vbYesNo + vbCritical + vbDefaultButton2
    Title = "Effacement"
    Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then
        Selection.ClearContents
    End If
End Sub

cdlt

pijaku · Answer

Bonjour,

Dans ton code, il y a beaucoup de lignes inutiles.
Remplace toutes tes lignes VBA par :

Sub Macro1()
Dim Reponse As Integer
'Message à l'utilisateur demande confirmation
Reponse = MsgBox("Etes-vous sur de vouloir supprimer le contenu de ces cellules?", vbYesNo + vbQuestion, "Confirmation")
If Reponse = vbYes Then 'Si oui
    'Suppression
    Range("F9:G24,J9:K24,N9:O24,R9:S24,V9:W24,Z9:AA24").ClearContents
Else 'Si non
    'Message à l'utilisateur
    MsgBox "Suppression annulée.", vbInformation, "Annulation"
End If
End Sub 
Cordialement,
Franck P

Message d'alerte vba

2 réponses

Discussions similaires

Newsletters