Erreur d'exécution 91 : variable objet ou une variable de bloc with non définie
Bonjour,
Lorsque je fais tourner mon code je me heurte au problème suivant "Erreur d'exécution 91 : variable objet ou une variable de bloc with non définie" (cf erreur rouge)
Mon code est le suivant :
Code:
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
27
| Dim Bornageplage As Range
Dim Finligne As Integer
Dim i As Integer
Dim Recherche As Range
Dim Correspondance As Integer
Dim ID As Integer
Dim a As Integer
Dim z As Integer
Dim nocorresp As Integer
Dim nbvide As Integer
Dim somme As Double
'Dans la feuille "Fourniture" colonne 2 recherche de la valeur "SOUS-TOTAL FOURNITURE DIVERSES"(qui est la dernière valeur de la colonne) et renvoie de la valeur exact
Set Bornageplage = Worksheets("Fourniture").Columns(2).Find(what:="SOUS-TOTAL FOURNITURE DIVERSES", lookat:=xlWhole)
'Une fois la dernière valeur trouvé et donc la fin de la plage de recherche stockage du numéro de cette ligne (dernière ligne de la plage) dans la variable Finligne
Finligne = Bornageplage.Row
'Dimentionnement de la plage de recherche
For i = 1 To Finligne
'Suppression d'erreurs possibles : Si dans la feuille "Fourniture" lors du balayage il rencontre une cellule vide dans la plage alors il passe à la suivante
If Worksheets("Fourniture").Cells(i, 2) = "" Then
nbvide = nbvide + 1
End If
Next i
... |
Merci d'avance
Cdlt
