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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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

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

photo 2.jpg voila ce genre la ! si sa peut aider !!!
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
896
Retour