Je cherche une macro qui regarde si la colonne de P3 à P73 (entete en P3)
est filtrée dans (Feuille2).
Si non alors, cette procedure :
Sub T75_QUANDCLIC()
Sheets("Feuille1").Select
Selection.AutoFilter Field:=6, Criteria1:="Genre"
Selection.AutoFilter Field:=4, Criteria1:="Type"
Selection.AutoFilter Field:=8
End Sub
Si oui alors , rechercher la valeur de la première cellule filtrée soit P4
de "Feuille2"et faire ceci
Sub T75_QUANDCLIC()
Sheets("Feuille1").Select
Selection.AutoFilter Field:=6, Criteria1:="Genre"
Selection.AutoFilter Field:=4, Criteria1:="Type"
Selection.AutoFilter Field:=8, Criterial:=" " 'ici la valeur
de P4 de "Feuille2"
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour David,
Sub zaza() If Worksheets("Feuil2").FilterMode = True Then MsgBox "Filtre activé !" Else: MsgBox "Filtre désactivé..." End If End Sub
ChrisV
"David T." a écrit dans le message de news: #XS1U#
Bonjour à tous
Je cherche une macro qui regarde si la colonne de P3 à P73 (entete en P3) est filtrée dans (Feuille2). Si non alors, cette procedure : Sub T75_QUANDCLIC() Sheets("Feuille1").Select Selection.AutoFilter Field:=6, Criteria1:="Genre" Selection.AutoFilter Field:=4, Criteria1:="Type" Selection.AutoFilter Field:=8 End Sub
Si oui alors , rechercher la valeur de la première cellule filtrée soit P4 de "Feuille2"et faire ceci Sub T75_QUANDCLIC() Sheets("Feuille1").Select Selection.AutoFilter Field:=6, Criteria1:="Genre" Selection.AutoFilter Field:=4, Criteria1:="Type" Selection.AutoFilter Field:=8, Criterial:=" " 'ici la valeur
de P4 de "Feuille2" End Sub
Merci de votre aide et bonne journée
Salutations
David
Bonjour David,
Sub zaza()
If Worksheets("Feuil2").FilterMode = True Then
MsgBox "Filtre activé !"
Else: MsgBox "Filtre désactivé..."
End If
End Sub
ChrisV
"David T." <direction-ternoise@wanadoo.fr> a écrit dans le message de news:
#XS1U#f8DHA.1000@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
Je cherche une macro qui regarde si la colonne de P3 à P73 (entete en P3)
est filtrée dans (Feuille2).
Si non alors, cette procedure :
Sub T75_QUANDCLIC()
Sheets("Feuille1").Select
Selection.AutoFilter Field:=6, Criteria1:="Genre"
Selection.AutoFilter Field:=4, Criteria1:="Type"
Selection.AutoFilter Field:=8
End Sub
Si oui alors , rechercher la valeur de la première cellule filtrée soit P4
de "Feuille2"et faire ceci
Sub T75_QUANDCLIC()
Sheets("Feuille1").Select
Selection.AutoFilter Field:=6, Criteria1:="Genre"
Selection.AutoFilter Field:=4, Criteria1:="Type"
Selection.AutoFilter Field:=8, Criterial:=" " 'ici la
valeur
Sub zaza() If Worksheets("Feuil2").FilterMode = True Then MsgBox "Filtre activé !" Else: MsgBox "Filtre désactivé..." End If End Sub
ChrisV
"David T." a écrit dans le message de news: #XS1U#
Bonjour à tous
Je cherche une macro qui regarde si la colonne de P3 à P73 (entete en P3) est filtrée dans (Feuille2). Si non alors, cette procedure : Sub T75_QUANDCLIC() Sheets("Feuille1").Select Selection.AutoFilter Field:=6, Criteria1:="Genre" Selection.AutoFilter Field:=4, Criteria1:="Type" Selection.AutoFilter Field:=8 End Sub
Si oui alors , rechercher la valeur de la première cellule filtrée soit P4 de "Feuille2"et faire ceci Sub T75_QUANDCLIC() Sheets("Feuille1").Select Selection.AutoFilter Field:=6, Criteria1:="Genre" Selection.AutoFilter Field:=4, Criteria1:="Type" Selection.AutoFilter Field:=8, Criterial:=" " 'ici la valeur
de P4 de "Feuille2" End Sub
Merci de votre aide et bonne journée
Salutations
David
David T.
Bonjour ChrisV
Merci pour cette approche mais en VB je rame beaucoup. J'utilise juste l'enregistreur.
Un peu plus serait le bien venu ! ! !
Salutations
david
Bonjour ChrisV
Merci pour cette approche mais en VB je rame beaucoup.
J'utilise juste l'enregistreur.
