[Résolu] Annuler sur inputbox.

[Fred]

Bonjour à tous,

J'ai écrit une macro pour sélectionner une cellule. Derrière, je sélectionne la cellule que l'utilisateur aura choisi à la souris. Voici le code :

Set sequence = Application.InputBox(prompt:="Selectionnez la séquence à intégrer dans le plan :", Title:="Envoyer la séquence vers le plan", Type:=8)
sequence.Select

J'aimerais coder les erreurs, du style aucune cellule entrée ou quand l'utilisateur clique sur annuler (il me semble que ça renvoie une chaine vide). Pour ce faire, j'ai essayé un test if :

If sequence = null Then
Exit Sub
End If

Mais ça ne fonctionne pas. J'ai essayé de dimensionner sequence comme un Range et en enlevant le set. Sauf que du coup je ne peux plus sélectionner ma cellule.
Vous auriez une idée ? Merci d'avance. =)

Bon weekend.

 

[Compte Supprimé 979]

Re : Annuler sur inputbox.

Salut Fred,

Tu peux faire ça comme ceci

Sub test()  Dim Sequence As Range
  On Error Resume Next
  Set Sequence = Application.InputBox(prompt:="Selectionnez la séquence à intégrer dans le plan :", Title:="Envoyer la séquence vers le plan", Type:=8)
  If Err.Number <> 0 Then Exit Sub
  On Error GoTo 0
  Sequence.Select
End Sub

A+

 

[Fred]

Re : Annuler sur inputbox.

Merci du tuyau BrunoM45 ! C'est top, ça marche parfaitement. Je ne connaissais pas et je le garde de côté.
Bon weekend. =)