Si vous n'êtes pas encore familiarisé avec la gestion des erreurs, nous vous recommandons fortement de lire cet exemple en premier. Lorsqu'une erreur dans Excel VBA se produit, les propriétés du Objet d'erreur sont remplis d'informations.
Situation:
Le programme ci-dessous calcule la racine carrée des nombres.
1. Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :
Dim rng As Range, cellule As Range
Définir rng = Sélection
Pour chaque cellule dans rng
En cas d'erreur GoTo InvalidValue :
cellule.Valeur = Sqr(cell.Valeur)
Cellule suivante
Quitter le sous-marin
Valeur invalide:
MsgBox Err.Number & " " & Err.Description & " at cell " & cell.Address
Reprendre Suivant
Résultat lorsque vous sélectionnez Range("B2:B6") et cliquez sur le bouton de commande sur la feuille :
Explication : lorsqu'une erreur se produit, la propriété number de l'objet Err est renseignée avec un numéro d'erreur unique de l'erreur actuelle et la propriété Description est renseignée avec la description de l'erreur actuelle.
2. Ces descriptions peuvent ne pas être très utiles aux utilisateurs de votre programme. Vous pouvez rendre les messages d'erreur plus conviviaux en modifiant la dernière partie de la macro comme suit :
Valeur invalide:
Sélectionnez le numéro d'erreur de cas
Cas Est = 5
MsgBox "Impossible de calculer la racine carrée du nombre négatif à la cellule " & cell.Address
Cas Est = 13
MsgBox "Impossible de calculer la racine carrée du texte dans la cellule " & cell.Address
Fin de la sélection
Reprendre Suivant
Astuce : consultez notre programme Select Case pour en savoir plus sur la structure Select Case.
Résultat:
