Copier et coller du contenu à partir d'une zone de texte à une cellule de feuille de calcul de gamme?

Je suis en train de travailler sur un projet VBA pour automatiser l'outil Excel pour un comptoir de services des requêtes de suivi. Je veux, une fois que le bouton de commande est cliqué, pour copier le contenu d'une zone de texte à une autre feuille de calcul en ligne. Si je répète la tâche, la zone de texte contenu doit être enregistré dans la prochaine cellule vide de la même ligne.

J'ai utilisé cette macro:

Private Sub CommandButton1_Click()
    TextBox1.Text = ""
    TextBox1.Copy
    'TextBox2.Copy
    'TextBox3.Copy
    Range("A2").Select
    Do
        If IsEmpty(ActiveCell) = False Then
            ActiveCell.Offset(1, 0).Select
        End If
    Loop Until IsEmpty(ActiveCell) = True
End Sub

InformationsquelleAutor Chinraj Palanichamy | 2012-02-27

2

Vous avez vraiment besoin d'une seule ligne de code dans votre sous:
```
Private Sub CommandButton1_Click()
    Range("A2").End(xlDown).Offset(1, 0).Value = TextBox1.Text
End Sub
```
Même si vous ne le disent pas, on dirait que vous voulez que la zone de texte à être effacé. Si oui, puis ajouter TextBox1.Text = "" une ligne avant de End Sub.

InformationsquelleAutor Jean-François Corbett

Vous devez vous connecter pour publier un commentaire.