Message d'alerte vba
sara_159
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
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
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
A voir également:
- Message d'alerte vba
- Recuperer message whatsapp supprimé - Guide
- Message supprimé whatsapp - Guide
- Fausse alerte mcafee - Accueil - Piratage
- Message absence thunderbird - Guide
- Message alerte virus google chrome - Accueil - Virus
2 réponses
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
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
Bonjour,
Dans ton code, il y a beaucoup de lignes inutiles.
Remplace toutes tes lignes VBA par :
Cordialement,
Franck P
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