Discussion :

[ludo02]

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.

[ouskel'n'or]

Si initialisation est le nom de la feuille, corrige tes lignes :

Code :

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

1
2
Worksheets("Initialisation").Cells(21, 3) = kilometrage
Worksheets("Initialisation").Cells(21, 2) = periode

ou

Code :

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

1
2
3
set LaFeuille = Worksheets("Initialisation")
LaFeuille.Cells(21, 3) = kilometrage
LaFeuille.Cells(21,2) = periode

A+

[ludo02]

Merci pour ta reponse ouksel'n'or. cela fonctionne bien maintenant.

[ouskel'n'or]

Alors c'est Résolu ? Bouton Résolu en bas de l'écran