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
