Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 19/07/2011, 18h15   #1
Invité régulier
 
Inscription : novembre 2009
Messages : 39
Détails du profil
Informations forums :
Inscription : novembre 2009
Messages : 39
Points : 8
Points : 8
Par défaut Tri sur champs caché

Bonjour,

Je voulais savoir si il était possible de trier dans des champs caché

Exemple.

1
2
3
4
5

Si 2-3-4 sont caché et que je tri ma colonne par ordre desc et que je raffiche les colonnes

Sa me donne.
5
2
3
4
1

Je voudrais
5
4
3
2
1

Ya un moyen simple ? ( sans des macros etc.. )

Merci
JonathanMQ est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 22/07/2011, 14h58   #2
Membre confirmé
 
Homme Denis Morena
Technicien qualité et métrologie industrielle
Inscription : avril 2011
Messages : 115
Détails du profil
Informations personnelles :
Nom : Homme Denis Morena
Localisation : France, Gironde (Aquitaine)

Informations professionnelles :
Activité : Technicien qualité et métrologie industrielle
Secteur : Industrie

Informations forums :
Inscription : avril 2011
Messages : 115
Points : 221
Points : 221
Bonjour,

pour moi on est obliger de passer par une macro...

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Tri()
 
    'Afficher toute les lignes
    Cells.Select
    Selection.EntireRow.Hidden = False
 
    'Tri descendant
    Columns("A:A").Select
    'Colonne "A" et "Feuil1" à adapter
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A2:A6")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    'Masqué les lignes
    Rows("3:5").Select
    'A adapter, ici cela concerne les lignes de 3 à 5
    Selection.EntireRow.Hidden = True
 
    Range("A1").Select
 
End Sub
Dsl, j'te met la macro si ça t'intéresse...
White Mibu est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h29.


 
 
 
 
Partenaires

Hébergement Web