tri automatique

[picronte]

bonsoir
sur le fichier j'aimerai qu'il me tri automatiquement dans l'onglet feuil le resultat de l'onglet base de ad à bd par rapport à ah
je joint le fichier pour mieux comprendre
merci

 

[JCGL]

Re : tri automatique

Bonjour à tous,

Voir mon essai sur ton fichier joint...

A + à tous

 

[vgendron]

Re : tri automatique

mdr JCGL ;-)

Picronte.. ton fichier n'est pas passé.. il est sans doute trop gros. allège le en supprimant des données non necessaires à la compréhension de ton pb, et tu peux aussi zipper ton doc

 

[picronte]

Re : tri automatique

Bonjour à tous
oups je devais être trop fatigué hier soir et en plus avec un mal de crane.
ci-joint le fichier
picronte

 

[JCGL]

Re : tri automatique

Bonjour à tous,

Peux-tu essayer avec ceci :

Option Explicit

Sub Test()
    ActiveWorkbook.Worksheets("BASE").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("BASE").Sort.SortFields.Add Key:=Range("C6:X6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("BASE").Sort
        .SetRange Range("C5:X1500")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C6").Select
End Sub

A + à tous

 

[picronte]

Re : tri automatique

re,
j'ai copier le code VBA a celui qui etait deja mais cela ne fonctionne pas. je pense qu'il suffit juste a modifier le premier code VBA, mais maheureusement je suis trop novice pour le faire.
Picronte

 

[JCGL]

Re : tri automatique

Bonjour à tous,

Quel code ?
Dans quel module ?

A + à tous

 

[picronte]

Re : tri automatique

re,
Dans l'onglet feuil.Ci-joint le code VBA

Option Explicit

Sub Test()
ActiveWorkbook.Worksheets("BASE").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BASE").Sort.SortFields.Add Key:=Range("C6:X6"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BASE").Sort
.SetRange Range("C5:X1500")
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Range("C6").Select
End Sub

Picronte

 

[JCGL]

Re : tri automatique

Bonjour à tous,

Ce code se suffit à lui même.
Appelle la macro "Test" par Alt F8.

A quel code veux-tu l'ajouter ?

A + à tous

Edition : Salut l'ami Gérard... Où est ta

 

[job75]

Re : tri automatique

Bonjour picronte, salut Jean-Claude, vgendron,

Au post #12 de ce fil :

https://www.excel-downloads.com/threads/re-besoin-daide.199395/

j'ai écrit :

Si vous voulez trier le tableau filtré, il faut renseigner la colonne AI avec les valeurs qui permettront le tri.

Visiblement vous n'en êtes pas capable, et nous non plus.

Parce qu'en l'état votre question n'a pas de sens.

A+

 

[picronte]

Re : tri automatique

Bonjour job75
je suis desolé si je vous blessé. mais j'ai pensé qu'il fallait renseigner en base les colonnes AI à BD des reponses "oui" aux questions pour pouvoir après les trier.
S'il y faut renseigner que la colonnes AI comment je peux faire pour que toutes les reponses "oui"aux questions apparessent dans l'onglet feuil
Picronte

 

[job75]

Re : tri automatique

je suis desolé si je vous blessé.

Allons allons picronte qu'allez vous chercher là ?

C'est plutôt moi qui risque de vous blesser en disant que votre question n'a pas de sens.

Du moins pour l'instant. Mais vous pouvez donner un exemple du filtrage que vous voulez obtenir.

A+

 

[picronte]

Re : tri automatique

Re,
Je souhaiterai que dans l'onglet feuil quand je choisi une lettre en cellule B1 il me recopie les informations de l'onglet base des colonnes AD:AG en mettant en premier la questoin A si "oui" la question B si "OUI" et ainsi de suite
je ne sais pas si j'ai été très claire
Picronte

 

[job75]

Re : tri automatique

je ne sais pas si j'ai été très claire

Eh non, vous ne faites que répéter la même question, celle qui n'a pas de sens.

Je répète : donnez un exemple du filtrage que vous voulez obtenir.

A+

 

[picronte]

Re : tri automatique

re,job75
Ci-joint le filtrage que je souhaiterai avoir dans l'onglet feuil
picronte