trier et masquer certaine colonne

[yvon07]

bonsoir

mon desir pouvoir,afficher ,pour imprimer ,que les lignes,ayant un "x"
apres avoir fait un tri par poste,colonne "C a R"et masquer ces colonnes C a R
si je peu faire un trie et masque en une seul manip encor mieu
fichier comportant plus de 25 000 ligne
encor merci par avance

Slts

 

[DoubleZero]

Re : trier et masquer certaine colonne

Re-bonjour yvon07, le Forum,

Comme je le disais ce matin, la demande étant déposée dans le Forum Excel (au lieu du salon de XLD), les réponses seront certainement plus nombreuses.

Une nouvelle suggestion dans le fichier joint.

Bon courage et à bientôt .

 

[job75]

Re : trier et masquer certaine colonne

Bonsoir yvon07, salut Doublezero

Si les seules données en colonnes C:R sont des x :

Sub Masquer()
Dim plage As Range
Application.ScreenUpdating = False
On Error Resume Next 's'il n'y a pas de "x"
Set plage = Range("C2:R" & [A2].End(xlDown).Row)
plage.EntireRow.Hidden = True
plage.SpecialCells(xlCellTypeConstants).EntireRow.Hidden = False
Columns("C:R").Hidden = True
End Sub

A+

 

[yvon07]

Re : trier et masquer certaine colonne

bonjour
et merci pour vos reponse
le pb,c'est que je veux filtrer les lignes avec des "X" pour pouvoir trier par poste,est apres masquer les colonne des "X" pour l'impression.puis pouvoir revenir pour trier eventuellement un autre poste.
la je tris mais lorsque je masque tous les lignes sont afficher.
en esperent bien me faire comprendre
bonne journée a tous
cordialement

 

[DoubleZero]

Re : trier et masquer certaine colonne

Bonjour, yvon07, job75 , le Forum,

... en esperent bien me faire comprendre...

J'avoue ne pas comprendre .

Il faut attendre des neurones plus éclairés que "mon mien" ...

 

[yvon07]

Re : trier et masquer certaine colonne

Bonsoir
En pièces jointe, le fichier avant le trie
Puis l'autre après comme je voudrais que ça sorte «exemple avec poste 7
Avec une possibilité de revenir au fichier de base
En espèrent que ce sera plus claire
Merci

 

[job75]

Re : trier et masquer certaine colonne

Bonsoir yvon07, DoubleZero,

Moi non plus... je ne comprends plus où est le problème

Sur votre fichier avant.xls, si vous filtrez les x en colonne H (poste 7) :

- seules les lignes 7-8-9 du tableau A1:AK9 seront affichées

- vous n'avez plus qu'à masquer les colonnes B:Q soit manuellement, soit par la macro :

Sub Masquer()
Columns("B:Q").Hidden = True
End Sub

Non ???

A+

 

[DoubleZero]

Re : trier et masquer certaine colonne

Re-bonjour, yvon07, job75, le Forum,

Le fichier « 00 - yvon07 - 03.xls », transmis dans le post # 2, hier à 22h05, a-t-il été testé ? En effet, les fichiers « avant.xls » et « après.xls » sont dépourvus de macro !

Le travail de job75, transmis dans le post #3, hier à 22h19, a-t-il été testé ? (Merci, job75 , je découvre cette façon de trier).

Les deux propositions permettent de trier et de masquer les colonnes comme demandé initialement.

Présentement, je ne comprends , hélas, pas davantage !

Bonne fin de journée.

 

[job75]

Re : trier et masquer certaine colonne

Re,

Peut-être yvon07 veut-il simplement ceci :

- dès que l'on fait un filtrage sur une colonne, les colonnes B:Q se masquent automatiquement

- un bouton permet de tout afficher.

Alors ces macros dans le code de la feuille Van complet :

Private Sub Worksheet_Calculate()
Columns("B:Q").Hidden = True
End Sub

Private Sub CommandButton2_Click()
If Me.FilterMode Then Me.ShowAllData
Columns("B:Q").Hidden = False
End Sub

La 1ère macro se déclenche grâce à cette formule en A1 :

=SOUS.TOTAL(3;B:AK)

qui se recalcule à chaque nouveau filtrage.

Si ce n'est que ça, on aurait pu le dire clairement...

Fichier joint.

A+