Imaginez que vous avez sélectionné une cellule ou une plage de cellules à supprimer à l’aide d’une macro. Avant de faire cela, cependant vous aimeriez qu’un message s’affiche à l’écran vous demandant à nouveau si la plage sélectionnée peut vraiment être supprimée.
Sub SupprimerPlageSelectionner ()
Dim i As Integer
i = MsgBox ("Voulez-vous supprimer la plage sélectionnée?", _
1 + vbQuestion, "supprimer la requête")
If i = 2 Then Exit Sub
Selection.Clear
End Sub
Sub SupprimerPlageSelectionner ()
Dim i As Integer
i = MsgBox ("Voulez-vous supprimer la plage sélectionnée?", _
1 + vbQuestion, "supprimer la requête")
If i = 2 Then Exit Sub
Selection.Clear
End Sub
Sub SupprimerPlageSelectionner ()
Dim i As Integer
i = MsgBox ("Voulez-vous supprimer la plage sélectionnée?", _
1 + vbQuestion, "supprimer la requête")
If i = 2 Then Exit Sub
Selection.Clear
End Sub
Commentaires
■ La variable i est déclarée comme Integer et est afféctée à la boite de dialogue MsgBox.
■ Ainsi, interroger la variable i pour déterminer sur quel bouton l’utilisateur clique.
■ Si l’utilisateur clique sur le bouton ANNULER, la variable signale la valeur 2, ce qui entraîne l’arrêt immédiat de la macro. Sinon, les données contenues dans la plage séléctionnées sont supprimées à l’aide de la méthode Clear.