Affichage en fonction d'une cellule

tototiti2008

XLDnaute Barbatruc

• 8 Décembre 2009

• #2

Re : Affichage en fonction d'une cellule

Bonjour mathieu,

"Afficher", ça veut dire qu'elles sont masquées ?
ou bien tu ne veux afficher que celles-ci et masquer les autres ?

 

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 8 Décembre 2009

• #3

Re : Affichage en fonction d'une cellule

Bonjour,

Oui je veux afficher toutes les colonnes ou il y a "HB" entre la colonne I et la colonne IV et je veux cacher les autres.

Pour le code donné, étant débutant sur excel, où faut-il le rentrer ?

Sur une autre feuille, j'ai besoin de "BAD", dois-je uniquement remplacer "HB" par "BAD" dans le code demandé ?

 

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 8 Décembre 2009

• #4

Re : Affichage en fonction d'une cellule

Bonjour,

Merci pour votre aide... C'est vraiment super.
Je vous mets ici mon fichier excel original...

En fait, sur la feuille "APPEL", il faudrait que quand je tape le nom d'une activité en F2 (HB, GYM, RU, LU, BAD, TT, VTT, VB), celà puisse me cacher les colonnes qui ne correspondent pas à ce sport (entre la colonne I et la fin).

Voilà vous savez tout.

Merci beaucoup.

 

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 8 Décembre 2009

• #5

Re : Affichage en fonction d'une cellule

Bonjour,

Je fais remonter le post... et j'y rajoute "]le nouveau fichier

Toujours la même requette, sur la feuille "APPEL", il faudrait que quand je tape le nom d'une activité en F2 (HB, GYM, RU, LU, BAD, TT, VTT, VB), celà puisse me cacher les colonnes qui ne correspondent pas à ce sport (entre la colonne I et la fin).

Merci de votre aide, je n'y arrive pas avec la formule donnée.

 

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 9 Décembre 2009

• #6

Re : Affichage en fonction d'une cellule

Je n'arrive toujours pas à cacher les bonnes colonnes.
Help, please help 😀

 

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 9 Décembre 2009

• #7

Re : Affichage en fonction d'une cellule

Un petit up pour savoir si quelqu'un peut m'aider...

Merci

Mathieu

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Décembre 2009

• #8

Re : Affichage en fonction d'une cellule

Bonjour à tous,

si j'ai bien compris, code à mettre dans la feuille Appel :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
    Application.ScreenUpdating = False
    If Target.Address = "$F$2" Then
        Range("I1:IV1").EntireColumn.Hidden = False
        If Target.Value <> "" Then
            For i = 9 To 256
                If Cells(1, i).Value <> UCase(Target.Value) Then
                    Cells(1, i).EntireColumn.Hidden = True
                End If
            Next i
        End If
    End If
    Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 9 Décembre 2009

• #9

Re : Affichage en fonction d'une cellule

Merci pour cette formule, je viens d'y arriver. C'est super...

Merci beaucoup

 

Dernière modification par un modérateur: 9 Décembre 2009

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 9 Décembre 2009

• #10

Re : Affichage en fonction d'une cellule

Pourrait-on ajouter un code supplémentaire pour que quand on entre l'activité en f2, il y ait un filtre automatique en plus, c'est à dire de ne faire apparaitre que les élèves qui pratiquent cette activité ?

Merci beaucoup encore une fois.

 

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 10 Décembre 2009

• #11

Re : Affichage en fonction d'une cellule

En fait, ce serait le même code sauf qu'il faudrait cacher toutes les lignes entre la 4 et la 303, où n'est pas inscrit ce qu'il y a dans F2.

Je n'y arrive pas ....

 

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 10 Décembre 2009

• #12

Re : Affichage en fonction d'une cellule

Est-ce code qu'il faudrait mettre ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Application.ScreenUpdating = False
If Target.Address = "$F$2" Then
Range("I4😛303").EntireRow.Hidden = False
If Target.Value <> "" Then
For i = 4 To 303
If Cells(1, i).Value <> UCase(Target.Value) Then
Cells(1, i).EntireRow.Hidden = True
End If
Next i
End If
End If
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

Si oui, comment le rajouter à l'autre ?
Si non, quel code faut-il ajouter ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Décembre 2009

• #13

Re : Affichage en fonction d'une cellule

Bonjour,

à tester :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, Num As Long
    Application.ScreenUpdating = False
    If Target.Address = "$F$2" Then
        Range("I1:IV1").EntireColumn.Hidden = False
        If Target.Value <> "" Then
            For i = 9 To 256
                If Cells(1, i).Value <> UCase(Target.Value) Then
                    Cells(1, i).EntireColumn.Hidden = True
                End If
            Next i
        End If
    End If
    If Application.WorksheetFunction.CountIf(Range("$I$3:$P$3"), Range("$F$2").Value) > 0 Then
    Num = Application.WorksheetFunction.Match(Range("$F$2").Value, Range("$I$3:$P$3"), 0)
        ActiveSheet.AutoFilterMode = False
        Range("$I$3:$P$3").AutoFilter
        Range("$I$3:$P$3").AutoFilter Field:=Num, Criteria1:="<>"
    Else
        ActiveSheet.AutoFilterMode = False
    End If
    Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

M

mathieu444

Guest

• 10 Décembre 2009

• #14

Re : Affichage en fonction d'une cellule

Tu es vraiment le meilleur...

Merci beaucoup

 

Vote positif 0 Vote négatif