B
babeth
Guest
bonjour,
je suis novice en visula basic et j'azi un problème, mon programme ne tourne pas
voila mon programme:
Sub test1()
Dim i As Long
Dim y As Long
Dim ligne As Long
Dim piece2 As Long
Dim piece1 As Long
i = 2
Do While i <= 5
piece1 = Worksheets(1).Cells(i, 2).Value
ligne = 2
Do While ligne <= 5
piece2 = Worksheets(2).Cells(k, 2).Value
If piece1 = piece2 Then
Worksheets(s3).Cells(j, 1).Value = Worksheets(1).Cells(i, 1).Value
End If
ligne = ligne + 1
Loop
i = i + 1
Loop
End Sub
quelqu'un peyt m'aider? svp
je suis novice en visula basic et j'azi un problème, mon programme ne tourne pas
voila mon programme:
Sub test1()
Dim i As Long
Dim y As Long
Dim ligne As Long
Dim piece2 As Long
Dim piece1 As Long
i = 2
Do While i <= 5
piece1 = Worksheets(1).Cells(i, 2).Value
ligne = 2
Do While ligne <= 5
piece2 = Worksheets(2).Cells(k, 2).Value
If piece1 = piece2 Then
Worksheets(s3).Cells(j, 1).Value = Worksheets(1).Cells(i, 1).Value
End If
ligne = ligne + 1
Loop
i = i + 1
Loop
End Sub
quelqu'un peyt m'aider? svp