1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Aperçu (Genre d'info-bulle) d'une cellule trop large

Discussion dans 'Forum Excel' démarrée par Gedch, 21 Septembre 2010.

  1. Gedch

    Gedch XLDnaute Occasionnel

    Inscrit depuis le :
    21 Septembre 2010
    Messages :
    188
    "J'aime" reçus :
    1
    Utilise:
    Excel 2007 (PC)
    Bonjour

    Je souhaiterais en passant la souris sur une cellule dont la largeur ne permet pas de voir tout son contenu directement, d’avoir un aperçu (genre d'info-bulle) comme lorsque l’on passe sur les commentaires par exemple.

    Est-ce possible ?

    Merci
     
  2. Chargement...

    Discussions similaires - Aperçu (Genre d'info Forum Date
    Problème aperçu de colonne / ligne RechercheV Forum Excel 23 Mars 2018
    XL 2010 Apercu d'image lors de survol de Cellule - Inventaire Mobilier Forum Excel 15 Mars 2018
    Sortie de l'aperçu avant impression Forum Excel 15 Janvier 2018
    XL 2007 aperçu avant impression sv besoin d'aide Forum Excel 28 Août 2017
    XL 2007 Problème avec l'aperçu avant impression Forum Excel 25 Novembre 2016

  3. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24151
    "J'aime" reçus :
    1873
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonjour Gedch, bienvenue sur XLD,

    Le simple déplacement du curseur sur une feuille de calcul ne crée pas d'évènement, ce que vous souhaitez n'est possible que sur un graphique ou une image.

    Par contre la sélection (ou la modification du contenu) d'une cellule peut être envisagée.

    Par exemple ces macros dans le code de de la feuille (clic droit sur l'onglet et Visualiser le code) :

    Code (Text):
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Info ActiveCell
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
    Info Target
    End Sub

    Sub Info(Target As Range)
    With Target.Validation
      .Delete
      .Add Type:=xlValidateInputOnly
      .InputMessage = Target.Cells(1, 1)
    End With
    End Sub
    A+
     
  4. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24151
    "J'aime" reçus :
    1873
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Re,

    Il y a aussi la possibilité de créer un lien hypertexte avec info-bulle quand la cellule est renseignée.

    Toujours dans le code de la feuille :

    Code (Text):
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1, 1) <> "" Then Me.Hyperlinks.Add Anchor:=Target, _
      Address:="", SubAddress:="", ScreenTip:=Target.Cells(1, 1).Text
    End Sub
    Edit : on peut limiter la création aux cellules dont le nombre de caractères dépasse une certaine limite (10) :

    Code (Text):
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Len(Target.Cells(1, 1)) > 10 Then Me.Hyperlinks.Add Anchor:=Target, _
      Address:="", SubAddress:="", ScreenTip:=Target.Cells(1, 1).Text
    End Sub
    A+
     
    Dernière édition: 21 Septembre 2010
  5. Gedch

    Gedch XLDnaute Occasionnel

    Inscrit depuis le :
    21 Septembre 2010
    Messages :
    188
    "J'aime" reçus :
    1
    Utilise:
    Excel 2007 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonjour job75

    Merci pour tes 2 réponses,

    Elles me conviennent parfaitement toutes les deux

    Mais, il y a une chose que je ne comprends pas bien

    Une fois que j’ai entré les macros concernées et que les ai activées
    Le résultat est là !, Parfait !

    Mais si je recharge cette feuille sans activer les macros ou même que je les supprime
    Le résultat est toujours présent !

    Dans le cas du lien Hypertexte, vu que le lien a été généré, il reste évidement présent
    Mais dans le 1er cas, je ne m’explique pas ce résultat ???

    Peux-tu m’expliquer ce fait ?

    Merci
     
  6. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24151
    "J'aime" reçus :
    1873
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Re,

    Le résultat est toujours présent pour chaque validation déjà créée.

    Idem pour chaque lien hypertexte déjà créé.

    Mais les mises à jour du message de saisie ou de l'info-bulle ne se font plus si l'on modifie le contenu de la cellule :)

    A+
     
  7. Gedch

    Gedch XLDnaute Occasionnel

    Inscrit depuis le :
    21 Septembre 2010
    Messages :
    188
    "J'aime" reçus :
    1
    Utilise:
    Excel 2007 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Re-bonjour

    Effectivement les mises à jour ne se font que si on active les macros
    Sinon les cellules restent à l'état initiales.

    Merci encore, je vais opter pour la 1ère méthode, car c'est la plus lisible pour moi.

    Est-il possible cependant pour la 1ère méthode de définir le nombre de caractère au delà duquel la macro s'applique comme en celle qui concerne les liens hypertextes ?

    Ou mieux, cela serait l'extase ! Que cette macro s'applique seulement à partir du moment ou le nombre de caractères dépasse la larguer de la colonne ?

    Merci
     
  8. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24151
    "J'aime" reçus :
    1873
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Re,

    Code (Text):
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Info ActiveCell
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
    Info Target
    End Sub

    Sub Info(Target As Range)
    Dim larg1 As Single, larg2 As Single
    Application.ScreenUpdating = False
    With Target.Cells(1, 1)
      larg1 = .ColumnWidth
      .Columns.AutoFit 'ajustement de la colonne
      larg2 = .ColumnWidth
      .ColumnWidth = larg1
    End With
    With Target.Validation
      .Delete
      If larg2 > larg1 Then
        .Add Type:=xlValidateInputOnly
        .InputMessage = Target.Cells(1, 1)
      End If
    End With
    End Sub
    Alors l'extase comment c'est ? Moi ça ne m'arrive plus souvent :D

    A+
     
  9. Gedch

    Gedch XLDnaute Occasionnel

    Inscrit depuis le :
    21 Septembre 2010
    Messages :
    188
    "J'aime" reçus :
    1
    Utilise:
    Excel 2007 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Chapeau !!!

    Alors l'extase comment c'est ?, c'est super !!!! :):):):)

    Et en plus même si je change la largeur, 2 ou secondes et la cellule se réactive pour tenir compte de ma nouvelle largeur ! Génial :)

    Une dernière petite chose, si je veux revenir en arrière et ne plus avoir cet "info-bulle" est-ce possible ?
     
  10. eriiiic

    eriiiic XLDnaute Barbatruc

    Inscrit depuis le :
    12 Juillet 2008
    Messages :
    2161
    "J'aime" reçus :
    140
    Utilise:
    Excel 2010 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonsoir tout le monde,

    avoir un aperçu (genre d'info-bulle) comme lorsque l’on passe sur les commentaires
    Peut-être un peu tard mais autre proposition : mettre le contenu en commentaire justement.

    voir fichier joint

    eric
     

    Pièces jointes:

  11. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24151
    "J'aime" reçus :
    1873
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonjour Gedch, eriiiic, le forum,

    Oui, il suffit de diminuer le nombre de caractères ou d'augmenter la largeur de la colonne.

    Mais avec la macro du post #7, le message ne s'efface pas immédiatement (quand on efface la cellule) : l'instruction .Delete semble ne pas toujours s'exécuter [EDIT : sur mon ordi avec Excel 2003].

    Alors prenez cette macro :

    Code (Text):
    Sub Info(Target As Range)
    Dim larg1 As Single, larg2 As Single
    Application.ScreenUpdating = False
    With Target.Cells(1, 1)
      larg1 = .ColumnWidth
      .Columns.AutoFit 'ajustement de la colonne
      larg2 = .ColumnWidth
      .ColumnWidth = larg1
    End With
    With Target.Validation
      .Delete
      .Add Type:=xlValidateInputOnly
      .InputMessage = [COLOR="Red"]IIf(larg2 > larg1, Target.Cells(1, 1), "")[/COLOR]
    End With
    End Sub
    Maintenant le message s'efface immédiatement quand on efface la cellule ou qu'on diminue le nombre de caractères.

    A+
     
    Dernière édition: 22 Septembre 2010
  12. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24151
    "J'aime" reçus :
    1873
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Re,

    Une variante que le post d'eriiiic m'a inspirée :

    Code (Text):
    Sub Info(Target As Range)
    Dim larg1 As Single, larg2 As Single, f As String
    Application.ScreenUpdating = False
    With Target.Cells(1, 1)
      larg1 = .ColumnWidth
      .Columns.AutoFit 'ajustement de la colonne
      larg2 = .ColumnWidth
      .ColumnWidth = larg1
      f = .NumberFormat
    End With
    With Target.Validation
      .Delete
      .Add Type:=xlValidateInputOnly
      .InputMessage = IIf(larg2 > larg1, Format(Target.Cells(1, 1), f), "")
    End With
    End Sub
    Le message utilise le format nombre de la cellule.

    A+
     
  13. Gedch

    Gedch XLDnaute Occasionnel

    Inscrit depuis le :
    21 Septembre 2010
    Messages :
    188
    "J'aime" reçus :
    1
    Utilise:
    Excel 2007 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonjour

    Oui effectivement la réinitialisation se fait peut-être un peu plus vite.

    Parfois, il faut cliquer 2 fois de suite, sur la cellule.

    Mais cet un détail, ce n’est absolument pas grave, je ne vais pas changer la largeur de mes cellules toutes les 5 minutes !

    Lorsque je disais « Une dernière petite chose, si je veux revenir en arrière et ne plus avoir cet "info-bulle" est-ce possible ? » je voulais demander en fait, dans le cas où pour une raison quelconque, je ne voulais plus de cet « Info-bulle », je supprimerai en 1er la macro, mais est-ce que je pourrais supprimer les infos-bulles qui sont déjà en place dans mes cellules ?

    Le fait de supprimer la macro n’enlève pas l’effet déjà engendré !

    Ma feuille est très conséquente et j’aime bien garder une sécurité afin de pouvoir revenir en arrière en cas de besoin
     
  14. Gedch

    Gedch XLDnaute Occasionnel

    Inscrit depuis le :
    21 Septembre 2010
    Messages :
    188
    "J'aime" reçus :
    1
    Utilise:
    Excel 2007 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonjour Eric

    Merci beaucoup pour ta macro

    C’est très bien pensé aussi et l’effet est également très intéressant.

    Mais il y a cependant un petit problème :
    Il ne faut pas avoir déjà de commentaires, sinon cela l’efface.

    Je te remercie, je vais garder ta macro, car dans certains cas elle pourrait m’être fort utile.

    A+
     
  15. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24151
    "J'aime" reçus :
    1873
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonsoir Gedch,

    Sélectionnez toutes les cellules (Ctrl+A) puis utilisez la commande Validation de données pour supprimer d'un coup toutes les validations.

    A+
     
  16. Gedch

    Gedch XLDnaute Occasionnel

    Inscrit depuis le :
    21 Septembre 2010
    Messages :
    188
    "J'aime" reçus :
    1
    Utilise:
    Excel 2007 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonsoir job75

    Et voila le travail !!!

    Les info-bulles automatiques en fonction de la largeur
    Et le remède en cas de problème

    Le paradis, quoi ;)

    Et pour la cerise sur le gâteau :
    Est-il possible de modifier la couleur du fond ou du texte de l'info-bulle ?
    (C'est pâle, on n'a du mal à lire !)
    Chiant le mec !!! :mad:
     
  17. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24151
    "J'aime" reçus :
    1873
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonjour Gedch, le forum,

    Pour modifier l'apparence des info-bulles Windows voyez ce fil :

    Comment augmenter la taille des infobulles ? - Fiche pratique

    Mais ici il s'agit de messages de saisie dans les validations de données d'Excel, je ne sais pas si ça changera quelque chose.

    Et je n'ai pas testé car je n'ai pas envie de modifier le paramétrage de mon ordi :)

    A+
     
  18. Gedch

    Gedch XLDnaute Occasionnel

    Inscrit depuis le :
    21 Septembre 2010
    Messages :
    188
    "J'aime" reçus :
    1
    Utilise:
    Excel 2007 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Je n'avais vu ce poste

    Je l'ai essayé, mais rien se passe !

    Est-ce qu'il faut combiner ta macro avec celle d'eriiiic ?

    A+
     
  19. Gedch

    Gedch XLDnaute Occasionnel

    Inscrit depuis le :
    21 Septembre 2010
    Messages :
    188
    "J'aime" reçus :
    1
    Utilise:
    Excel 2007 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    J'ai essayé, cela fonctionne parfaitement,
    Petit problème effectivement, cela agit sur toutes les Info-bulles de Windows

    On peut tout remettre à létat initial sans problème !, mais cela fait beaucoup de manipes ....

    A+
     
  20. hamcec

    hamcec XLDnaute Nouveau

    Inscrit depuis le :
    11 Décembre 2007
    Messages :
    30
    "J'aime" reçus :
    0
    Habite à:
    Cergy
    Utilise:
    Excel 2003 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonsoir le forum,

    Il ne faut pas oublier de gérer l'erreur n°1004 (Erreur définie par l'application ou par l'objet) quand le nombre de caractères de la cellule traitée est supérieur à 254 :

    En utilisant par exemple le code suivant :
    Left(Trim(Target), 254)

    Ce qui revient à supprimer les espaces à droite et à gauche et à conserver les 254 premiers caractères.

    Sinon cette astuce est excellente !

    A+
    Hamcec
     
  21. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24151
    "J'aime" reçus :
    1873
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re : Aperçu (Genre d'info-bulle) d'une cellule trop large

    Bonjour Gedch, hamcec, le forum,

    @ Gedch post #17

    Pour voir la différence entre les macros des posts #10 et #11, entrez une date et mettez la cellule au format personnalisé jjjj j mmmm aaaa.

    @ Gedch post #18

    J'espérais bien obtenir ce résultat.

    Peut-être existe-t-il des API Windows permettant de modifier l'apparence des info-bulles depuis Excel, mais je n'ai rien trouvé.

    @ hamcec post #19

    Tout à fait exact, il faut limiter à 254 caractères, donc modifier la macro :

    Code (Text):
    Sub Info(Target As Range)
    Dim larg1 As Single, larg2 As Single, f As String
    Application.ScreenUpdating = False
    With Target.Cells(1, 1)
      larg1 = .ColumnWidth
      .Columns.AutoFit 'ajustement de la colonne
      larg2 = .ColumnWidth
      .ColumnWidth = larg1
      f = .NumberFormat
    End With
    With Target.Validation
      .Delete
      .Add Type:=xlValidateInputOnly
      .InputMessage = IIf(larg2 > larg1, [COLOR="Red"]Format(Left(Trim(Target.Cells(1, 1)), 254), f)[/COLOR], "")
    End With
    End Sub
    A+
     

Partager cette page