Discussion :

[khawla.az]

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

[Menhir]

Essaye :

Code :

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

For Each C In R1.Cells

Code :

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

1
2
3
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)

Je ne pense pas que ce soit une bonne idée de modifier la plage de ton For Each à l'intérieur même du For Each.
Visiblement, tu utilises une même variable (R1) pour faire deux choses différentes.

Mais ne sachant pas ce que tu veux faire, difficile de corriger ça.

[khawla.az]

OUI tu as raison merciiiiiiiiiii