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

Signaler
Messages postés
70
Date d'inscription
vendredi 2 janvier 2015
Statut
Membre
Dernière intervention
20 février 2021
 -
Messages postés
70
Date d'inscription
vendredi 2 janvier 2015
Statut
Membre
Dernière intervention
20 février 2021
 -
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

2 réponses

Réponse 1 / 2
Messages postés
1021
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
22 février 2021
 211
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
Réponse 2 / 2
Messages postés
70
Date d'inscription
vendredi 2 janvier 2015
Statut
Membre
Dernière intervention
20 février 2021
Merci infiniment

ca fonctionne très bien
Répondre Posez votre question