Récupérer instantanément la valeur TextBox dans une cellule excel

Résolu/Fermé
sofienexcel Messages postés 70 Date d'inscription vendredi 2 janvier 2015 Statut Membre Dernière intervention 20 février 2021 - 19 févr. 2021 à 23:08
sofienexcel Messages postés 70 Date d'inscription vendredi 2 janvier 2015 Statut Membre Dernière intervention 20 février 2021 - 20 févr. 2021 à 15:55
Bonjour,

Je souhaite mettre la valeur d'un textbox dans une cellule, j'utilise le code suivant:
Sheets("Feuil1").Range("f2").Value = UserForm1.TextBox1.Value
Cà ne fonctionne que si je quitte le userforme et je clique sur une autre cellule (je pense que c'est une question de refresh).
Ca manque une chose pour que le code fonctionne instantanément sans besoin de cliquer sur une cellule?

Merci
A voir également:

2 réponses

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
20 févr. 2021 à 06:26
Bonjour,
deux possibilités
après avoir changer de textbox
Private Sub TextBox1_AfterUpdate()
  Sheets("Feuil1").Range("f2").Value = UserForm1.TextBox1.Value
End Sub

sur le changement du textbox
Private Sub TextBox1_Change()
  Sheets("Feuil1").Range("f2").Value = UserForm1.TextBox1.Value
End Sub
1
sofienexcel Messages postés 70 Date d'inscription vendredi 2 janvier 2015 Statut Membre Dernière intervention 20 février 2021
20 févr. 2021 à 15:55
Merci infiniment

ca fonctionne très bien
0