Afficher contenu et non formule

Fermé
pascal_78 Messages postés 504 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 16 novembre 2014 - 22 déc. 2009 à 17:43
pascal_78 Messages postés 504 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 16 novembre 2014 - 12 janv. 2010 à 14:44
Bonjour,

Voilà, je fait un planning pour une équipe de commerciaux et ce planning a des liens qui vont "prendre" et afficher les informations des planning individuels. Le soucis, est, que quand un texte saisi est trop long pour s'afficher dans une case, il est impossible de voir ce qu'il y a de saisie sans agrandir cette cellule et de ce fait ne plus avoir un affichage "correct". Il faudrait donc que le contenu de la cellule s'affiche quand je sélectionne celle-ci et non la formule qu'elle contient. J'espère avoir été assez clair et pour vous donner un exemple, je vous joint un modèle (très light) du planning.

https://www.cjoint.com/?mwrQ0irIk5

Merci d'avance pour votre aide.
A voir également:

9 réponses

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
22 déc. 2009 à 19:25
Bonjour,

Une solution par macro : le texte est créé en commentaire lors du clic sur la cellule, ensuite il s'affiche au survol.
Si le texte a évolué il faut recliquer sur la cellule pour le rafraichir.
Nommer la plage concernée 'Commenter'
Pascal78.xls

eric
0
pascal_78 Messages postés 504 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 16 novembre 2014 38
22 déc. 2009 à 21:53
Merci Eric,

Et comment tu fais ça?
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
22 déc. 2009 à 22:28
- sélectionner et nommer la plage concernée
- Clic-droit sur l'onglet de la feuille concernée, choisir 'visualiser le code'
- coller le code (le copier du classeur exemple) dans la fenetre de droite

Si plusieurs feuilles concernées prendre un nouveau nom de plage pour chaque feuille et le remplacer dans le code (respecter les majuscules du nom)
0
pascal_78 Messages postés 504 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 16 novembre 2014 38
22 déc. 2009 à 22:45
Ok, j'essais de mettre cela en pratique demain.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
pascal_78 Messages postés 504 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 16 novembre 2014 38
23 déc. 2009 à 10:47
Bonjour Eriic,

Besoin d'explications :
- sélectionner et nommer la plage concernée = OK
- Clic-droit sur l'onglet de la feuille concernée, choisir 'visualiser le code' = OK
- coller le code (le copier du classeur exemple) dans la fenetre de droite = je ne trouve pas ce code

Si plusieurs feuilles concernées prendre un nouveau nom de plage pour chaque feuille et le remplacer dans le code (respecter les majuscules du nom) = alors là, pour le "nom de plage" je n'ai pas du tout compris.

Désolé ;-(
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
23 déc. 2009 à 11:17
Bonjour,

Si tu ouvres le classeur exemple et que tu fais un cli-droit sur l'onglet feuil1 vbe s'ouvre et tu y lis
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [Commenter]) Is Nothing Then Exit Sub
    If Target.Value = 0 Or Len(Target.Value) = "" Then
        Target.ClearComments
        Else
        On Error Resume Next
        Target.AddComment
        On Error GoTo 0
        Target.Comment.Visible = False
        Target.Comment.Text Text:=Target.Value
    End If
End Sub

C'est ça le code qu'il faut copier (bon, maintenant tu peux le copier d'ici ;-))

Si tu dois le faire sur une 2nde feuille, sélectionne la plage concernée et nomme là Commenter2, colle lui son code et dans le code que tu auras collé à nouveau dans la 2nde feuille remplace :
If Intersect(Target, [Commenter]) Is Nothing Then Exit Sub
par
If Intersect(Target, [Commenter2]) Is Nothing Then Exit Sub

C'est plus clair ?
eric
0
Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 17 090
23 déc. 2009 à 12:43
Bonjour Pascal.

Comme je n'y connais rien en macro, j'aurais résolu le problème avec les liens hypertextes :
En C7 je crées un lien hypertexte vers M7 (avec l'infobulle "En déplacement ...") et en M7 un lien hypertexte vers C7 (avec l'infobulle "Retour").
https://www.cjoint.com/?mxmRIazrGD
0
pascal_78 Messages postés 504 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 16 novembre 2014 38
23 déc. 2009 à 21:58
JE regarde cela demain (si je peux) et te fais un retour
0
pascal_78 Messages postés 504 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 16 novembre 2014 38
12 janv. 2010 à 14:44
Re (avec un peu de retard),

Je n'y arrive pas . Je pense ne pas avoir été assez clair dans ma demande, je remet le fichier avec une explication plus "détaillée".

Voilà, je fait un planning pour une équipe de commerciaux et ce planning a des liens qui vont "prendre" et afficher les informations des planning individuels issu d'autres fichiers Excel. Le soucis, est, que quand un texte saisi est trop long pour s'afficher dans une cellule, il est impossible de voir ce qu'il y a de saisie sans agrandir cette cellule et de ce fait ne plus avoir un affichage "correct". Il faudrait donc que le contenu de la cellule s'affiche quand je sélectionne celle-ci et non la formule qu'elle contient.

https://www.cjoint.com/?bmoRQfQpSW

Merci de votre aide.

0