Discussion :

[mezzo40]

Bonjour à tous,

je sais que le titre va rappeler de nombreux sujets,mais après en avoir examiné de multiples, je ne trouve pas ma solution.
Je me tourne donc vers vous.

J'ai créé une liste déroulante sur excel 2010 via "validation de données".
Ma demande est la suivante:
je voudrais que la première valeur de cette liste déroulante soit la valeur par défaut de cette liste déroulante.
C'est à dire que la première ligne de cette LD s'affiche automatiquement à l'ouverture du classeur ou feuille.

Merci pour vos réponses éclairées.

Cdlt

Mezzo

[parmi]

Bonjour,

Voici une façon de faire, mais il y a possiblement plus simple...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Activate()
    Dim Adresse As String
    Dim Tablo
 
    'Lire la 1ere partie de l'adresse de la liste
    Tablo = Split(Range("A1").Validation.Formula1, ":")
    'Enlever le signe "="
    Adresse = Replace(Tablo(0), "=", "")
    'Affecter l'adresse à lire à la cellule
    Range("A1") = Range(Adresse)
 
End Sub

[mezzo40]

Merci pour votre réponse.

Par contre je ne suis vraiment pas un expert en VBA.

Pouvez vous m'aider à adapter cela à un fichier exemple comme joint.test menu déroulant.xlsm

Par avance, merci.

Mezzo

[parmi]

Désolé, mais je ne peux pas ouvrir de fichier avec macro au bureau...

Dans le code que je te donne, c'est la cellule A1 qui contient la liste.
Tu n'as qu'à modifier les A1 pour celle(s) qui t'intéresse.
Et répètes les lignes de codes pour chacune des cellules visées si tu en as plusieurs.

Puis j'ai mis le code dans l'événement Worksheet_Activate pour que la liste se mette à jour au moment où tu sélectionnes cette feuille.
C'aurait pu être dans Workbooks_Open aussi (dans le code de ThisWorkbook), donc activé à l'ouverture du fichier.