liste personnalisee sans outils/options

Re : liste personnalisee sans outils/options

Bonsoir,

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

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

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

Re : liste personnalisee sans outils/options

Bonjour Batiscaf

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


A tester...

bonne journée
@+

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 :


@+

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