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