bonsoir a tous voila uand j'execute mon code sous exel, un message d'erruer apparait.

- erreur d'execution '424'
- objet requis

voici le code en question:

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
Public Sub entretien()
 
 
Dim kilometrage As String
Dim periode As String
Dim result As String
 
 
'recolte les info necessaire
 
kilometrage = InputBox("Kilometrage lors de l'entretien du vehicule", "Kilometre")
periode = InputBox("indiquer la date de l'entretien du vehicule", "date")
 
 
'message de confirmation
 
result = MsgBox("entretien effectué à : " & kilometrage + _
            vbCrLf + "fait le : " & periode, vbOKOnly, "confirmation")
 
 
 
'renvoie le resultat vers les celule concerné
 
Initialisation.Cells(21, 3) = kilometrage
Initialisation.Cells(21, 2) = periode
 
 
 End Sub
quelqu'un aurait il une idée sur cette erreur? Merci.