Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Commentaire sur une liste déroulante

11 réponses
Avatar
JP
Bonjour,

Je voudrais savoir s'il est possible de faire apparaitre un commentaire au =
survol des =E9l=E9ments de liste d=E9roulante?
J'ai par exemple une liste d=E9roulante compos=E9e de A;B;C;D

Au survol de la lettre:
A je voudrais faire apparaitre "Place VIP"
B "Places impaires, 2 =E0 98 amphi Georges BRASSENS"
C "Places paires de 100 =E0 258, amphi Georges BRASSENS"
D "Places paires de 260 =E0 300, amphi Georges BRASSENS"

Merci=20

JP

10 réponses

1 2
Avatar
MichD
Bonjour,

Le commentaire existe et est possible pour le contenu de la cellule, mais
non pour le survol de chaque élément dans la liste déroulante contenu
dans une liste de validation.
Avatar
JP
Dommage et merci!

JP
Avatar
Jacquouille
Bonjour
Ne pourrais-tu biaiser?
Au lieu de mettre A, B ....., tu pourrais inscrire directement dans la liste
déroulante :
- au lieu de A --> "Place VIP"
- au lieu de B:--> de 3 à 97, amphi Georges Brassens ......
Bonne chance et bon WE


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"JP" a écrit dans le message de groupe de discussion :


Dommage et merci!

JP


---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Avatar
JP
Bonjour Jacquouille,

Les cellules où se trouvent les listes déroulantes ne sont pas assez la rges.
Elles font 2 de large, justes assez larges pour une lettre majuscule.

Merci et bon week-end à toi aussi.

JP
Avatar
Jacky
Bonjour,

A défaut de mieux..... :o)
http://cjoint.com/?DCDqjSWbS87

--
Salutations
JJ


"JP" a écrit dans le message de news:

Dommage et merci!

JP
Avatar
isabelle
bonjour JP,

tu pourrais utiliser l'événement Worksheet_Change,

j'ai ajouté une feuille "Liste" et en cellule A1:B4 j'ai mis

A Place VIP
B Places impaires, 2 à 98 amphi Georges BRASSENS
C Places paires de 100 à 258, amphi Georges BRASSENS
D Places paires de 260 à 300, amphi Georges BRASSENS

et sur la page code de la feuille de la liste de validation le code suivant:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.ClearComments
x = Application.Match(Target, Sheets("Liste").Range("A:A"), 0)
Target.AddComment Sheets("Liste").Cells(x, 2).Value
End Sub

isabelle

Le 2014-03-29 10:49, JP a écrit :
Bonjour Jacquouille,

Les cellules où se trouvent les listes déroulantes ne sont pas assez larges.
Elles font 2 de large, justes assez larges pour une lettre majuscule.

Merci et bon week-end à toi aussi.

JP

Avatar
isabelle
il faudrait ajouter une vérification en début de macro
pour savoir si le changement c'est bien produit sur la cellule de la liste de
validation
sur mon exemple la validation est en cellule B3.

If Target.Address <> "$B$3" Then Exit Sub

isabelle

Le 2014-03-29 10:49, JP a écrit :
Bonjour Jacquouille,

Les cellules où se trouvent les listes déroulantes ne sont pas assez larges.
Elles font 2 de large, justes assez larges pour une lettre majuscule.

Merci et bon week-end à toi aussi.

JP

Avatar
isabelle
http://cjoint.com/?DCDqGodZsVr

isabelle


Le 2014-03-29 11:29, isabelle a écrit :
il faudrait ajouter une vérification en début de macro
pour savoir si le changement c'est bien produit sur la cellule de la liste de
validation
sur mon exemple la validation est en cellule B3.

If Target.Address <> "$B$3" Then Exit Sub

isabelle
Avatar
Jacky
Re...
A la vue du classeur d'Isabelle..
Correction d'une (grossière) erreur de "Comment.delete"
Xl 2003 affiche les commentaires par défaut, dans les versions suivante il faut une commande supplémentaire.
Correction version 2007.
http://cjoint.com/?DCDrclXattv
--
Salutations
JJ


"Jacky" a écrit dans le message de news: lh6nr2$6el$
Bonjour,

A défaut de mieux..... :o)
http://cjoint.com/?DCDqjSWbS87

--
Salutations
JJ


"JP" a écrit dans le message de news:

Dommage et merci!

JP




Avatar
MichD
Bonjour Isabelle,

On ne l'a pas encore vu la super fonction!!!

;-))
1 2