OVH Cloud OVH Cloud

lire le texte d'une cellule contenant formule

5 réponses
Avatar
gilles
Bonjour =E0 tous,
sur xlxp,
Un maga tableau contenant plus de 1000lignes et 60=20
colonnes.
Les cellules contiennent presque toutes une formule.
La largeur des colonnes est adapt=E9e pour visualiser un max=20
de colonnes sur l'=E9cran.
Le pb est que ,dans une colonne, les formules des cellules=20
rentrent du texte qui n'apparait pas compl=E8tement et de=20
loin,.
Je voudrais mettre une z=F4ne de texte , plac=E9e en haut de=20
page qui, par une macro "private sub quand clik" ou=20
kekchose du genre, pr=E9senterait le texte de la cellule=20
saisie.
Pour =EAtre plus clair, cette z=F4ne de texte remplirait le=20
r=F4le de la barre de formule, mais ferait apparaitre le=20
texte et pas la formule.
Pour faire apparaitre le texte dans la z=F4ne j'ai trouv=E9=20
sur le super-fichier "fonction zip "de JJ HINET" la=20
formule kivabien
Par contre pour le code....
SI d'aventure quelques dieux sont en baisse d'activit=E9...
Qu'ils soient b=E9nis!!
=E0+
gilles

5 réponses

Avatar
CAP2
Salut,

si j'ai bien compris, tu mets ce code dans la feuille de code de ta feuille
(après avoir inséré dessus un textbox de la barre d 'outils "Contrôles") :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1.Value = ActiveCell.Value
End Sub

Normalement, dès que tu cliqueras sur une cellule, ta zone de texte
affichera le contenu affiché dans ta cellule...

Ca marche ?

CAP2
Avatar
Jacky
Bonsoir Gilles

Tu pourrais te servire de la barre d'état
'-------------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.StatusBar = Target
End Sub
'----------------
Salutations
JJ

"gilles" a écrit dans le message de
news:353a01c4abba$c5834e00$
Bonjour à tous,
sur xlxp,
Un maga tableau contenant plus de 1000lignes et 60
colonnes.
Les cellules contiennent presque toutes une formule.
La largeur des colonnes est adaptée pour visualiser un max
de colonnes sur l'écran.
Le pb est que ,dans une colonne, les formules des cellules
rentrent du texte qui n'apparait pas complètement et de
loin,.
Je voudrais mettre une zône de texte , placée en haut de
page qui, par une macro "private sub quand clik" ou
kekchose du genre, présenterait le texte de la cellule
saisie.
Pour être plus clair, cette zône de texte remplirait le
rôle de la barre de formule, mais ferait apparaitre le
texte et pas la formule.
Pour faire apparaitre le texte dans la zône j'ai trouvé
sur le super-fichier "fonction zip "de JJ HINET" la
formule kivabien
Par contre pour le code....
SI d'aventure quelques dieux sont en baisse d'activité...
Qu'ils soient bénis!!
à+
gilles
Avatar
gilles
merci à JACKY etCAP2
je teste ça et je vous tiens au courant
sinclou
gilles
-----Message d'origine-----
Salut,

si j'ai bien compris, tu mets ce code dans la feuille de
code de ta feuille

(après avoir inséré dessus un textbox de la barre
d 'outils "Contrôles") :


Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

TextBox1.Value = ActiveCell.Value
End Sub

Normalement, dès que tu cliqueras sur une cellule, ta
zone de texte

affichera le contenu affiché dans ta cellule...

Ca marche ?

CAP2


.



Avatar
gilles
après test
ni l'une ni l'autre ne fonctionne mais
je pense qu'il fait que je déclare kekchose dans un module
pour déclarer le textbox car j'ai un message erreur 424
à+
-----Message d'origine-----
Salut,

si j'ai bien compris, tu mets ce code dans la feuille de
code de ta feuille

(après avoir inséré dessus un textbox de la barre
d 'outils "Contrôles") :


Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

TextBox1.Value = ActiveCell.Value
End Sub

Normalement, dès que tu cliqueras sur une cellule, ta
zone de texte

affichera le contenu affiché dans ta cellule...

Ca marche ?

CAP2


.



Avatar
Jacky
Re..
La barre d'état, est-elle cochée
Menu/affichage/cocher barre d'état

JJ

"gilles" a écrit dans le message de
news:017b01c4abc5$6dd996e0$
après test
ni l'une ni l'autre ne fonctionne mais
je pense qu'il fait que je déclare kekchose dans un module
pour déclarer le textbox car j'ai un message erreur 424
à+
-----Message d'origine-----
Salut,

si j'ai bien compris, tu mets ce code dans la feuille de
code de ta feuille

(après avoir inséré dessus un textbox de la barre
d 'outils "Contrôles") :


Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

TextBox1.Value = ActiveCell.Value
End Sub

Normalement, dès que tu cliqueras sur une cellule, ta
zone de texte

affichera le contenu affiché dans ta cellule...

Ca marche ?

CAP2


.