Discussion :

[Aureus Magnus]

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

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

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

1
2
3
4
5
 
if Condition Then
  Action1
  Action2
End if

[Aureus Magnus]

Merci bbil,

De plus en voyant ton code:

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 :

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

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.