Discussion :

[TomiT]

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 :

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
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

[mercatog]

Bonjour

Avec la méthode Find il faudra toujours tester l'existence au préalable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'....
If Not BorangePlage is Nothing then
     finligne=bornageplage.row
 
'....
EndIf

[MarcelG]

Bonjour Tomi,

Hé salut à toi, ô grand manitou

Outre la remarque de mon prédécesseur, j'ajouterais qu'il n'est pas nécessaire de balayer une plage pour compter ses cellules vides.
La propriété Count affectée à ses cellules spéciales vides suffit.

[TomiT]

Merci bien, cela fonctionne malgré qques dysfonctionnements je travaille dessus et je me permettrai de revenir vous prochainement.