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