Discussion :

[sebing]

Bonjour,

J'essaye (sans succès) de faire en sorte que quand je clique sur la cellule C7, qu'une feuille s'ouvre avec un filtre.
La cellule C7 contient une formule.

Je mets le code que j'essaye:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Row = 7 And Target.Column = 3 Then
 Sheets("dus engins").Activate
   Range("$A$2:$G$2600").AutoFilter Field:=1, Criteria1:="=ep*", _
        Operator:=xlAnd
        End If
End Sub

Pourquoi ça ne marche pas? est-ce parceque la cellule n'est pas vide?

Merci de m'éclairer

Seb

[mapeh]

Bonjour,

Essai ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 7 And Target.Column = 3 Then
    With Sheets("dus engins")
        .Range("$A$2:$G$2600").AutoFilter Field:=1, Criteria1:="=ep*", _
            Operator:=xlAnd
        .Activate
    End With
End If
End Sub

Bonne journée

[sebing]

Merci.
Donc il fallait rajouter with (fonction que je ne connais pas).

Bonne journée.

Seb