Discussion :

[Sa Mariam]

Bonjour les amis, je rencontre un problème encore une fois avec mon code VBA
Je souhaite donner la main à l'utilisateur pour introduire une référence après à travers mon code vba je cherche si cette référence existe dans "la liste des commandes" si ça existe je copie la quantité associé colonne D et je la colle dans une autre page "Liste des pièces" dans la colonne AE. Après je fais la somme des valeurs des deux colonnes AE et J.
Je rencontre un problème au niveau de la variable k (ligne 8 k = Cell.Row) on me dit que c'est pas déclaré, alors que je l'ai déjà déclarée.

Merci d'avance pour votre contribution.
Ci-joint 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub CommandButton1_Click()
Dim k As Long
Dim l As Long
Dim Cell As Range
 
 Sheets("Liste des commandes").Select
 Set Cell = Range("C6:C38962").Find(Me.TextBox1, LookIn:=xlFormulas, Lookat:=xlWhole)
    k = Cell.Row
    Sheets("Liste des pièces").Select
       Set Cell = Range("C6:C38962").Find(Me.TextBox1, LookIn:=xlFormulas, Lookat:=xlWhole)
    l = Cell.Row
 
 
    If MsgBox("Confirmez-vous la réception de la commande?", vbYesNo, "Confirmation") = vbYes Then
 
 
 
 
If TextBox1 = "" Then
MsgBox "Indiquez une référence valide"
 
ElseIf Cell Is Nothing Then
    MsgBox "La référence n'existe pas"
    ElseIf Not Cell Is Nothing Then
    Sheets("Liste des commandes").Select
    Range("D" & k).Select
    Selection.Copy
    Sheets("Liste des pièces").Select
    Range("AE" & l).Select
    ActiveSheet.Paste
    Sheets("Liste des pièces").Select
    Application.CutCopyMode = False
    Range("J" & l).Value = Range("J" & l).Value + Range("AE" & l).Value
 
 
 
     ElseIf MsgBox("Confirmez-vous la réception de la commande?", vbYesNo, "Confirmation") = vbNo Then
      Me.Hide
      GSPR.Show
    End If
   End If
 
 
End Sub

[mercatog]

Ajoute

Code :

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

1
2
3
4
if not cell is nothing then
K=cell.row
'....suite de ton code
End if

[Sa Mariam]

Ajoute

Code :

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

1
2
3
4
if not cell is nothing then
K=cell.row
'....suite de ton code
End if

ça a marché
Mille Merciiiiiiiiiii