liste personnalisee sans outils/options

[lagodille]

bonjour
je voudrai savoir s'il est possible de creer une liste personnalisee sans passer par outils options etc ...
par exemple en placant sur une feuille ma liste perso et l'utiliser comme tel ?
merci pour votre aide🙄

 

[skoobi]

Re : liste personnalisee sans outils/options

Bonsoir,

est-ce que Donnée > Validation te conviendrai?

 

[lagodille]

Re : liste personnalisee sans outils/options

je ne sais pas car je ne vois pas ce que tu veux dire en fait j'avais pense a cela :
Sub Macro5()

Application.AddCustomList ListArray:=Range("J3:J14")
Range("A2:A14").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select

End Sub

seulement il reconnait ma liste en ligne 6 alors que je voudrai qu'il reconnaisse la dernière ligne creee car chacun a ses propres listes de ce fait le chiffre 6 ne correspondra pas forcement a ma liste
suis je clair ?
merci

 

[Batiscaf]

Re : liste personnalisee sans outils/options

Bonjour le forum,

Je reprends ce post car j'ai aussi un souci avec ma liste perso.

Dans ma macro je créé d'abord ma liste personnalisée
'constitue la liste de tri à partir du statut participant
Range("FA10000").FormulaR1C1 = "MEDECIN"
Range("FA10001").FormulaR1C1 = "INVITE SIEGE"
Range("FA10002").FormulaR1C1 = "MC2"
Range("FA10003").FormulaR1C1 = "ORATEUR" '"FDV"
Range("FA10004").FormulaR1C1 = "DELEGUE MEDICAL"
Range("FA10005").FormulaR1C1 = "MANAGER REGIONAL"
Range("FA10006").FormulaR1C1 = "SIEGE"
Range("FA10007").FormulaR1C1 = "AGENCE DE COM"
Range("FA10008").FormulaR1C1 = "CFT"
Range("FA10000:FA10008").Select
Application.AddCustomList ListArray:=Range("FA10000:FA10008")
puis une fois le travail terminé je la supprime
'supprime la liste de tri personnelle
Application.DeleteCustomList ListNum:=5
Range("FA10000:FA10008").ClearContents

Le problème est que, enfonction d'autres macros sur lesquelles je ne peux agir, ma liste personnelle n'est pas forcément créée en 5ème position mais parfois en 6è, 7è ou 8è position, et du coup au moment de supprimer la liste perso (que je veux absolument supprimer des listes perso), ce n'est pas la bonne liste qui est touchée et je suis planté tôt ou tard.

Pourriez-vous me dire comment programmer que cette liste soit par exemple nommée pour qu'ensuite je puisse la virer grace à son nom, quelque soit sa position dans l'ensemble des listes perso.

Merci de votre aide.

Batiscaf

 

[Pierrot93]

Re : liste personnalisee sans outils/options

Bonjour Batiscaf

peut être comme ceci, devrait supprimer la dernière liste crée :

Application.DeleteCustomList ListNum:=Application.CustomListCount
Range("FA10000:FA10008").ClearContents

A tester...

bonne journée
@+

 

[Pierrot93]

Re : liste personnalisee sans outils/options

Re

remarque, si l'ajout et la suppression sont dans la même procédure, tu peux procéder ainsi :

Sub test()
Dim l() As Variant
l = Array("MEDECIN", "INVITE SIEGE", "MC2", "ORATEUR", "FDV", "DELEGUE MEDICAL" _
    , "MANAGER REGIONAL", "SIEGE", "AGENCE DE COM")
Application.AddCustomList l
'tes actions
With Application
    .DeleteCustomList .GetCustomListNum(l)
End With
End Sub

@+

 

[Batiscaf]

Re : liste personnalisee sans outils/options

Bonjour Pierrot,
Ca me paraît pas mal du tout.
Je reviens vers toi si problème
Merci.
Batiscaf