Affichage de la plage de cellules sélectionnée dans Textbox1
Je suis confronté à un problème lors de l'affichage d'une plage de cellules sélectionnée à partir d'Excel dans un textbox d'un UserForm, dire C1:E14.
Le code ci-dessous est de me donner un Runtime error '13' Type Mismatch
:
Private Sub CommandButton1_Click()
Dim ActSheet As Worksheet
Dim SelRange As Range
Set ActSheet = ActiveSheet
Set SelRange = Selection
Range("TABLE").Select
Application.Goto "TABLE"
UserForm1.TextBox1.Text = Range("C1:E14").Value
'UserForm1.TextBox1.Text = Range("C1:E14").Select
End Sub
Si j'utilise .Value
qu'il donne l'erreur mentionnée ci-dessus, mais si j'utilise .Select "True"
c'est l'impression de l'objet UserForm zone de texte.
- C'est une gamme de 42 cellules individuelles ... que voulez-vous dans la zone de texte? chacun d'eux? délimité/affiche comment?
- Une question similaire, et la discussion du passé: stackoverflow.com/questions/5590963/...
- Pour résumer, vous ne pouvez pas utiliser le
Value
(ouText
) les biens d'unRange
objet qui contient plus d'une cellule, à moins que, vous pouvez l'affecter à une variable de typeVariant
(parce que c'est un tableau). - Pourquoi avez-vous besoin de faire cela? Juste de la curiosité.
Vous devez vous connecter pour publier un commentaire.
Les commentaires sont corrects. Vous essayez de définir une plage d'une chaîne de caractères.
vous pouvez la transformer en une plage à l'aide de quelque chose comme cela
Puis
UserForm1.TextBox1.Text = Join(",",Range("C1:E14"))
ou si vous voulez faire de nouvelles lignes de chaque cellule