Discussion :

[sims92.66]

Bonjour à tous forum,

J'ai un petit problème d’exécution de mon code, le message suivant apparait "erreur d’exécution 91, variable objet ou variable de bloc with non défini"

Le code s’exécute bien jusqu'à la ligne 65 puis s’arrête.
Ci-joint mon code.

Merci pour votre aide et bonne journée

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
Sub passif()
Dim Sh As Worksheet
Dim Rg As Range
Dim i As Long
With Sheets("SUIVIE REGU 2011")
  For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
 
      Set Rg = Sheets("BASE DU MOIS").Range("A:A").Find(What:=.Range("A" & i).Value, LookAt:=xlWhole)
      .Range("G" & i).Value = Rg.Offset(0, 8).Value
      .Range("J" & i).Value = Rg.Offset(0, 6).Value
 
  Next i
End With
 
End Sub

[jfontaine]

Bonjour,

dans ton code, il manque le test si la valeur n'est pas trouvée (dans ce cas Rg = nothing)

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
Sub passif()
Dim Sh As Worksheet
Dim Rg As Range
Dim i As Long
With Sheets("SUIVIE REGU 2011")
    For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
 
        Set Rg = Sheets("BASE DU MOIS").Range("A:A").Find(What:=.Range("A" & i).Value, LookAt:=xlWhole)
 
        If Not Rg Is Nothing Then
            .Range("G" & i).Value = Rg.Offset(0, 8).Value
            .Range("J" & i).Value = Rg.Offset(0, 6).Value
        End If
 
    Next i
End With
 
End Sub

[sims92.66]

Merci jfontaine!

encore une fois la réactivité de ce forum m’impressionne.


Bonne journée à tous