Objet requis lors de l'annulation d'une inputBox

Version imprimable

Bonjour,

Dans une macro, j'ai une InputBox qui demande de sélectionner une plage de cellules. La macro fonctionne parfaitement, mais si je clique sur "Annuler" au lieu de sélectionner des cellules, j'ai une 'Erreur 424 Objet requis'.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Ajuster()
'
'Permet de corriger les erreurs :
'ajoute un 0 supplémentaire devant les codes à 13 chiffres,
'et supprime les espaces.
 
Dim c As Range
Dim mySelection As Range
 
Set mySelection = Application.InputBox(prompt:="Sélectionnez la colonne", Title:="Sélection", Type:=8)
 
'Gérer le bouton "annuler"
If mySelection = vbCancel Then
    Exit Sub
End If
 
    'La sélection est convertie au format texte
    mySelection.NumberFormat = "@"
 
    For Each c In mySelection.Cells
        'Supprime les espaces intempestifs dus au copier-coller
        c = CStr(Trim(Replace(c.Value, Chr(160), "")))
 
        'S'il s'agit d'un code à 13 chiffres, on ajoute un 0 devant
        If (IsNumeric(c.Value) And Len(CStr(c.Value))) = 13 Then
            c = CStr("0" & c)
        End If
    Next
End Sub

Je ne comprends pas ce que signifie cette erreur, et ce qui est attendu. Merci par avance de votre aide,

A bientôt.

bonjour
exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub selectionplage()
    Dim Plage As Range
    On Error Resume Next
    Set Plage = Application.InputBox("Sélectionnez une plage !", Left:=10, Top:=100, Type:=8)
    If Err.Number = 0 Then
        'reste ducode a faire ici!!!
    Else
        MsgBox "Sélection annulée"
    End If
    On Error GoTo 0
End Sub

15/02/2018, 09h13
Markos22

Bonjour Patricktoulon,

Merci pour ton aide. Avec "On Error Resume Next" et le Err.Number, ça fonctionne ! ;)

A+
15/02/2018, 09h15
Menhir

Citation:

Envoyé par Markos22

si je clique sur "Annuler" au lieu de sélectionner des cellules, j'ai une 'Erreur 424 Objet requis'.

Code:

Dim mySelection As Variant
15/02/2018, 09h55
Markos22

Bonjour Menhir,

Merci. C'est ta solution la plus orthodoxe, logique et économique. Je peux à présent effacer les lignes de gestion de l'erreur.

J'aurais dû y penser. Cela dit, il me semble que l'aide à la saisie ne marche pas si le type de variable n'est pas plus précis. Alors, comme je débute en VBA, j'ai eu recours à la facilité. J'aurais dû penser à redéfinir ma variable comme "Variant" par la suite.

Merci pour ton aide. :)

A+