Masquage d'une colonne si celle-ci à était trié ![Edit]Filtré[/Edit]

[WDAndCo]

Bonjour le Forum

Ben tout est dans le titre !
J'ai une feuille avec 18 colonnes affichés, dans la 18emme il y a des liens vers des classeurs.
Sur les 17 premières colonnes il est possible de faire des tris.[Edit]Filtres[/Edit]

Donc je voudrais que si le contenu des cellules affichés d'une même colonne sont égaux que cette colonne se masque.

D'avance merci, bon dimanche à tous.

 

[Compte Supprimé 979]

Re : Masquage d'une colonne si celle-ci à était trié !

Salut WDAndCo 😉

Heuuuu ... perso, je n'ai rien compris à ta demande
Et je pense que je ne serais pas le seul 😛

A+

 

[Victor21]

Re : Masquage d'une colonne si celle-ci à était trié !

Bonjour, WDandCo, Bruno 🙂.

Tout dans les mains, rien dans les poches...
Tout dans le titre, rien dans le fichier ...
Rien compris !

 

[WDAndCo]

Re : Masquage d'une colonne si celle-ci à était trié !

Bonjour BrunoM45 et Victor21, et le Forum

Je voudrais, que si une colonne a était triée à l'aide des tris automatique, que cette colonne se masque automatiquement !

 

[Compte Supprimé 979]

Re : Masquage d'une colonne si celle-ci à était trié !

Re,

Tris automatique ... je ne connais pas de tris automatique sur Excel !?

Un bout de fichier please ...

A+

 

[WDAndCo]

Re : Masquage d'une colonne si celle-ci à était trié !

Re Bonjour.

Pardon et pourtant je n'ai pas encore commencé l'apéro ! ! !
Se n'est pas Trier mais Filtrer ! !

Pardon encore !

 

[Compte Supprimé 979]

Re : Masquage d'une colonne si celle-ci à était trié ![Edit]Filtré[/Edit]

Re,

Ha je me disais aussi ... fait gaffe avec la bière

Le seul moyen de masquer les colonnes c'est en cliquant par un bouton ou en changeant de cellule

Le code via un bouton

Sub MasquerColFiltrée()  Dim r As Long, mFilter As AutoFilter
  If ActiveSheet.AutoFilterMode Then
    Set mFilter = ActiveSheet.AutoFilter
    With mFilter
      For r = 1 To .Filters.Count
        If .Filters(r).On Then
          Cells(1, r).EntireColumn.Hidden = True
        End If
      Next r
    End With
  End If
End Sub

A+

 

[WDAndCo]

Re : Masquage d'une colonne si celle-ci à était trié ![Edit]Filtré[/Edit]

Bonsoir le Forum

Cela fonctionne du feu de Dieu ! Mais est il possible de rendre cela automatique ?
Je vais regarder du coté d'un somme(9,x,x) qui change peut être ?

A+ une fois !

 

[Compte Supprimé 979]

Re : Masquage d'une colonne si celle-ci à était trié ![Edit]Filtré[/Edit]

Re,

Si tu as une somme dans ta feuille ... tu peux peut-être voir du côté de l'évènement "Calculate" de celle-ci 😉

A+

 

[WDAndCo]

Re : Masquage d'une colonne si celle-ci à était trié ![Edit]Filtré[/Edit]

Bonsoir le Forum

Ce n'est que du texte mais il y a cela en S1

=SOUS.TOTAL(9;AA:AA)&" Fiches"

Juste pour avoir le nombre de fiche affiché avec des 1 dans la colonne AA

Il faudrait mettre cette valeur dans une cellule avant chaque Filtrage puis faire une comparaison avec S1 est si cela est différent déclenché la Macro. Mais cela je ne sais pas faire.

Votre avis.

 

[WDAndCo]

Re : Masquage d'une colonne si celle-ci à était trié ![Edit]Filtré[/Edit]

Bonsoir le Forum

J'ai trouvé cela sur le Forum, que j'ai adapté mais il ne fonctionne plus ! :

Private Sub Worksheet_Calculate()
If Range("AA1").Value = Range("AB1").Value Then End Sub
MasquerColFiltrée
Range("AB1").Value = Range("AA1").Value
End Sub

D’avance merci

 

[Compte Supprimé 979]

Re : Masquage d'une colonne si celle-ci à était trié ![Edit]Filtré[/Edit]

Salut WDAndCo

Pourquoi ne pas utiliser tout simplement

Private Sub Worksheet_Calculate()
  MasquerColFiltrée
End Sub

A tester 😉

A+

 

[WDAndCo]

Re : Masquage d'une colonne si celle-ci à était trié ![Edit]Filtré[/Edit]

Bonsoir le Forum

J'ai trouvé :

If Range("AA1").Value = Range("AB1").Value Then End

il ne faut pas mettre le Sub

Merci BrunoM45, pile poil ! Votre solution est bien meilleur.