Bonsoir
Dans la macro suivante le critère de trie est le contenu de la cellule
active et
je voudrait que les critère soit "égal" ou qui "contien" en partie le
contenu.
Comment modifier cette macro?
Merci
Sub Aig_Filtre()
Dim leCrit
ActiveCell(1, 1).Select
leCrit = ActiveCell.Value
Windows("Insp_Coteau.xls:3").Activate
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd
Range("A1").Select
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
Daniel
Bonjour. Je n'ai pas très bien compris ce que tu entendais par "qui contient en partie le contenu". Mais si la cellule active contient "toto" et que tu cherches les champs contenant "toto" : leCrit = "=*" & ActiveCell.Value & "*" devrait le faire, de mémoire. Cordialement. Daniel "Daniel" a écrit dans le message de news: %
Bonsoir Dans la macro suivante le critère de trie est le contenu de la cellule active et je voudrait que les critère soit "égal" ou qui "contien" en partie le contenu.
Comment modifier cette macro? Merci
Sub Aig_Filtre() Dim leCrit ActiveCell(1, 1).Select leCrit = ActiveCell.Value Windows("Insp_Coteau.xls:3").Activate Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd Range("A1").Select End Sub
Bonjour.
Je n'ai pas très bien compris ce que tu entendais par "qui contient en
partie le contenu". Mais si la cellule active contient "toto" et que tu
cherches les champs contenant "toto" :
leCrit = "=*" & ActiveCell.Value & "*" devrait le faire, de mémoire.
Cordialement.
Daniel
"Daniel" <pellet15@videotron.ca> a écrit dans le message de news:
%23kWYaaziFHA.3960@TK2MSFTNGP12.phx.gbl...
Bonsoir
Dans la macro suivante le critère de trie est le contenu de la cellule
active et
je voudrait que les critère soit "égal" ou qui "contien" en partie le
contenu.
Comment modifier cette macro?
Merci
Sub Aig_Filtre()
Dim leCrit
ActiveCell(1, 1).Select
leCrit = ActiveCell.Value
Windows("Insp_Coteau.xls:3").Activate
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd
Range("A1").Select
End Sub
Bonjour. Je n'ai pas très bien compris ce que tu entendais par "qui contient en partie le contenu". Mais si la cellule active contient "toto" et que tu cherches les champs contenant "toto" : leCrit = "=*" & ActiveCell.Value & "*" devrait le faire, de mémoire. Cordialement. Daniel "Daniel" a écrit dans le message de news: %
Bonsoir Dans la macro suivante le critère de trie est le contenu de la cellule active et je voudrait que les critère soit "égal" ou qui "contien" en partie le contenu.
Comment modifier cette macro? Merci
Sub Aig_Filtre() Dim leCrit ActiveCell(1, 1).Select leCrit = ActiveCell.Value Windows("Insp_Coteau.xls:3").Activate Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd Range("A1").Select End Sub
