recopier liste perso dans une formule

Tibo

XLDnaute Barbatruc

• 25 Mai 2006

• #2

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.

@+

 

Vote positif 0 Vote négatif

T

treza88

Guest

• 25 Mai 2006

• #3

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

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 25 Mai 2006

• #4

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.

@+

 

Vote positif 0 Vote négatif

T

treza88

Guest

• 25 Mai 2006

• #5

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 25 Mai 2006

• #6

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 25 Mai 2006

• #7

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Classeur3_20060525130137.zip

  6.8 KB · Affichages: 10

Vote positif 0 Vote négatif

T

treza88

Guest

• 25 Mai 2006

• #8

merci Hervé

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

et merci encore

 

Vote positif 0 Vote négatif