Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour
Un truc assez facile, c'est le filtre à appliquer sur la colonne ds dates et
y mettre comme condition >que.....
puis imprimer.
Bonne chance
Bonjour
Un truc assez facile, c'est le filtre à appliquer sur la colonne ds dates et
y mettre comme condition >que.....
puis imprimer.
Bonne chance
Bonjour
Un truc assez facile, c'est le filtre à appliquer sur la colonne ds dates et
y mettre comme condition >que.....
puis imprimer.
Bonne chance
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der).Address
End Sub
Camille
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
2008012512064616807-prenommulot@wanadoofr...
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac"
said:Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois
la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac" <ellimac_cremelier@hotmail.com>
said:
Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
End Sub
Camille
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
2008012512064616807-prenommulot@wanadoofr...
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois
la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac"
said:Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois
la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac" sa id:Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFo rmulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirec tion:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der ).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiqueme nt
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "dat e
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac" <ellimac_cremel...@hotmail.com> sa id:
Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFo rmulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirec tion:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der ).Address
End Sub
Camille
"Pierre.M" <prenom.mu...@wanadoo.fr> a écrit dans le message de news:
2008012512064616807-prenommulot@wanadoofr...
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiqueme nt
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "dat e
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac" sa id:Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFo rmulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirec tion:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der ).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiqueme nt
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "dat e
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[6]C[1]:R[500]C[1],0)"
deb = Range("iv1")+5 ---j'ai 5 lignes d'en-tete---
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der).Address
Range("iv1").clear
End Sub
Re,
Essaye ceci :
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[1]C[-9]:R[500]C[-9],0)"
deb = Range("j1")
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der).Address
Range("iv1").clear
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac"
said:Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois
la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[6]C[1]:R[500]C[1],0)"
deb = Range("iv1")+5 ---j'ai 5 lignes d'en-tete---
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der).Address
Range("iv1").clear
End Sub
Re,
Essaye ceci :
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[1]C[-9]:R[500]C[-9],0)"
deb = Range("j1")
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der).Address
Range("iv1").clear
End Sub
Camille
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
2008012513522550073-prenommulot@wanadoofr...
Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac" <ellimac_cremelier@hotmail.com>
said:
Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
End Sub
Camille
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
2008012512064616807-prenommulot@wanadoofr...
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois
la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[6]C[1]:R[500]C[1],0)"
deb = Range("iv1")+5 ---j'ai 5 lignes d'en-tete---
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der).Address
Range("iv1").clear
End Sub
Re,
Essaye ceci :
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[1]C[-9]:R[500]C[-9],0)"
deb = Range("j1")
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" & der).Address
Range("iv1").clear
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac"
said:Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois
la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la "date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
La j'obtiens une erreur d'execution 1004-La methode range de l'objet
global a echoue.
J'ai bricolé la macro ainsiSub Impr()
Range("iv1") = "=MATCH(TODAY(),R[6]C[1]:R[500]C[1],0)"
deb = Range("iv1")+5 ---j'ai 5 lignes d'en-tete---
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
Range("iv1").clear
End Sub
Et la ca marche, mais uniquement si la date du jour est dans mon tableau
(ce qui n'est pas toujours le cas).
Peut-etre que je n'ai pas tout compris...
En tous cas merci encore.
Pierre.M
On 2008-01-25 14:35:34 +0100, "Ellimac"
said:Re,
Essaye ceci :
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[1]C[-9]:R[500]C[-9],0)"
deb = Range("j1")
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
Range("iv1").clear
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac"
said:Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées
chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs
fois
la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la
"date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je
ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
La j'obtiens une erreur d'execution 1004-La methode range de l'objet
global a echoue.
J'ai bricolé la macro ainsi
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[6]C[1]:R[500]C[1],0)"
deb = Range("iv1")+5 ---j'ai 5 lignes d'en-tete---
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
Range("iv1").clear
End Sub
Et la ca marche, mais uniquement si la date du jour est dans mon tableau
(ce qui n'est pas toujours le cas).
Peut-etre que je n'ai pas tout compris...
En tous cas merci encore.
Pierre.M
On 2008-01-25 14:35:34 +0100, "Ellimac" <ellimac_cremelier@hotmail.com>
said:
Re,
Essaye ceci :
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[1]C[-9]:R[500]C[-9],0)"
deb = Range("j1")
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
Range("iv1").clear
End Sub
Camille
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
2008012513522550073-prenommulot@wanadoofr...
Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac" <ellimac_cremelier@hotmail.com>
said:
Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
End Sub
Camille
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
2008012512064616807-prenommulot@wanadoofr...
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées
chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs
fois
la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la
"date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je
ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
La j'obtiens une erreur d'execution 1004-La methode range de l'objet
global a echoue.
J'ai bricolé la macro ainsiSub Impr()
Range("iv1") = "=MATCH(TODAY(),R[6]C[1]:R[500]C[1],0)"
deb = Range("iv1")+5 ---j'ai 5 lignes d'en-tete---
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
Range("iv1").clear
End Sub
Et la ca marche, mais uniquement si la date du jour est dans mon tableau
(ce qui n'est pas toujours le cas).
Peut-etre que je n'ai pas tout compris...
En tous cas merci encore.
Pierre.M
On 2008-01-25 14:35:34 +0100, "Ellimac"
said:Re,
Essaye ceci :
Sub Impr()
Range("iv1") = "=MATCH(TODAY(),R[1]C[-9]:R[500]C[-9],0)"
deb = Range("j1")
der = Range("a50000").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
Range("iv1").clear
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Merci a toi aussi pour ton aide.
Je n'arrive malheureusement pas a faire fonctionner ta macro.
Erreur d'execution 448-argument nommé introuvable.
C'est le Selection.Find... qui ne marche pas.
Je precise que j'utilise Excel 97 sur Windows XP.
Je precise aussi que la date du jour ne figure pas forcemment dans mon
tableau...
Merci encore.
Pierre.M
On 2008-01-25 13:11:49 +0100, "Ellimac"
said:Bonjour,
Pour un tableau jusqu'en colonne G :
Sub Impr()
Columns("A:A").Select
Selection.Find(What:Úte, After:¬tiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
deb = ActiveCell.Row
der = Range("a50000").End(xlUp).Row
Range("A1:A21").Select
ActiveSheet.PageSetup.PrintArea = Range("a" & deb & ":g" &
der).Address
End Sub
Camille
"Pierre.M" a écrit dans le message de news:Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées
chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs
fois
la
même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la
"date
du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un
bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je
ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois
la même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la
"date du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois
la même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la
"date du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Bonjour a tous,
Un petit probleme sur lequel je seche lamentablement...
Dans un tableau j'ai des dates en colonne A, classées chronologiquement
(il s'agit d'un planning).
Il y a des trous dans la serie, mais je peux aussi avoir plusieurs fois
la même date (dans ce cas ces lignes se suivent ;-).
1-Comment definir la zone d'impression pour que, lorsque je demande
l'impression de mon tableau, seules les lignes comprisent entre la
"date du jour" et la fin du tableau s'impriment ?
2-Comment ecrire une macro qui ferait la meme chose (pour l'affecter a
un bouton "Imprimer", par exemple) ?
Je suppose que d'autres ont deja eu besoin d'un truc pareil, mais je ne
trouve pas...
Merci a tous pour votre aide.
Pierre.M
Salut à toi
Colonne A à H à imprimer
Ce code :
Do While Range("A1").Offset(i, 0) <> ""
If Range("A1").Offset(i, 0) >= Date Then
Exit Do
End If
i = i + 1
Loop
ActiveSheet.PageSetup.PrintArea = Range(Range("A1").Offset(i, 0), "H"
& Range("A65535").End(xlUp).Row).Address
Fonctionne aussi
Modifies la lettre "H" dans la dernière ligne pour modifier la colonne
à imprimer
Salut à toi
Colonne A à H à imprimer
Ce code :
Do While Range("A1").Offset(i, 0) <> ""
If Range("A1").Offset(i, 0) >= Date Then
Exit Do
End If
i = i + 1
Loop
ActiveSheet.PageSetup.PrintArea = Range(Range("A1").Offset(i, 0), "H"
& Range("A65535").End(xlUp).Row).Address
Fonctionne aussi
Modifies la lettre "H" dans la dernière ligne pour modifier la colonne
à imprimer
Salut à toi
Colonne A à H à imprimer
Ce code :
Do While Range("A1").Offset(i, 0) <> ""
If Range("A1").Offset(i, 0) >= Date Then
Exit Do
End If
i = i + 1
Loop
ActiveSheet.PageSetup.PrintArea = Range(Range("A1").Offset(i, 0), "H"
& Range("A65535").End(xlUp).Row).Address
Fonctionne aussi
Modifies la lettre "H" dans la dernière ligne pour modifier la colonne
à imprimer