recopier liste perso dans une formule

[treza88]

bonjour à tous

je voudrais savoir s'il est possible d'utiliser une liste perso à interieur d'une formule et que cette liste s'incremente quand on recopie la cellule.

merci d'avance

 

[Tibo]

Salut,

Pas sût d'avoir bien compris.

A essayer :

Sur la base d'une liste perso de 7 éléments :

=CHOISIR(ENT(MOD(LIGNE()-0.01;7))+1;'a';'b';'c';'d';'e';'f';'g')

Reviens avec plus détails et explications si pb.

@+

 

[treza88]

disons que mon probléme est celui la :

j'ai une liste perso dans les options et je voudrais quel fonctionne dans la formule suivante quand je recopie la cellule vers le bas

=si(B5='';'';utilisation de la liste perso)

j'espere que c'est plus claire

 

[Tibo]

Re,

Utiliser directement une liste perso dans une formule, ça n'est pas possible (du moins je ne sais pas faire :S )

La question a déjà été posée et avait reçu la même réponse.

Lien supprimé

Peut-être par macro ?

Mais dans ce cas, il faudra attendre le passage de spécialistes.

@+

 

[treza88]

ok je, te remercie je vais attendre s'il y a d'autre reponse en attendant je vais quans meme essayer ta proposition de formule

 

[Hervé]

bonjour tout le monde

un embryon de départ de commencement de reflexion.

les listes personnalisées ne portent pas de nom, il va falloir travailler avec leurs numéros d'ordre.

cette fonction personnalisée vite fait, renvoi la liste personnalisée dont le numéro à été passé en argument de la fonction.

c'est une fonction matricielle.

Public Function liste(numero As Byte)

With Application
        liste = .Transpose(.GetCustomListContents(numero))
End With

End Function

exemple d'utilisation pour la premiere liste des listes personnalisées (chez moi : lun,mar,mer,jeu,ven,sam,dim)

sélection de 7 cellules en colonne
frappes de la formule =liste(1)
validation avec ctrl+maj+entrée

a mon avis, ce que tu veux faire ne me semble pas possible (provocation aux pros du forum 🙂 )

salut

 

[Hervé]

re

un autre élément de reflexion à travers cette fonction mise en application dans la pièce jointe.

Public Function liste(cellule As Range, numero As Byte)
Dim tablo

With Application
        tablo = .Transpose(.GetCustomListContents(numero))
End With

liste = tablo(cellule, 1)


End Function

salut [file name=Classeur3_20060525130137.zip size=6929]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur3_20060525130137.zip[/file]

 

[treza88]

merci Hervé

ça ne repond pas exactement à ce que j'attendait mais ça peut fonctionner quand meme dans mon cas

et merci encore