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
Partager