recuperation d'une valeur d'une celulle dans un textbox

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
 

ptifrederick

XLDnaute Nouveau
Re : recuperation d'une valeur d'une celulle dans un textbox

voila je vous joint mon classeur ! il suffit de cliquer sur le bouton ressources, j'arrive bien a recuperer les anciennes données mais quand j'efface pour en saisir de nouvelles j'ai un message d'erreur !!!
 

Pièces jointes

  • CHANGE TROUPE.xls
    136.5 KB · Affichages: 57

ptifrederick

XLDnaute Nouveau
Re : recuperation d'une valeur d'une celulle dans un textbox

photo 2.jpg voila ce genre la ! si sa peut aider !!!
 

Nairolf

XLDnaute Accro
Re : recuperation d'une valeur d'une celulle dans un textbox

Tous simplement en retirant les commandes CDbl() de ton code.
ex:
Worksheets("DEBUT").Range("C5") = CDbl(TextBox1)
devient:
Worksheets("DEBUT").Range("C5") = TextBox1.value
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 294
Messages
2 086 895
Membres
103 404
dernier inscrit
sultan87