Problème dans mon code RechercheV

Version imprimable

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:

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

Bonjour,

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

Code:

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

22/02/2012, 12h32
sims92.66

Merci jfontaine!

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

Bonne journée à tous