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