Filtre entre 2 semaines

Bonjour à tous

Ds la suite de mon développement et apprentissage

Je bloque sur cela

Sub Filtrage(cible)

Dim wl As Worksheet, wt As Worksheet
Set wl = Sheets("Listing")
Set wt = Sheets("Tableau de bord")
If wl.FilterMode = True Then wl.AutoFilterMode = False  'wl.ShowAllData

If cible = wt.[B2] Then
   wl.Range("J4:J" & wl.Range("J" & Rows.Count).End(xlUp).Row).AutoFilter Field:=10, Criteria1:=cible
End If
If cible = wt.[C2] Then
   wl.Range("j4:j" & wl.Range("j" & Rows.Count).End(xlUp).Row).AutoFilter Field:=10, Criteria1:=cible
End If

Mon but est de pouvoir le faire suivant une sélection entre 2 valeurs:

En B2 S1

En C2 S3

Donc le filtre doit me retourner S1 à S3 et S2 doit être compris

Le résultat est Filtre début S1 Fin S3

Si vous pouvez aussi me donner une idée pour dire que C2 ne doit pas être inférieure à B2, je suis preneur

En espérant être compris

Merci de vos lumières

Bonne journée à tous

Ledzep

Bonjour,

Dans ta procédure principale, fais un test de C2>=B2 pour lancer la procédure Filtrage(cible). !?

Sinon, joins un fichier.

Cdlt.

Bonjour

Merci pour réponse Jean eric

Je vais regarder ta proposition

si je n'y arrive pas je poste à nouveau avec un fichier

À bientôt

Ledzep

Bonjour à tous

Je poste à nouveau car je suis dans l'impasse.

Je n'arrive pas à trouver la solution à mes problèmes.

1 Feuille LISTING ( code ds la feuille ) Colonne J le tri fonctionne que si je suis uniquement sur des chiffres, j'ai ajouté S à 1 Donc S1

ce qui me donne un tri qui n'est plus croissant S1 S11 S2.

Car à partir de cela j'aimerai suivant "choix extraction SDO ( voir GIF)faire la copie du tri pour le coller ds la feuille "tableau de bord".

Avec un message qui vérifie que Fin et Bien sup à Début.

Merci de votre aide

Ledzep

Bonjour

Bonjour à tous

ledzep a écrit :

j'ai ajouté S à 1 Donc S1

ce qui me donne un tri qui n'est plus croissant S1 S11 S2.

Bye !

Bonsoir à tous

Bonsoir gmd

Je suis au taf, je réponds vec mon tél.

gmd j'ai trouvé le moyen de contourner le problème de S1 par une condition dans la procédure.

De même je sais faire la vérification entre deux valeurs de saisie pour obliger à fin supérieur à début pour SDO

Je la mettrai sur le sujet quand je serai devant mon PC.

J'aimerai avoir un début de code pour faire un copier de la feuille listing vers la feuille tableau de bord, avec le choix de SDO en borne début et fin.

Puis par validation du bouton Validation extraction avoir l'extraction des données suivant les bornes

Je pêche encore sur la méthode. Même si je vais voir vos formations

Je l'ai en tête mais je ne sais pas la coucher sur le code.

si jmis tu as un modèle. Cela m'intéresse.

Bonne soirée

merci d'avance et d'avoir suivi mon sujet

Ledzep

Bonjour à tous

Pas de téléchargement du fichier !

Le sujet n'est pas intéressant ?

Je ne désespére pas.

si seulement vous pouviez me dire si je suis dans la bonne direction pour mon sujet.

Ou alors mon explication n'est pas claire.

J'ai renseigné le code un maximum pour qu'il soit compréhensible

J'attends de vos nouvelles suivant vos disponibilités.

Bonne fin de journée.

Ledzep

Bonjour à tous

Bonjour gmb

J'avais oublié de te préciser cela au sujet des

Si tu ajoutes un "S", il te faut aussi ajouter un zéro devant tous les nombres inférieurs à 10 pour que le tri rester correct : S01 S02 ...S10

J'ai modifé mon code par cela:

        'PROCEDURE TRI AUTOMATIQUE DS FEUILLE "LISTING" COLONNE "SDO" Plus Petit au Plus Grand

 Private Sub Worksheet_Activate()
 Dim lo As ListObject

     Application.ScreenUpdating = False
     Set lo = Me.ListObjects(1)
     With lo
         .Sort.SortFields.Add .ListColumns(10).DataBodyRange, xlSortOnValues, xlAscending, CustomOrder:="S1,S2,S3,S4,S5,S6,S7,S8,S9", DataOption:=xlSortNormal
         .Sort.Apply
         .Sort.SortFields.Clear
      End With
    Set lo = Nothing
End Sub

Ce qui me permert de contourner la différence en nombre (1 2 3 ) et texte (s1 s10 s2)

Voila

Merci encore de ton aide qui ma permis de réfléchir plus loin.

à Bientôt

Ledzep