PROBLEME avec le code reçu

[marie]

Bonjour,
Merci beaucoup pour le code envoyé, ça m'a bien débloqué. Mais, j'ai un petit problème: Dans la fenêtre, si je fais: Annuler ou Fermer, ça lance le débogueur et ça pointe sur la ligne de code: Set Plage......
Voici le code en question et merci d'avance pour vos petite astuces miracle!!
Sub Marie()
Dim Plage As Range

Set Plage = Application.InputBox("Sélectionner une plage avec votre
souris...", "SELECTION DE LA PLAGE A LA SOURIS", Type:=8)

MsgBox "Vous avez sélectionné : " & Plage.Address _
& vbCrLf & "Soit : " & Plage.Count & " cellules"
End Sub

 

[@+Thierry]

Bonjour Marie, le Forum

S'il te plait, je te conseille de lire un petit peu notre Charte et tout particulièrement les articles 4°)-a- et 4°)-b-...

Car je te signale, que t'ayant donné cette échantillon pour te permettre d'utiliser une "Application.InputBox" (Lien supprimé... je finissais ce post, en te posant la question "Mais est-ce au moins ceci que tu cherches ?"

Donc selon toute vraissemblance oui !! Mais tu aurais dû rester dans le même fil de discussion puisque c'est toujours lié à la même macro et au même problème...

Pour te répondre, oui bien sûr on peut gérer cette erreur en cas de fermeture de l'InputBox, d'action "Cancel" ou de non sélection..., voici un moyen tout simple :

Sub MarieGestionCancel()
Dim Plage As Range

On Error GoTo ErrorHandler
Set Plage = Application.InputBox("Sélectionner une plage avec votre souris...", "SELECTION DE LA PLAGE A LA SOURIS", Type:=8)

MsgBox "Vous avez sélectionné : " & Plage.Address _
& vbCrLf & "Soit : " & Plage.Count & " cellules"
Exit Sub

ErrorHandler:
MsgBox "Vous n'avez pas fait de sélection, Opération annulée", vbExclamation
End Sub


Bonne Fin de Journée
@+Thierry