D
Dams7160
Guest
Bonsoir le forum,
Je suis devant un petit souci et je n'arrive pas a m'en sortir... j'en déduit que le code doit etre très sal :s
Je tombe sur une erreur 91 quand je lance cette macro :s
Je suis devant un petit souci et je n'arrive pas a m'en sortir... j'en déduit que le code doit etre très sal :s
Je tombe sur une erreur 91 quand je lance cette macro :s
Code:
Sub encoder_donnée()
Dim SEM As Integer
Dim MOIS As String
Dim L As Integer
For k = 7 To [D37].End(3).Row
madate = Feuil24.Cells(5, 6)
MOIS = MonthName(Format(madate, "mm"))
FEUL = "BD-" & MOIS
SEM = Feuil24.Cells(4, 6)
L = Sheets("BD-" & MOIS).[A1:FF1].Find(SEM, LookIn:=xlValues, LookAt:=xlWhole).Row + 2
C = Sheets("BD-" & MOIS).[A1:FF1].Find(SEM, LookIn:=xlValues, LookAt:=xlWhole).Column
C2 = Sheets("BD-" & MOIS).[A1:FF1].Find(SEM, LookIn:=xlValues, LookAt:=xlWhole).Column + 19
strAddr = Range(Cells(L, C), Cells(L, C2)).Address
col = Sheets("BD-" & MOIS).Range(strAddr).Find(Feuil24.Cells(4, 4), LookIn:=xlValues, LookAt:=xlWhole).Column
lig = Sheets("BD-" & MOIS).[B5:B250].Find(Feuil24.Cells(k, 4), LookIn:=xlValues, LookAt:=xlWhole).Row
Sheets("BD-" & MOIS).Cells(lig, col) = Sheets("BD-" & MOIS).Cells(lig, col).Value + Feuil24.Cells(k, 6)
lig = Feuil1.[A1:X100].Find(Feuil24.Cells(k, 4), LookIn:=xlValues, LookAt:=xlWhole).Row
cal = Feuil1.[A1:X100].Find(Feuil24.Cells(k, 4), LookIn:=xlValues, LookAt:=xlWhole).Column + 1
Feuil1.Cells(lig, cal) = Feuil1.Cells(lig, cal).Value + Feuil24.Cells(k, 6)
Next
Range("D7:D37").ClearContents
Range("F7:F37").ClearContents
MsgBox "Consomations enregistrées"
End Sub