• Initiateur de la discussion Initiateur de la discussion amlou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

amlou

Guest
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
 
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
12
Affichages
1 K
Réponses
3
Affichages
918
Réponses
16
Affichages
3 K
  • Question Question
XL 2016 Validation
Réponses
3
Affichages
547
Retour