Problème de variable (fontion find)

Version imprimable

Bonjour à tous,

Je dispose de 2 sheets :
1er sheets : Base de données mise à jour manuellement, on a dans la colonne B, le nom de différents mandats, et pour chaque mandat, entre les colonnes E et I, on a une allocation d'actif.

J'effectue une macro qui me permet d'effectuer un copié des allocations pour chaque mandat dans un sheets(2) (Le rapport)

J'obtiens une erreur car il ne trouve pas de valeur dans ma variable "mdt".

Une idée d'où cela pourrais venir ?

Voici mon code :
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 30 31 32 33 Sub Test_Update() Dim i, j, x, y As Integer Dim mdt, dte, cell, cel, ce As Range Dim match As Date match = DateSerial(Year(Date), Month(Date) + 1, 0) '----------------------------------------------------- Sheets(1).Activate 'Sur le Sheets(1): la BDD For Each cell In Range("B4:B50") 'Pour chaque cellule du range de la BDD Sheets(1).Activate 'Sur le Sheets(1): la BDD i = cell.Row 'i est le numéro de ligne Range(Cells(i, 5), Cells(i, 9)).Select 'On passe le range de chaque mandat Selection.Copy 'On copie le range '----------------------------------------------------- Sheets(2).Activate 'Sur le Sheets(2): le rapport Set ce = Range("C6:ON6") Set cel = Range("B8:B80") Set mdt = ce.Find(cell.Value, LookIn:=xlValues) Set dte = cel.Find(match, LookIn:=xlValues) If Not mdt Is Nothing Then cell.Value = mdt.Value Else Range(Cells(dte.Row, mdt.Row), Cells(dte.Row, mdt.Row + 5)).Select Selection.Insert End If Next End Sub
J'ai l'erreur : Erreur d'éxecution 91 : Variable objet ou variable de bloc With non définie

09/04/2016, 21h28
unparia
Bonjour,
ma réponse se limitera à celle que tu vas te donner toi-même à cette question :
que pourrait-être dte.row si dte is nothing ? (en résultat de ta recherche "

Code:

cel.Find(match, LookIn:=xlValues)

") ?
commence donc (réflexe 1) par contrôler le résultat d'une telle "recherche". Cela sera un bon début de réflexion.
PS (et de manière annexe) :

quel est selon toi le type affecté à i,j,x,mdt,dte,cell,cel par ces deux lignes ?
Code:

1 2 Dim i, j, x, y As Integer Dim mdt, dte, cell, cel, ce As Range
Amuse-toi à le faire par utilisation de TypeName, juste pour voir.

Bonjour.

Si les dates dans les champs de recherche ne sont pas le résultat de formules, tu peux remplacer xlValues par xlFormulas.

Ce qui te donnerait :

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
30
31
32
33
34
35
36
37
38
39
Sub Test_Update()
 
Dim i, j, x, y As Integer
Dim mdt, dte, cell, cel, ce As Range
Dim match As Date
 
match = DateSerial(Year(Date), Month(Date) + 1, 0)
 
'-----------------------------------------------------
Sheets(1).Activate                           'Sur le Sheets(1): la BDD
For Each cell In Range("B4:B50")             'Pour chaque cellule du range de la BDD
    Sheets(1).Activate                       'Sur le Sheets(1): la BDD
    i = cell.Row                             'i est le numéro de ligne
    Range(Cells(i, 5), Cells(i, 9)).Select   'On passe le range de chaque mandat
    Selection.Copy                           'On copie le range
 
'-----------------------------------------------------
Sheets(2).Activate                           'Sur le Sheets(2): le rapport
    Set ce = Range("C6:ON6")
    ce.Select
    Set cel = Range("B8:B80")
    cel.Select
    Set mdt = ce.Find(cell.Value, LookIn:=xlFormulas)
    Set dte = cel.Find(match, LookIn:=xlFormulas)
 
    If Not mdt Is Nothing Then
        cell.Value = mdt.Value
    Else
    If dte Is Nothing Then
        MsgBox dte & " non trouve dans " & cel.Address
    Else
        Range(Cells(dte.Row, mdt.Row), Cells(dte.Row, mdt.Row + 5)).Select
        Selection.Insert
    End If
    End If
 
Next
 
End Sub