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 : 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
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