Liste deroulante besoin d'aide

[Mimi]

Bonjour à tous, j'ai téléchargé ici même un tuto nommé 'LeCoffretdesListes2'.

Ca tombe pil poil sur ce que je recherche a faire, à savoir une liste dans une cellule.

Mais je n'y arrive pas.
Il y a une macro qui me semble être la bonne:

Private Sub Worksheet_Change(ByVal Target As Range)	
Dim isect As Range	
Dim n As String, commentaire As String	
Dim c As Range
Set isect = Application.Intersect(Target, Range('G8:G15'))
If isect Is Nothing Then
    Exit Sub
Else
n = ActiveCell.Value
For Each c In Range('F20:F26')
If c.Value = n Then
commentaire = c.Offset(0, 1).Value
End If
Next c
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=commentaire
End If
End Sub

Mais ca ne fait absolument rien sur ma page.

Un de vous peut-il me donner la ligne de code a mettre et ou svp ?

Merci d'avance.

 

[pat1545.]

Salut,
à mon avis, tu ne l'as pas mise dans le code de la feuille; clic droit sur le nom de l'onglet, code et coller ce code.

Patrick

 

[ERIC S]

Bonjour

tout dépend de ce que tu veux faire

1/de base, tu sélectionnes ta cellule
Données Validation
autoriser liste
source tot;titi;tutu
ok

2/en source tu peux mettre des cellules

=b1:b3 (si sur la même feuille)

3/ tu nommes une plage de cellules par ex nomliste (sur la même feuille ou une autre) et en source tu tapes

=nomliste

 

[Mimi]

Ah ca y est. Pas de besoin de macro alors.

J'ai fait comme le dit ERIC S et ca marche superbement bien.


Merci a vous pour vos réponses.

 

[pierrejean]

bonjour Mimi

a premiere vue le code que tu montres est un code destiné à ajouter des commentaires

par contre si j'ais bien compris

pour mettre une liste dans une cellule

Données > Validation > Options > Autoriser; Liste
et renseigner Source:

a +

edit j'avais oublié de rafraichir !!
j'arrive comme la cavalerie

Message édité par: pierrejean, à: 11/03/2006 18:35

 

[ERIC S]

Bon WE

A bientôt peut-être