Problème erreur d'exécution 91 Variable objet ou variable de bloc with non définie

Version imprimable

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. :D Merci pour votre aide.
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 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

Salut,

Il faudrait déclarer toutes les variables v5, b5 etc.

Code:

1
2
    Dim v5 As Range
    Dim b5 As Range

Tu dois aussi tester que v5 et b5 ne sont pas égaux à Nothing

Code:

1
2
3
4
5
    If Not v5 Is Nothing And Not b5 Is Nothing Then
        resultat = Application.Sum(Range(v5.Offset(1, 15), b5.Offset(-1, 15)))
    Else
        ' // Ici code si non trouvé
    End If

Salut

En complément de la réponse de Valtrase

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
Sub calculation_budgetAT2()
'data feuille budget AT
Dim Resultat As Double
Dim V5 As Range, B5 As Range
 
Const Description5 As String = "5 - PROPULSION AND MANOEUVRING SYSTEM"
Const Description6 As String = "6 - AUXILIARY MACHINERY AND SYSTEM"
    'On pointe l'onglet sur lequel on souhaite travailler (inutile de le rendre actif
    With ThisWorkbook.Worksheets("BudgetAT")
        'On recheche les cellules
        Set V5 = .Columns("B").Find(Description5, , xlValues, xlWhole, , , True)
        Set B5 = .Columns("B").Find(Description6, , xlValues, xlWhole, , , True)
        'On vérifie que des cellules ont été trouvées
        If Not (V5 Is Nothing Or B5 Is Nothing) Then
            'Attention ici Range doit être précédé d'un point pour faire référence à l'onglet
            'Attention aussi que B5 ne pointe pas la cellule B1, sinon ça va mal se passe avec l'Offset -1
            If B5.Row > 1 Then
                'On calcule la somme (les deux lignes peuvent être regroupées et la variable Resultat supprimée
                Resultat = Application.Sum(.Range(V5.Offset(1, 15), B5.Offset(-1, 15)))
                ThisWorkbook.Worksheets("Budget AT Calculation").Range("B7").Value = Resultat
            End If
        End If
    End With
 
End Sub

++
Qwaz