Autres liste deroulante

mc3199

XLDnaute Junior
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
 

Pièces jointes

  • compte moi pour forum.xls
    21 KB · Affichages: 15

Jacky67

XLDnaute Barbatruc
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
VB:
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
 

Pièces jointes

  • compte moi pour forum.xls
    45.5 KB · Affichages: 8
  • compte moi pour forumV2.xls
    58.5 KB · Affichages: 8
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 927
Membres
101 842
dernier inscrit
seb0390