J'ai actuellement un problème sur un userform contenant un textbox (Combox) que je stocke dans mon classeur après validation par OK , ça donne tout simplement :
Code:
Private Sub butt_save_Click()
With Workbooks("Middle1.xls").Worksheets("Rapport")
.Cells(var, 1) = w1.ComBox
End with
End Sub
Mais en vérifiant les valeurs récupérées je m'aperçois que w1.ComBox écrit dans ma cellule de temps en temps (100 fois sur 4000 lignes) l'erreur "#VALEUR!" d'Excel... Je n'arrive pas reproduire cette erreur (je ne sais pas ce que l'utilisateur a bien pu entrer à ce moment là), avez vous une idée de ce qui ne va pas dans mon code ?
J'ai actuellement un problème sur un userform contenant un textbox (Combox) que je stocke dans mon classeur après validation par OK , ça donne tout simplement :
Code:
Private Sub butt_save_Click()
With Workbooks("Middle1.xls").Worksheets("Rapport")
.Cells(var, 1) = w1.ComBox
End with
End Sub
Mais en vérifiant les valeurs récupérées je m'aperçois que w1.ComBox écrit dans ma cellule de temps en temps (100 fois sur 4000 lignes) l'erreur "#VALEUR!" d'Excel... Je n'arrive pas reproduire cette erreur (je ne sais pas ce que l'utilisateur a bien pu entrer à ce moment là), avez vous une idée de ce qui ne va pas dans mon code ?
Salut à tous
toi aussi pierrejean ? Doit être le réchauffement qui crée des parasites sur les boules de cristal
Déjà, c'est extrait de code à variables globales => donc, voir la définition de la variable
ensuite, c'est une comboBox(à priori) => une erreur sur la source reste possible, si la source pointe sur une cellule en erreur, tu recopies l'erreur.
Le fait que ta Combo ait sa propriété MatchRequired = True n'empêche pas de valider par la souris sur le bouton
Je soupçonnais un truc du genre mais "=A1/A2" passe parfaitement (réstitué comme du texte). Je vais peut être finir par interdire tout ce qui n'est pas une lettre...
Sinon je penche pour un problème de format, pour être sûr j'ai changé le code ce matin :
Code:
Private Sub butt_save_Click()
With Workbooks("Middle1.xls").Worksheets("Rapport")
.Cells(var, 1).NumberFormat = "@"
.Cells(var, 1) = w1.ComBox.Text
End with
End Sub
Sur 60 lignes entrées aujourd'hui pas de "#VALEUR!"... oui mais impossible d'être sûr de ne pas perdre à nouveau des données!