Triage un peu spécial sous VBA.

[Gruen]

Bonjour,

Je me permets de soliciter vos connaissances car je rencontre un petit problème pour le tri d'un tableau que je voudrais effectuer sous VBA.

Vous trouverez ci-joint un tableau avec 6 cotes différentes.
J'ai deja crée une macro permettant de trouver un nom dans le tableau et une macro de remise à zéro qui marche très bien.

Cependant, je voudrais trier mon tableau par rapport aux 6 cotes.

Je m'explique : après avoir entré mes cotes dans la ligne (D7:I7), je voudrais en appuyant sur un bouton diamètre2 par exemple trier la tableau par la cote diamètre 2 à -1 et +1 de la valeur entrée au dessus (pour le diamètre 2 : G7).

Si vous arrivez à trouver une solution je pourrais par la suite refaire la même chose pour les 5 autres cotes.

En vous remerciant d'avance pour votre aide toujours précieuse (et disponible si besoin de plus d'explications).

Cordialement.
Gruen

 

[néné06]

Re : Triage un peu spécial sous VBA.

Bonsoir Gruem,Bonsoir le Forum

Si J'ai compris ta demande, regardes l'exemple et dit nous ??


Cordialement

 

[Gruen]

Re : Triage un peu spécial sous VBA.

Bonjour,

Merci pour ton aide néné06 mais ma demande est un peu différente. Je vais tenter d'être le plus clair possible.

Je reprend comme exemple le diamètre 2.

Si je rentre une valeur dans la cellule G7 par exemple 25, je voudrais effectuer un filtre des valeurs dans le tableau en dessous pour qu'il ne reste plus que les valeurs comprises entre 24-25 et 25-26 (-1 de la valeur en G7 et +1 de la valeur en G7).

Voici la macro que j'ai faite, une correction est j'en suis sur nécessaire, car quand je l'utilise, le tableau de valeur disparait. De plus comme dit plus haut, je ne sais pas comment écrire le compris entre -1<G7>+1.

Sub Diametre2()
Range("G13").AutoFilter Field:=4, Criteria1:="<=" & Range("G7"), Operator:=xlAnd, Criteria2:=">=" & Range("G7")
End Sub


Par la suite, si je veux encore réduire mes données, je pourrais faire la même chose avec la case D7 par exemple sur les données qui me reste dans le tableau pour réduire encore le choix des noms.

J'espère avoir été assez clair. Je remets mon fichier avec les modifications que j'ai déjà faite, peut être ceci sera en plus clair.

En tout cas je vous remercie pour l'aide apporter. je vais tenter de le faire seul mais comme je débute en VBA c'est pas gagné ^^.

Cordialement.
Gruen

 

[néné06]

Re : Triage un peu spécial sous VBA.

Bonsoir le forum, bonsoir Gruen

Essayes ce petit exemple "à modifier" et surtout ,envoies un petit message (Pas un autre commentaire) .

Cordialement