placement de commantaire de liste deroulante

Salut Joris,
A mettre dans le module de ta feuille et adapte le nom de la cellule cible,
dans cet exemple, la cellule est C11 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cadre As Shape
Dim Haut As Single
Dim Gauche As Single
Dim Texte As String

If Intersect(Target, [C11]) Is Nothing Then
'supprime le commentaire si la cellule
'active n'est pas C11, à adapter
On Error Resume Next
Set Cadre = Me.Shapes("Commentaire")
If Err.Number = 0 Then Cadre.Delete
On Error GoTo 0
Else
'texte du commentaire
Texte = "Voici mon commentaire pour cette cellule" _
& vbLf & " pour expliquer la nécessité de la liste" _
& vbLf & " déroulante !"

With Target
'commentaire à droite de la cellule
'15 = largeur du bouton de la liste, adapte
Haut = .Top
Gauche = .Left + .Width + 15
End With
'ajoute le commentaire et l'adapte au texte
Set Cadre = Me.Shapes.AddShape _
(1, Gauche, Haut, 1, 1)
With Cadre
.Name = "Commentaire"
With .TextFrame
.Characters.Text = Texte
.AutoSize = True
End With
.Visible = True
End With
End If
Set Cadre = Nothing
End Sub

Hervé.

"Joris" <Joris@discussions.microsoft.com> a écrit dans le message news:
FA30B710-8BEC-426F-BCF0-80A675043EA9@microsoft.com...

Bonjour a tous,
je travaille sous excel 97 et j'ai une question sur les liste deroulante.

Je cree une liste deroulante dans une cellule et un commentaire quand
l'utilisateur selectionne cette cellule. Ce commentaire apparait juste en

dessous de la cellule et cela ne me convient pas.

On peut deplacer le commentaire. Jusque la tout va bien.
Malheureusement quand je sauve mon travail et que je le reouvre le
commentaire revient a sa place initial.

Y a t-il un moyen pour fixer la position du commetaire avec macro ou
autre?

Merci d'avance

Joris

merci herve!
ta macro m'aide bien mais je voudrais savoir comment placer ton cadre n'importe ou sur la feuille. Par exemple en haut sur la barre d'outils, pour que ca ne cache aucune case de ma feuille est ce possible?