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

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.