Microsoft 365 créer une liste déroulante provisoire par macro

mapomme à dit:

Bonjour aussi @ouillade 😉 ,
Bienvenue sur XLD 🙂,

Pour ce que j'en ai compris, mettre le code suivant dans un module:

VB:

Sub ListeOUI()
Dim n&
   n = Application.WorksheetFunction.Match("zzz", Sheets("etablissement").Columns(1))
   With Sheets("menu").Range("i15").Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=etablissement!$a$2:$a$" & n
   End With
End Sub

Sub ListeNON()
   Sheets("menu").Range("i15").Validation.Delete
End Sub

• La première procédure crée la liste en I16 et la seconde la supprime.
• Pour la liste, j'ai supprimé la ligne d'en-tête en doublon.
• J'ai associé chacune des deux macros à un bouton (pour l'exemple).

nota : personnellement j'aurai trié la liste selon l'ordre alphabétique des noms ou selon les départements puis les noms.


edit : bonjour @Phil69970 🙂

Cliquez pour agrandir...

mapomme à dit:

Bonjour aussi @ouillade 😉 ,
Bienvenue sur XLD 🙂,

Pour ce que j'en ai compris, mettre le code suivant dans un module:

VB:

Sub ListeOUI()
Dim n&
   n = Application.WorksheetFunction.Match("zzz", Sheets("etablissement").Columns(1))
   With Sheets("menu").Range("i15").Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=etablissement!$a$2:$a$" & n
   End With
End Sub

Sub ListeNON()
   Sheets("menu").Range("i15").Validation.Delete
End Sub

• La première procédure crée la liste en I16 et la seconde la supprime.
• Pour la liste, j'ai supprimé la ligne d'en-tête en doublon.
• J'ai associé chacune des deux macros à un bouton (pour l'exemple).

nota : personnellement j'aurai trié la liste selon l'ordre alphabétique des noms ou selon les départements puis les noms.


edit : bonjour @Phil69970 🙂

Cliquez pour agrandir...