Question onglet développeur (MAC)

Bonjour,

Je cherche à comprendre comment fonctionne une zone de Liste (voir image) afin d'ajouter des fichiers d'un dossier tout cela dans une Macro

Ça je sais faire :

fichier = Dir("/Users/eric/Desktop/Novembre/")
i = 0
Do While fichier <> ""
    i = i + 1
    Range("N" & i) = Mid(fichier, 1, 5)
    fichier = Dir
Loop

Mais pour l'ajouter à ça je suis perdu surtout qu'il va copier la cellule N:N ce qui veut dire qu'il va prendre les blanc avec ......

ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
    Application.CutCopyMode = False
    With Selection
        .ListFillRange = "N:N"
        .LinkedCell = ""
        .DropDownLines = 8
        .Display3DShading = True
    End With

Sur Google il parle souvent des Userform mais ce n'est pas du tout ce que je veux ..

Pourriez vous m'aider ?

Bonjour,

à tester,

Sub test()
fichier = Dir("/Users/eric/Desktop/Novembre/")
i = 0
With ActiveSheet
 Do While fichier <> ""
    i = i + 1
    .Range("N" & i) = Mid(fichier, 1, 5)
    fichier = Dir
 Loop
.Shapes("Drop Down 1").ControlFormat.ListFillRange = "N1:N" & .Cells(Rows.Count, "N").End(xlUp).Row
End With
End Sub

ps/ cela suppose que le Drop Down (de la barre Formulaire) est déjà créer sur la feuille active

Merci SabV

Il m'indique une erreur "L'élément portant ce nom est introuvable"

Il parle de cette ligne :

.Shapes("Drop Down 1").ControlFormat.ListFillRange = "N1:N" & .Cells(Rows.Count, "N").End(xlUp).Row

Le "Drop Down 1" c'est le Nom de la feuille ?

Bonjour,

sur votre fichier le nom du shape est "Drop Down 2"

modifier sur la macro "Drop Down 1" par "Drop Down 2"

Oui je viens de voir ça, en fait je viens de comprendre où récupérer ce nom "Drop Down 2"

Le script fonctionne bien mais à la finale je ne trouve pas terrible le résultat dans le sens ou si on veut faire défiler ce qu'il y a dans la liste il faut se placer sur les petites flèches .. pas terrible .

Je crois que je vais opter pour une liste classique MAIS avec MACRO

Du coup je dois faire comment pour lui dire de ne pas mettre les blancs ?

re,

à tester,

Sub racine()
fichier = Dir("C:\Users\isabelle\Documents\test\") 'Dir("/Users/eric/Desktop/Novembre/")
i = 0
With ActiveSheet
 Do While fichier <> ""
    i = i + 1
    .Range("N" & i) = Mid(fichier, 1, 5)
    fichier = Dir
 Loop

 k = .Cells(Rows.Count, "N").End(xlUp).Row

    With .Range("J10").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$N$1:$N$" & k
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End With
End Sub

Tu es un as ça fonctionne superbement bien

Merci

j 'suis bien contente que tout fonctionne,

merci pour ce retour et bonne continuation, @+ isabelle