cibleo
XLDnaute Impliqué
Bonsoir le forum,
Dans le fichier que je vous joins ci-dessous, j'ai placé une macro événementielle BeforePrint dans le ThisWorbook que j'aimerais modifier quelque peu.
Dans mes feuilles "Recherche 1 ou 2", la mise en page devrait s'effectuer automatiquement, le saut de page venant se placer à la dernière ligne non vide (la colonne B en est la référence).
1er problème :
Lors de recherches successives à l'aide de mon formulaire, les sauts de pages ne se placent pas toujours à la derniére ligne non vide lors de l'aperçu.
2ème problème :
En G1 ou H1, apparait le mot saisi dans le formulaire de Recherche. Or, il n'apparaît pas toujours lors de l'aperçu.
3ème souci :
Le format "Datejour" placé en pied de page ne s'applique pas toujours.
D'autre part, dois-je aussi corriger la syntaxe de la partie surlignée en rouge ci-dessus, je ne trouve pas cela très follichon.
Pour info, les feuilles "Recherche 1 et 2" sont alimentées par mes macros de recherche, elles sont donc à plages variables.
En résumé, j'ai l'impression que l'aperçu m'affiche les paramètres de mes précédentes actions. (Cela ne le fait pas à chaque fois) 😎
Si vous pouviez m'aider à régler ces petits problèmes qui je crois doivent être liés.
Merci d'avance Cibleo
Bonne soirée à tous.
Dans le fichier que je vous joins ci-dessous, j'ai placé une macro événementielle BeforePrint dans le ThisWorbook que j'aimerais modifier quelque peu.
Code:
....
Select Case Ws.Name
Case Is = "Recherche1", "Recherche2"
Ws.PageSetup.CenterHeader = "&""Verdana,Normal""&14Résultat de la recherche du mot-clé : " [COLOR=red]& Range("G1") + Range("H1").Value[/COLOR]
Derlig = Range("B65536").End(xlUp).Row
Ws.PageSetup.PrintArea = Range("A1", Cells(Derlig, 6)).Address
....Dans mes feuilles "Recherche 1 ou 2", la mise en page devrait s'effectuer automatiquement, le saut de page venant se placer à la dernière ligne non vide (la colonne B en est la référence).
1er problème :
Lors de recherches successives à l'aide de mon formulaire, les sauts de pages ne se placent pas toujours à la derniére ligne non vide lors de l'aperçu.
2ème problème :
En G1 ou H1, apparait le mot saisi dans le formulaire de Recherche. Or, il n'apparaît pas toujours lors de l'aperçu.
3ème souci :
Le format "Datejour" placé en pied de page ne s'applique pas toujours.
Code:
DateJour = Format(Now, "dddd dd mmmm yyyy à hh:mm")D'autre part, dois-je aussi corriger la syntaxe de la partie surlignée en rouge ci-dessus, je ne trouve pas cela très follichon.
Pour info, les feuilles "Recherche 1 et 2" sont alimentées par mes macros de recherche, elles sont donc à plages variables.
En résumé, j'ai l'impression que l'aperçu m'affiche les paramètres de mes précédentes actions. (Cela ne le fait pas à chaque fois) 😎
Si vous pouviez m'aider à régler ces petits problèmes qui je crois doivent être liés.
Merci d'avance Cibleo
Bonne soirée à tous.