Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

besoin d'aide userform tri

  • Initiateur de la discussion Initiateur de la discussion young 25
  • 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 !

Y

young 25

Guest
bonjour à tous ,

2 questions pour vous:

j'ai un uf qui me permet de trier selon des criteres.Il ne fonctionne pas vraiement comme je voudrais.

si je l'utilise en remplicant tous les critreres, cela fonctionne .mais si je veux filtrer sur un seul criteres c'est la que cela ne va plus.

1) Comment dire de ne pas prendre en compte un critere ?
2) comment faire aussi pour qu'a chaque ouverture du uf lessoit en selectionner tout?


Merci d'avance

A+
 

Pièces jointes

Re : besoin d'aide userform tri

merci à vous,

je voulais joindre le fichier pour ceux que cela interesse mais il est trop lourd
comment faire pour le compresser plus
j'utilise winzip
A+
 
Re : besoin d'aide userform tri

Bonjour,

Je viens de récupérer ce code (le fichier essai3xls de youki) qui m'intéresse pour mon travail. Par contre, je souhaite trier des dates et non du texte et là ça ne marche pas. quelqu'un saurait-il m'aider s'il vous plaît ?
Merci d'avance.
Nicolas
 
Dernière édition:
Re : besoin d'aide userform tri

Je mets mon fichier pièce jointe afin que vous voyez mieux mon problème.
Quand je saisis une date en A1 dans la textbox le tri ne marche pas...
Merci d'avance pour votre aide.
 
Re : besoin d'aide userform tri

Salut bien,
Voici qui doit faire l'affaire.
Tu dois mettre au moins le jour/mois
L'année en cours se mets automatiquement, si différente faut taper en entier la date.
Bruno
Code:
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
nx = TextBox1.Text
If Len(TextBox1) = 5 Then nx = TextBox1 & "/" & Year(Now)
If Len(TextBox1) < 5 Then nx = ""
If nx = "" Then
[A1].Interior.ColorIndex = 48
On Error Resume Next
ActiveSheet.Range("A2:z" & [A65000].End(3).Row).AutoFilter Field:=1
Exit Sub
End If
On Error Resume Next
tx = CDate(TextBox1) '"=*" & nx & "*"
If Err <> 0 Then Exit Sub
[A1].Interior.ColorIndex = 3
On Error Resume Next
ActiveSheet.Range("A2:z" & [A65000].End(3).Row).AutoFilter Field:=1, Criteria1:=tx, Operator:=xlAnd
End Sub
 
Re : besoin d'aide userform tri

Bonjour Bruno,

Merci pour ta réponse. Je viens de tester et il semble qu'il y ait un problème car quand je mets une date Exemple : 20/06/2011 ou 20/06, rien ne s'affiche. En regardant de plus près dans le filtre je m'aperçois qu'il écrit égale à 6/20/2011 et non 20/06/2011 c'est pour ça que cela ne marche pas. Aurais-tu une idée ?

Merci d'avance.
Nicolas
 
- 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

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
750
Réponses
3
Affichages
219
  • Question Question
Réponses
7
Affichages
343
Réponses
38
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…