Erreur "Object variable or with block variable not set vba"
Salut
j'ai réaliser ce programme mais il affiche l'erreur suivant "bject variable or with block variable not set vba". je suis débutante en vba et merci
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
| Sub classer()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim R1 As Range
Dim R2 As Range
Dim C As Range
Dim J As Integer
Set F2 = Worksheets("April")
Set F1 = Worksheets("Mai")
Set R1 = F2.Range("G2", F2.Range("G65536").End(xlUp))
For Each C In R1
Set R1 = F1.Range("G:G").Find(Trim(C.Value), lookat:=xlPart)
Set R2 = F2.Range("G:G").Find(Trim(C.Value), lookat:=xlPart)
If (F1.Cells(R1.Row, "G").Value = F2.Cells(R2.Row, "G").Value) Then
F1.Cells(C.Row, "X") = F1.Cells(R1.Row, "N") - F2.Cells(R2.Row, "N")
End If
Next C
End Sub |
