Copier les entrées d'une zone de texte
Résolu
gham
Messages postés
48
Statut
Membre
-
gham Messages postés 48 Statut Membre -
gham Messages postés 48 Statut Membre -
Bonjour,
Je veux savoir comment faire copier des entrées d'une zone de texte d'un UserForm dans une cellule précis d'une feuille de classeur.
(code vbe) svp.
Je veux savoir comment faire copier des entrées d'une zone de texte d'un UserForm dans une cellule précis d'une feuille de classeur.
(code vbe) svp.
A voir également:
- Copier les entrées d'une zone de texte
- Alternative zone telechargement - Accueil - Outils
- Comment copier une vidéo youtube - Guide
- Copier texte pdf - Guide
- Copier le texte d'une image - Guide
- Super copier - Télécharger - Gestion de fichiers
6 réponses
Ben tu doubles cliques sur ton bouton Validation, et ça te crée la macro :
Private Sub CommandButton1_Click()
End Sub
Entre les deux lignes, tu insères la ligne de code que je t'ai donnée, ce qui donne :
Private Sub CommandButton1_Click()
Range("$A$1").Value = TextBox1
End Sub
Pour le bouton Annuler :
Private Sub CommandButton2_Click()
Unload Me
End Sub
Bien entendu, tu peux modifier les noms des boutons, des textbox, etc.
m@rina
Private Sub CommandButton1_Click()
End Sub
Entre les deux lignes, tu insères la ligne de code que je t'ai donnée, ce qui donne :
Private Sub CommandButton1_Click()
Range("$A$1").Value = TextBox1
End Sub
Pour le bouton Annuler :
Private Sub CommandButton2_Click()
Unload Me
End Sub
Bien entendu, tu peux modifier les noms des boutons, des textbox, etc.
m@rina
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bjr
Amélioration de la macro, il vous mieux travailler avec des variables
car une variable peux ce convertir
Exemple une date ou un nombre décimal
Private Sub CommandButton1_Click()
dim mavaleur as string
mavaleur = range("a1").value
mavaleur = TextBox1
End Sub
Pour le bouton Annuler :
Private Sub CommandButton2_Click()
Unload Me
End Sub
Amélioration de la macro, il vous mieux travailler avec des variables
car une variable peux ce convertir
Exemple une date ou un nombre décimal
Private Sub CommandButton1_Click()
dim mavaleur as string
mavaleur = range("a1").value
mavaleur = TextBox1
End Sub
Pour le bouton Annuler :
Private Sub CommandButton2_Click()
Unload Me
End Sub