Gestion des erreurs dans Application.Inputbox avec Range

Version imprimable

Bonjour,

J'ai écrit le code suivant afin de sélectionner une ligne (filtrée auparavant) afin de la recopier dans une nouvelle feuille.
La cellule contenant la quantité peut être modifié en fonction de la quantité rentre dans une textbox.
Mon problème et que même si je sélectionne bien une plage de cellule, l'objet parait toujours vide. Et donc la macro s'arrête.
Le code est dans un userform.

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
30
31
32
33
34
35
Sub selection1()
    Dim i, Nbreligne, Qty As Integer
     Dim P, Vers As Range
 
    Sheets("ConfigCL").Range("A1").Select
 
   Qty = 0
 
    On Error Resume Next
    Application.DisplayAlerts = False
        Set P = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8)
        'MsgBox P.Address
    On Error GoTo 0
        Application.DisplayAlerts = True
        If P Is Nothing Then MsgBox "Sélection annulée"
            Exit Sub
 
    Nbreligne = Sheets("Sheet8").UsedRange.Rows.Count
    i = Nbreligne + 1
 
    Set Vers = Worksheets("Sheet8").Cells(i, 1)
        P.Copy
        Vers.PasteSpecial (xlPasteValues)
        Application.CutCopyMode = False
 
    Qty = UserForm1.TextBoxqty.Value
 
    If Qty <> 0 Then
        Sheets("Sheet8").Cells(i, 9) = Qty
 
    End If
 
UserForm1.TextBoxqty.Value = ""
 
End Sub

J'utilise Excel 2010 sous XP.
Merci pour votre aide

06/05/2013, 13h44
SfJ5Rpw8
Bonjour,

comme tu as écris ton code le Exit sub n'est pas conditionné ..

supprime le MsgBox ... ou si tu veux conditionné plusieurs actions le plus simple c'est de mettre cela sur plusieurs lignes..:
Code:

1 2 3 4 5 if Condition Then Action1 Action2 End if
08/05/2013, 11h38
Aureus Magnus
Merci bbil,

De plus en voyant ton code:
Citation:
Bonjour,

comme tu as écris ton code le Exit sub n'est pas conditionné ..

supprime le MsgBox ... ou si tu veux conditionné plusieurs actions le plus simple c'est de mettre cela sur plusieurs lignes..:

Code:

1 2 3 4 5 1 if Condition Then 2 Action1 3 Action2 4 End if
je me suis apperçu que j'avais oublié de cloturer ma condition en omettant "End if".
Après rajout, Miracle, ça marche.
Merci pour m'avoir ouvert les yeux. :ccool: