Bonjour, je suis sur un calcul de somme entre deux feuilles et j'ai une erreur au niveau du calcul "resultat" erreur d'exécution 91 Variable objet ou variable de bloc with non définie.

Je vous avoue que j'ai retourné le code dans tout les sens et je ne vois pas ou est la faute. la formule b5 avec le .find à pour valeur = 0 ou nothing... alors que la formule c5 find fonction et trouve la cellule. Bref si quelqu'un à une idée je suis preneur. Merci pour votre aide.


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
27
28
29
 
Sub calculation_budgetAT2()
 
'data feuille budget AT
 
Dim onglet As Worksheet
Dim reference As Long
Dim resultat As Double
 
Set onglet = Worksheets("BudgetAT")
onglet.Activate
 
With onglet.Columns("B")
 
    Description5 = "5 - PROPULSION AND MANOEUVRING SYSTEM"
    Set v5 = .Find(Description5, , xlValues, xlWhole, , , True)
 
    Description6 = "6 - AUXILIARY MACHINERY AND SYSTEM"
    Set b5 = .Find(Description6, , xlValues, xlWhole, , , True)
 
    resultat = Application.Sum(Range(v5.Offset(1, 15), b5.Offset(-1, 15)))
 
 
Worksheets("Budget AT Calculation").Activate
Worksheets("Budget AT Calculation").Range("B7") = resultat
 
End With
 
End Sub