Astuces Excel
  1. Astuces Excel
  3. Charger une gamme de cellules dans une textbox de formulaire unique
Intereting Posts
Le titre de l'axe secondaire n'apparaît pas sur le graphique via vba données du segment python de la colonne Entrée de string conditionnelle dans une cellule en fonction de l'input de l'user C # ou Python pour mon application Traduire les parameters binarys négatifs de R vers Excel Liste des fonctions VBA du classur? Comment puis-je afficher le text dans une cellule qui se trouve dans la même rangée que la plus grande cellule numérique d'une table dans Excel? VBA, comment faire de la formule en macro Power Bi Dates en graphique Lancez Excel à partir de C # et fermez-le sur "Enregistrer" Extraire les tables de mots en une seule colonne Excel Trouvez la valeur et la valeur d'utilisation près de celle-ci en EXCEL Comment combiner 3 variable VBA en date de datteype dans VBA Les données corrompues d'Excel 2010 Pivot Table Excel VBA countifs worksheetfunction

Charger une gamme de cellules dans une textbox de formulaire unique

J'utilise MSO Excel 2013 et j'essaie de charger une gamme de cellules dans une seule boîte de text sous une forme. C'est un file d'aide que j'écris. Tant que je charge une seule cellule, ça marche bien. Lorsque j'essaie de charger une gamme de cellules, je reçois une erreur. Existe-t-il un moyen de faire fonctionner cela? Mon code est le suivant: 

Private Sub cmbTopic_Change() Me.lblTopic.Caption = Me.cmbTopic.Value Select Case Me.lblTopic.Caption Case Is = "Understanding The Software" Me.txtHelp.Text = Worksheets("HelpFile").Range("A2").Text Case Is = "First Time Use" Me.txtHelp.Text = Worksheets("HelpFile").Range("B2").Text Case Is = "General Instructions" 'this is where I'm getting an error Me.txtHelp.Text = Worksheets("HelpFile").Range("C2:C4").Text End Select End Sub

Vous devrez build une string de valeurs de cellules et ensuite l'écrire dans la textbox.

Vous pouvez essayer quelque chose comme ça … 

 Dim Cell As Range For Each Cell In Sheet2.Range("C2:C4") If Str = "" Then Str = Cell.Value Else Str = Str & vbCrLf & Cell.Value End If Next Cell Me.txtHelp.MultiLine = True Me.txtHelp.Value = Str