Discussion :

[iIncoming]

Bonsoir à tous,

Existe-t-il un moyen sous EXCEL 2003 de modifier l'apparence de l'infobulle qui s'affiche lorsque je sélectionne une cellule via :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Données > Validation > Message de saisie

Puis-je en changer la largeur ? Hauteur, couleur de fond, police etc. ?
J'ai beaucoup cherché sur google sans rien trouver...

Auriez-vous une idée ?
Merci !

[Daniel.C]

Bonjour,

A mon humble avis, tu ne peux rien changer directement. Si tu veux un message personnalisé, passe par VBA avec une macro évènementielle, un userform et un label. Et encore te faudra-t-il cliquer ou double cliquer sur la cellule. Si tu es disposé à adopter cette solution, dis-le.

[iIncoming]

Bonjour Daniel ! Merci pour votre réponse.

Oui je suis complètement prêt à passer par VBA, mais je ne m'y connais pas assez pour produire quelque chose venant de moi...

L'essentiel pour moi, et de pouvoir afficher une infobulle à un endroit précis de ma feuille de travail lorsque je sélectionne ma cellule.

Actuellement, la solution que j'utilisais ne permet pas d'insérer beaucoup de texte (tout est trop exiguë) d'où ma volonté de personnaliser ces infobulles (plus large, plus haute et d'une autre police (titre gras, texte normal).

Merci pour votre aide ! Je désespère un peu, cette question semble être sacrement ardue à résoudre.

[Daniel.C]

Regarde le classeur en pièce jointe. J'ai mis la macro suivante dans le module de la feuille. Si tu cliques sur une cellule de la colonne H, le message s'affiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 8 And Target.Count = 1 Then
        UserForm1.Show
        Application.Wait Now() + TimeValue("0:0:1")
        UserForm1.Hide
    End If
End Sub

Je t'expliquerai le code si la macro te convient.

[iIncoming]

Ouah ! C'est énorme ! Merci beaucoup effectivement ça pourrait complètement me convenir ! Je suis tout ouïe concernant l'explication !

[Daniel.C]

Bon, je vais expliquer et si tu ne comprends pas, signale-moi à quel endroit. Tu commences par ouvrir la fenêtre VBE (Alt+F11 depuis la fenêtre Excel). Repères, à gauche le projet portant le nom de ton classeur. Clic droit dessus, clic sur Insertion et Userform. Ce dernier s'affiche; fais un clic droit dessus et clique sur "Porpriétés"; modifie la propriété "ShowModal" pour la mettre à "False"; dans la boîte à outils également affichée, clique sur le contrôle "Label" (un "A" majuscule). Clique dans l'userform, et, en maintenant le bouton de la souris enfoncée, dessine le rectangle destiné à contenir le texte. Fais un clic droit dessus et un clic sur "Propriétés". Note le texte destiné à être affiché dans la propriété "Caption". Clique sur les "..." de la propriété "Font" pour définir les attributs de la police. Si tu veux changer la couleur du texte, utilise la propriété "ForeColor". Je te laisse découvrir les autres propriétés. Quand tu as fini, ferme la fenêtre Propriétés et, en te servant des "poignées" situées aux angles et au milieu des côtés de l'userform, en cliquant dessus et en maintenant le bouton de la souris enfoncé, dimensionne l'userform. Reviens dans Excel et fais un clic droit sur l'onglet de la feuille où se trouvent les validations de liste. Clique sur "Visualiser le code". Dans la partie droite de la fenêtre, colle la macro suivante en la modifiant selon tes besoins.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'cette macro se déclenche quand on sélectionne une cellule
' de la plage définie (ici, la colonne H)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'si la cellule sélectionnée est en colonne H et qu'une seule cellule est sélectionnée
    If Target.Column = 8 And Target.Count = 1 Then
        'on affiche le userform
        UserForm1.Show
        'si la propriété du userform n'était pas positionnée à "False", la macro s'arrêterait tant qu'il
        'serait affiché
        'on attend le temps indiqué (ici 1 seconde)
        Application.Wait Now() + TimeValue("0:0:1")
        'et on masque le userform
        UserForm1.Hide
    End If
End Sub

[Denis Placé]

Regarde le classeur en pièce jointe.

Bonjour,

Je reprends la discussion dans ce (très) ancien message car le thème m'intéresse.
Je ne vois pas la pièce jointe, pouvez-vous me dire où elle est, svp ?
Merci

[Daniel.C]

Bonjour,

Je ne me souviens plus de la discussion, mais, en cliquant sur le lien, je récupère bien le classeur.

Cordialement.

Daniel