|
|
|
|
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
Bonjour,
|
Re,
Option Explicit Private priVar As String ' Variable uniquement visible par ce module Public pubVar As String ' Varaible visible par tous les modules du programme Sub maProc() Dim procVar As Integer ' Variable spécifique de la procédure maProc, sa valeur est égale à 0. 'initialisation des variables procVar = 1 priVar = "Toto" pubVar = "Titi" ... End Sub En sortant de la procédure procVar n'est plus initialisé. priVar garde "Toto" comme valeur et peut être utilisé uniquement dans ce module. pubVar garde "Titi" comme valeur et peut être utilisé dans tous les autres modules du programme. Bon courage ;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» Nicolas Boileau |