Bonjour,

J'ai réalisé un programme mais à chaque fois que j'envoi une valeur dans une textbox ("W.text= Y), j'obtiens une erreur 1004 : Erreur définie par l'application ou par l'objet.

voici mon programme repertorier par des boutons, je l'ai mis dans l'ordre chronologique :


Private Sub Demarrer_Click()
i = 2
Lots.Text = Worksheets("Recap").Range("A" & i)
Risque.Text = Worksheets("Recap").Range("B" & i)
End Sub

Private Sub LierAmen_Click()
Lier2.Visible = False
End Sub

Private Sub LierContrat_Click()
Lier2.Visible = True
End Sub





Private Sub ValidNiveaux_Click()
'Adapte la valeur de l'esperance du risque en fonction du niveau et risque selectionné'
If Niveaux = "Niveau faible" Then
y = 3
Else
If Niveaux = "Niveau moyen" Then
y = 4
Else
y = 5
End If
End If


'Ecriture de la valeur d'espérance'

Esp.Text = Worksheets("Risques").Cells(i, y)


End Sub

Private Sub Valid_Click()


'Changement de risque'
i = i + 1
Lots.Text = Worksheets("Recap").Range("A" & i)
Risque.Text = Worksheets("Recap").Range("B" & i)

'Modifie la valeur du bouton "lié par contrat" depuis une valeur à une expression'
If Range("E2") = True Then
Range("E2") = "Amenageur"
Else
Range("E2") = "Collectivité (contrat)"
End If

If EspLier.Text = " " Then
Esp.Text = Esp.Text
Else
Esp.Text = EspLier.Text
End If

End Sub

Private Sub Précédent_Click()
i = i - 1

If i < 2 Then
i = 2
Else
i = i
End If
End Sub


Private Sub Suivant_Click()
i = i - 1

If i > 14 Then
i = 14
Else
i = i
End If
End Sub


La deuxième erreur que j'ai c'est que mes valeurs de texte dqui dépendent de i dans les boutons "suivant","précendent" ou "valid" ne sont pas réinitialiser.
merci de votre aide

Configuration: Windows XP
Firefox 3.0.7