Probleme de filtre

[amlou]

Bon tt d'abord je remerci a l'avance chaque personne qui c intéréssé a mon probléme.

Bon, j'ai un filtre ds mon application excel. j'aimerai remplir la liste de ce filtre a partir du code. mtn j'ai un probléme et j'ai pensée a deux solution et je ne c comment faire.

**********Voila ce que je veut faire *************************
Case "URAD EJ"
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Bouzid,Jorf Lasfar,Zemamra,Sidi Bennour" & _
'"Ouled Fraj,Azemmour,Bir Jdid,El Aounate,Sidi Smail,El Oualidia" & _
'"Ben Ahmed,Sidi Hajjaj,Tlet loulad,Ras El Ain,Ouled Abbou,Labrouj" & _
'"Had Saoulem,Sidi Rahal,El Gara,Daroua,Benslimane,Ben Khlef" & _
'"Ben Khlef,Bouznika AXE20,Bouznika Bail,Essanaoubar"
End With

*********************************************************
Le probleme c qu'il me donne une erreur qui est du je crois est du a ce que la liste est trop long : est ce que ce n'est pas possible d'augementé la taille de la mémoire de tel sorte que je puisse remplir tte ma liste.
*********************************************************
2éme Solution

c que au lieu que je lui donne tte la liste. je recopie c information ds une colonne et que je transmet seulement les indice mais!!!!
*****************voila ce que j'ai fais*************************

Case "URAD EJ"
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=range("$A$1:$AS$30")
End With

mais ça ne donne rien car je ne sais pas comment faire [Formula1:=range("$A$1:$AS$30") ] mais c pas ça comment dire pour lui formulai qu'il doit cherche les information pour remplir la liste ds $A$1:$AS$30

SVP si vs avez une sugéstion repondez moi le plus tot possible car c un probléme qui me pourri la vie depuis 5 jours (URGENT)

et merci d'avance

 

[Robert]

Essayez ceci, ça marche
Ecrire vos données dans les cellules de la feuille 2 (4 dans l'exemple)
Puis insérez ce code et lancez la macro

With Sheets("Feuil2")
Valeurs = .Range("A1").Value
For I = 2 To 3
Valeurs = Valeurs & "," & .Range("A" & I).Value
Next
Valeurs = Valeurs & "," & .Range("A4").Value
End With
With Sheets("Feuil1").Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Valeurs
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Bon amusement

Robert

 

[STéphane]

bonjour

remplace ton formula1 par le suivant :
Formula1:="=" & Worksheets("Feuil2").Range("$A$1:$A$30").Address

bye
Stéphane

 

[guillaume]

problème excel/imprimante

Bonjour. Mon problème est le suivant. Je suis sous Windows NT, mon imprimante est une HP 1300.
Quand je veux lancer une impression ou voir l'aperçu, systématiquement, un message d'erreur apparaît: mémoire insuffisante ! J'ai pourtant plus de mémoire - y compris tampon- qu'il n'en faut.
Quand je lance une impression avec un autre logiciel (Word ou un logiciel pour la gestion des stocks), il n'y a pas de problème.
J'ai réinstallé le driver de l'imprimante et excel, mais rien n'y fait. Merci de me fournir une solution dès que possible.
A bientôt.