ptifrederick
XLDnaute Nouveau
bonjours, voila mon soucis !
dans mon classeur j'ai un userform avec des textbox, j'arrive a récupéré mes infos dans mon textbox, jusque la pas de soucis, mais quand je veux effacer les donnée pour en saisir de nouvelle j'ai un message d'erreur ! en gros il faut que je sélectionne a la souris la donnée récupéré (griser) et entrer les nouvelles valeurs, et la sa fonctionne !!! et t'il possible que la valeur récupérer soit sélectionner d'office dans le textbox !!! je sais pas si je suis clair !!! se sont souvent des valeurs a répétitions donc si la valeur est bonne je valide par entrée et si la valeur n'est pas bonne je saisie directement les nouvelles valeurs !
par avance merci
je recupere les valeurs comme ceci
Private Sub UserForm_activate()
UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("DEBUT").[C5]
UserForm1.TextBox2.Value = ThisWorkbook.Worksheets("DEBUT").[F5]
UserForm1.TextBox3.Value = ThisWorkbook.Worksheets("DEBUT").[G5]
UserForm1.TextBox4.Value = ThisWorkbook.Worksheets("DEBUT").[H5]
UserForm1.TextBox5.Value = ThisWorkbook.Worksheets("DEBUT").[I5]
UserForm1.TextBox6.Value = ThisWorkbook.Worksheets("DEBUT").[J5]
UserForm1.TextBox7.Value = ThisWorkbook.Worksheets("DEBUT").[K5]
End Sub
dans mon classeur j'ai un userform avec des textbox, j'arrive a récupéré mes infos dans mon textbox, jusque la pas de soucis, mais quand je veux effacer les donnée pour en saisir de nouvelle j'ai un message d'erreur ! en gros il faut que je sélectionne a la souris la donnée récupéré (griser) et entrer les nouvelles valeurs, et la sa fonctionne !!! et t'il possible que la valeur récupérer soit sélectionner d'office dans le textbox !!! je sais pas si je suis clair !!! se sont souvent des valeurs a répétitions donc si la valeur est bonne je valide par entrée et si la valeur n'est pas bonne je saisie directement les nouvelles valeurs !
par avance merci
je recupere les valeurs comme ceci
Private Sub UserForm_activate()
UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("DEBUT").[C5]
UserForm1.TextBox2.Value = ThisWorkbook.Worksheets("DEBUT").[F5]
UserForm1.TextBox3.Value = ThisWorkbook.Worksheets("DEBUT").[G5]
UserForm1.TextBox4.Value = ThisWorkbook.Worksheets("DEBUT").[H5]
UserForm1.TextBox5.Value = ThisWorkbook.Worksheets("DEBUT").[I5]
UserForm1.TextBox6.Value = ThisWorkbook.Worksheets("DEBUT").[J5]
UserForm1.TextBox7.Value = ThisWorkbook.Worksheets("DEBUT").[K5]
End Sub