Bonjour à tous,
Comme tout le monde j'utilise les filtres automatiques, mais je voudrais
renvoyer sur une autre feuille le résultat de chaque filtre avec une macro
qui me permettrait d'avoir un état total des résultat les uns a la suite des
autres.
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. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
Bonjour.
Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test()
If ActiveSheet.FilterMode = True Then
Range("_filterdatabase").Offset(1 _
).Resize(Range("_filterdatabase").Rows.Count _
- 1).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End If
End Sub
Cordialement.
Daniel
"Pierre" <nospam@nospam.fr> a écrit dans le message de news:
%23PNtAgPsHHA.3484@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Comme tout le monde j'utilise les filtres automatiques, mais je voudrais
renvoyer sur une autre feuille le résultat de chaque filtre avec une macro
qui me permettrait d'avoir un état total des résultat les uns a la suite
des autres.
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
jps
moi ausi, à un bouton...je m'y attache jps
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
moi ausi, à un bouton...je m'y attache
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OpTDOyPsHHA.3628@TK2MSFTNGP02.phx.gbl...
Bonjour.
Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test()
If ActiveSheet.FilterMode = True Then
Range("_filterdatabase").Offset(1 _
).Resize(Range("_filterdatabase").Rows.Count _
- 1).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End If
End Sub
Cordialement.
Daniel
"Pierre" <nospam@nospam.fr> a écrit dans le message de news:
%23PNtAgPsHHA.3484@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Comme tout le monde j'utilise les filtres automatiques, mais je voudrais
renvoyer sur une autre feuille le résultat de chaque filtre avec une
macro qui me permettrait d'avoir un état total des résultat les uns a la
suite des autres.
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
Pierre
Décidément vous ètes trop forts je me demande bien ou vous trouvez tout ça. j'arriverai bien a vous coller un jour.
Demain je'essaye cette macro
Merci à tous
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
Décidément vous ètes trop forts je me demande bien ou vous trouvez tout ça.
j'arriverai bien a vous coller un jour.
Demain je'essaye cette macro
Merci à tous
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OpTDOyPsHHA.3628@TK2MSFTNGP02.phx.gbl...
Bonjour.
Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test()
If ActiveSheet.FilterMode = True Then
Range("_filterdatabase").Offset(1 _
).Resize(Range("_filterdatabase").Rows.Count _
- 1).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End If
End Sub
Cordialement.
Daniel
"Pierre" <nospam@nospam.fr> a écrit dans le message de news:
%23PNtAgPsHHA.3484@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Comme tout le monde j'utilise les filtres automatiques, mais je voudrais
renvoyer sur une autre feuille le résultat de chaque filtre avec une
macro qui me permettrait d'avoir un état total des résultat les uns a la
suite des autres.
Décidément vous ètes trop forts je me demande bien ou vous trouvez tout ça. j'arriverai bien a vous coller un jour.
Demain je'essaye cette macro
Merci à tous
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
Daniel
Bonsoir. Trop fort... pour moi ;-)) Daniel "jps" a écrit dans le message de news:
moi ausi, à un bouton...je m'y attache jps
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
Bonsoir.
Trop fort... pour moi ;-))
Daniel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uoKwX1PsHHA.3628@TK2MSFTNGP02.phx.gbl...
moi ausi, à un bouton...je m'y attache
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OpTDOyPsHHA.3628@TK2MSFTNGP02.phx.gbl...
Bonjour.
Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test()
If ActiveSheet.FilterMode = True Then
Range("_filterdatabase").Offset(1 _
).Resize(Range("_filterdatabase").Rows.Count _
- 1).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End If
End Sub
Cordialement.
Daniel
"Pierre" <nospam@nospam.fr> a écrit dans le message de news:
%23PNtAgPsHHA.3484@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Comme tout le monde j'utilise les filtres automatiques, mais je voudrais
renvoyer sur une autre feuille le résultat de chaque filtre avec une
macro qui me permettrait d'avoir un état total des résultat les uns a la
suite des autres.
Bonsoir. Trop fort... pour moi ;-)) Daniel "jps" a écrit dans le message de news:
moi ausi, à un bouton...je m'y attache jps
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
jps
ta réponse se serait-elle inspirée de la pub de la MAAF, pierre? je l'aurai celui-là, je l'aurai.... jps
"Pierre" a écrit dans le message de news: uAvLS%
Décidément vous ètes trop forts je me demande bien ou vous trouvez tout ça. j'arriverai bien a vous coller un jour.
Demain je'essaye cette macro
Merci à tous
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
ta réponse se serait-elle inspirée de la pub de la MAAF, pierre?
je l'aurai celui-là, je l'aurai....
jps
"Pierre" <nospam@nospam.fr> a écrit dans le message de news:
uAvLS%23PsHHA.4992@TK2MSFTNGP05.phx.gbl...
Décidément vous ètes trop forts je me demande bien ou vous trouvez tout
ça.
j'arriverai bien a vous coller un jour.
Demain je'essaye cette macro
Merci à tous
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OpTDOyPsHHA.3628@TK2MSFTNGP02.phx.gbl...
Bonjour.
Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test()
If ActiveSheet.FilterMode = True Then
Range("_filterdatabase").Offset(1 _
).Resize(Range("_filterdatabase").Rows.Count _
- 1).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End If
End Sub
Cordialement.
Daniel
"Pierre" <nospam@nospam.fr> a écrit dans le message de news:
%23PNtAgPsHHA.3484@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Comme tout le monde j'utilise les filtres automatiques, mais je voudrais
renvoyer sur une autre feuille le résultat de chaque filtre avec une
macro qui me permettrait d'avoir un état total des résultat les uns a la
suite des autres.
ta réponse se serait-elle inspirée de la pub de la MAAF, pierre? je l'aurai celui-là, je l'aurai.... jps
"Pierre" a écrit dans le message de news: uAvLS%
Décidément vous ètes trop forts je me demande bien ou vous trouvez tout ça. j'arriverai bien a vous coller un jour.
Demain je'essaye cette macro
Merci à tous
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
jps
:-p jps
"Daniel" a écrit dans le message de news: %23nTZ%
Bonsoir. Trop fort... pour moi ;-)) Daniel "jps" a écrit dans le message de news:
moi ausi, à un bouton...je m'y attache jps
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
:-p
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23nTZ%23RQsHHA.5024@TK2MSFTNGP06.phx.gbl...
Bonsoir.
Trop fort... pour moi ;-))
Daniel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uoKwX1PsHHA.3628@TK2MSFTNGP02.phx.gbl...
moi ausi, à un bouton...je m'y attache
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OpTDOyPsHHA.3628@TK2MSFTNGP02.phx.gbl...
Bonjour.
Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test()
If ActiveSheet.FilterMode = True Then
Range("_filterdatabase").Offset(1 _
).Resize(Range("_filterdatabase").Rows.Count _
- 1).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End If
End Sub
Cordialement.
Daniel
"Pierre" <nospam@nospam.fr> a écrit dans le message de news:
%23PNtAgPsHHA.3484@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Comme tout le monde j'utilise les filtres automatiques, mais je
voudrais renvoyer sur une autre feuille le résultat de chaque filtre
avec une macro qui me permettrait d'avoir un état total des résultat
les uns a la suite des autres.
Bonsoir. Trop fort... pour moi ;-)) Daniel "jps" a écrit dans le message de news:
moi ausi, à un bouton...je m'y attache jps
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
Pierre
Non mais c'est tout comme.
--
"jps" a écrit dans le message de news:
ta réponse se serait-elle inspirée de la pub de la MAAF, pierre? je l'aurai celui-là, je l'aurai.... jps
"Pierre" a écrit dans le message de news: uAvLS%
Décidément vous ètes trop forts je me demande bien ou vous trouvez tout ça. j'arriverai bien a vous coller un jour.
Demain je'essaye cette macro
Merci à tous
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.
Est ce que ça existe ?
Merci pour la réponse
--
Non mais c'est tout comme.
--
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
edbvrrWsHHA.508@TK2MSFTNGP02.phx.gbl...
ta réponse se serait-elle inspirée de la pub de la MAAF, pierre?
je l'aurai celui-là, je l'aurai....
jps
"Pierre" <nospam@nospam.fr> a écrit dans le message de news:
uAvLS%23PsHHA.4992@TK2MSFTNGP05.phx.gbl...
Décidément vous ètes trop forts je me demande bien ou vous trouvez tout
ça.
j'arriverai bien a vous coller un jour.
Demain je'essaye cette macro
Merci à tous
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OpTDOyPsHHA.3628@TK2MSFTNGP02.phx.gbl...
Bonjour.
Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test()
If ActiveSheet.FilterMode = True Then
Range("_filterdatabase").Offset(1 _
).Resize(Range("_filterdatabase").Rows.Count _
- 1).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End If
End Sub
Cordialement.
Daniel
"Pierre" <nospam@nospam.fr> a écrit dans le message de news:
%23PNtAgPsHHA.3484@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Comme tout le monde j'utilise les filtres automatiques, mais je
voudrais renvoyer sur une autre feuille le résultat de chaque filtre
avec une macro qui me permettrait d'avoir un état total des résultat
les uns a la suite des autres.
ta réponse se serait-elle inspirée de la pub de la MAAF, pierre? je l'aurai celui-là, je l'aurai.... jps
"Pierre" a écrit dans le message de news: uAvLS%
Décidément vous ètes trop forts je me demande bien ou vous trouvez tout ça. j'arriverai bien a vous coller un jour.
Demain je'essaye cette macro
Merci à tous
"Daniel" a écrit dans le message de news:
Bonjour. Utilise la macro suivante (que tu peux attacher à un bouton) :
Sub test() If ActiveSheet.FilterMode = True Then Range("_filterdatabase").Offset(1 _ ).Resize(Range("_filterdatabase").Rows.Count _ - 1).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) End If End Sub
Cordialement. Daniel "Pierre" a écrit dans le message de news: %
Bonjour à tous, Comme tout le monde j'utilise les filtres automatiques, mais je voudrais renvoyer sur une autre feuille le résultat de chaque filtre avec une macro qui me permettrait d'avoir un état total des résultat les uns a la suite des autres.