Bonjour Hellboy,
Beautiful :woohoo:
le blocage des listes déroulantes en fonction du nombre de trie demandé c'est impressionnant.
Sinon il y avait un petit problème pour le trie, ça commençait à la ligne 9 tout le temps donc ça laissait un fonds en haut pour toutes les autres feuilles et pour la feuille 'Catégories (% act. oblig. cash)' c'était bon puisqu'il y a la moyenne.
Je me suis inspiré de ce que tu avais fait au niveau du code et ça marche et ça marche :
If ActiveSheet.Name = 'Catégories (% act. oblig. cash)' Then
intColonneDepart = 3
Else
intColonneDepart = 2
End If
If ActiveSheet.Name = 'Catégories (% act. oblig. cash)' Then
intLigneDepart = 8
Else
intLigneDepart = 7
End If
If rngKey1 <> Empty And rngKey2 <> Empty And rngKey3 <> Empty Then
Range(Cells(
intLigneDepart, intColonneDepart), Cells(Cells(65536, intColonneDepart).End(xlUp).Row, Cells(7, 255).End(xlToLeft).Column)).Sort _
Key1:=Range(rngKey1), Order1:=consOrder1, _
Key2:=Range(rngKey2), Order2:=consOrder2, _
Key3:=Range(rngKey3), Order3:=consOrder3, _
OrderCustom:=1, Header:=xlYes, MatchCase:=True, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
ElseIf rngKey1 <> Empty And rngKey2 <> Empty Then
Range(Cells(
intLigneDepart, intColonneDepart), Cells(Cells(65536, intColonneDepart).End(xlUp).Row, Cells(7, 255).End(xlToLeft).Column)).Sort _
Key1:=Range(rngKey1), Order1:=consOrder1, _
Key2:=Range(rngKey2), Order2:=consOrder2, _
OrderCustom:=1, Header:=xlYes, MatchCase:=True, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
ElseIf rngKey1 <> Empty Then
Range(Cells(
intLigneDepart, intColonneDepart), Cells(Cells(65536, intColonneDepart).End(xlUp).Row, Cells(7, 255).End(xlToLeft).Column)).Sort _
Key1:=Range(rngKey1), Order1:=consOrder1, _
OrderCustom:=1, Header:=xlYes, MatchCase:=True, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
Pour le filtre de données je suis d'accord avec toi mais ça devient en effet très chaud voir indigeste :sick: lol
et sinon pour le renouvellement des fonds on est d'accord aussi c'est pour ça que je t'avais demandé dans un post précédent (qui commence à dater) si il y avait moyen d'acquérir dans Excel une liste déroulante. Tu m'avais dit que tu savais pas comment faire et c'est vrai que ça doit être très très très chaud
J'avais pensé à un truc mais ça doit être extrêmement difficile c'était d'acquérir par un filtre le nom et les id des fonds en passant par le code html de la page de Morningstar où il y a la liste déroulante...pas facileeee
T'inquiète pas je ne vais pas couper les ponts si tu vas toujours sur msn
...mais c'est sur que sur le forum j'aurais moins l'habitude d'y aller par la force des choses.
Merci
a+