Affichage en fonction d'une cellule

[mathieu444]

Bonjour,

Je voudrai savoir s'il existe une solution simple pour afficher toutes les colonnes d'une plage dans lesquelles il y a "HB" à la ligne 1.

Merci de votre aide

 

[tototiti2008]

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 ?

 

[mathieu444]

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é ?

 

[mathieu444]

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.

 

[mathieu444]

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.

 

[mathieu444]

Re : Affichage en fonction d'une cellule

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

 

[mathieu444]

Re : Affichage en fonction d'une cellule

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

Merci

Mathieu

 

[tototiti2008]

Re : Affichage en fonction d'une cellule

Bonjour à tous,

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

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

 

[mathieu444]

Re : Affichage en fonction d'une cellule

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

Merci beaucoup

 

[mathieu444]

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.

 

[mathieu444]

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 ....

 

[mathieu444]

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

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

 

[tototiti2008]

Re : Affichage en fonction d'une cellule

Bonjour,

à tester :

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

 

[mathieu444]

Re : Affichage en fonction d'une cellule

Tu es vraiment le meilleur...

Merci beaucoup