Discussion :

[Markos22]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

bonjour
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Markos22]

Bonjour Patricktoulon,

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

A+

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim mySelection As Variant

[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+