Afficher dans un textbox le texte d'une cellule sélectionnée

  • Initiateur de la discussion Initiateur de la discussion gagletor
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gagletor

XLDnaute Nouveau
Bonjour à tous,

Je souhaiterais afficher dans un textbox, le texte d'une cellule que j'aurai sélectionnée avec la souris.
Actuellement j'ai des informations écrites dans des cellules, en vertical, afin de gagner de la place. Cepandant il est difficile de les lire, d'où ma demande.

En clair, si je sélectionne la cellule F2, je voudrai que dans mon textbox, le texte la cellule F2 apparaisse.

Si quelqu'un à une autre idée, genre que lorsque je sélectionne la cellule, le texte bascule automatiquement à l'horizontale, et lorsque je la désélectionne, il se remette verticale. Sachant que mes cellules sont protégées...

J'ai essayé un macro de ce genre mais ça ne fonctionne pas, je n'affiche que le texte de la première condition..

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Cells(2, 6).select = True Then
TextBox1.Text = Range("f2").f
Else
If Cells(2, 7).select = True Then
TextBox1.Text = Range("g2").Text
Else
End If
End If
End Sub

J'ai aussi essayé avec .activate à la place de .select

merci de l'aide que vous pourrez m'apporter

Bonne journée à tous
 
Re : Afficher dans un textbox le texte d'une cellule sélectionnée

Bonjour gagletor, toutes et tous

Essaye le code ci-dessous, a placer dans le module de la feuille ou se trouve ton textbox.

Code:
TextBox1.Value = Range("F4").Value

Bonne journée.
@+
 
Re : Afficher dans un textbox le texte d'une cellule sélectionnée

Merci, ça fonctionne pour une cellule, mais je voudrais que dans cette même textbox, s'affiche le texte de la cellule que j'ai selectionné.

Je clique sur la F2 et le text apparait
Je clic sur la G2 ...etc

Merci pour cette approche Pierrot93 🙂

@++
 
Re : Afficher dans un textbox le texte d'une cellule sélectionnée

Re Gagletor,

il faut mettre ton code dans la procédure evenementielle de ta feuille.

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

TextBox1.Value = ActiveCell.Value

End Sub

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
193
Réponses
4
Affichages
548
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour