Autres liste deroulante

[mc3199]

slt a vous tous
j'ai une question pour rentrer mes compte plus rapidement et
étant un 'vulgaire' amateur sur excel j'utilise excel 2009
je voudrais faire une liste déroulante qui se remplis au fur et a mesure que je rentre des mots dans la colonne F( voir fichier)
et a chaque fois que je vais sur la ligne de la colonne F qu'il me donne le choix dans la liste déroulante ou que je puisse rajouter manuellement des nouveaux mots et que cela soit rangé alphabétiquement automatiquement.
voila si vous pouvez m'aider cela serait super
merci a vous
un amateur

 

[Jacky67]

slt a vous tous
j'ai une question pour rentrer mes compte plus rapidement et
étant un 'vulgaire' amateur sur excel j'utilise excel 2009
je voudrais faire une liste déroulante qui se remplis au fur et a mesure que je rentre des mots dans la colonne F( voir fichier)
et a chaque fois que je vais sur la ligne de la colonne F qu'il me donne le choix dans la liste déroulante ou que je puisse rajouter manuellement des nouveaux mots et que cela soit rangé alphabétiquement automatiquement.
voila si vous pouvez m'aider cela serait super
merci a vous
un amateur

Bonjour,
Une proposition en PJ
-Une feuille Nommée "Paramètre" avec les libellés
-Une plage nommée "Libelle" est constituée dynamiquement.
-En feuil1, colonne F une liste de validation.
-Si un libellé est inexistant, une question sera posée pour l'inscription (ou non)
-Ce code se trouve dans le module de feuil1
**Modifié
**Ou sans avoir à mettre manuellement la liste de validation en V2

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 6 Or Target.Row < 4 Or Target.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    Application.EnableEvents = False
    If IsError(Application.Match(Target, [libelle], 0)) Then
        If MsgBox(Target.Value & vbLf & "Ce libellé est inexistant. Voulez-vous l'ajouter?", 292, "Information") = 6 Then    ' facutatif
            Feuil2.Cells(Feuil2.Cells(Feuil2.Rows.Count, "A").End(xlUp).Row + 1, 1) = Target
            If Application.CountA(Feuil2.[a:a]) > 2 Then [libelle].Sort Key1:=[libelle]
        End If    ' facutatif
    End If
    Application.EnableEvents = True
End Sub

Bon courage

***Bonjour job75

 

[job75]

Bonsoir mc3199, Jacky67,

étant un 'vulgaire' amateur sur excel j'utilise excel 2009

Je connais Excel 2007, Excel 2010 mais pas 2009, c'est une version MAC ?

A+