Contenu récent par Stef

  1. S

    Importation - Format chiffre non reconnu

    Salut Dugenou, Merci pour ton aide, ça fonctionne bien effectivement :P
  2. S

    Importation - Format chiffre non reconnu

    Bonjour le forum Mon titre n'est pas très explicite, je m'en excuse. Voici mon problème : Un logiciel de comptabilité me permet de faire des extractions de données sous excel. Une fois l'importation réalisée, les chiffres ne sont pas correctement formatés, et ils sont reconnus comme...
  3. S

    [Impression] 50 onglets - 2 zones

    Abel écrit: Exact Abel, mais je pensais l'avoir déja fait : For Each ws In ThisWorkbook.Worksheets If ws.Range('A1') = 'CHIFFRE D'AFFAIRE' Then With ws.PageSetup Je pense que ce qui me pose problème c'est que l'instruction Next ws est placée à la fin du code. il faudrait...
  4. S

    [Impression] 50 onglets - 2 zones

    Abel écrit:
  5. S

    [Impression] 50 onglets - 2 zones

    zut :o je viens de constater qu'avec la macro réalisée la numérotation des pages ne fonctionne pas (elles sont toutes numérotées comme la 'page 1 / 1')... Une idée ? :S
  6. S

    [Impression] 50 onglets - 2 zones

    zut :o je viens de constater qu'avec la macro réalisée la numérotation des pages ne fonctionne pas (elles sont toutes numérotées comme la 'page 1 / 1')... Une idée ? :S
  7. S

    [Impression] 50 onglets - 2 zones

    Salut le forum ! Bon juste un mot pour dire que tout fonctionne très bien. Voici les 2 macros finales : 'Impression résultat Sub Impression_Résultat() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Range('A1') = 'CHIFFRE D'AFFAIRE' Then With...
  8. S

    [Impression] 50 onglets - 2 zones

    Effectivement cela fonctionne très bien, Je vais maintenant passer de mon fichier test à mon fichier réel ! Bon je vous souhaite un bon we à tous (c'est le moment de faire une bonne pose là !), et Abel encore merci pour tout ;)
  9. S

    [Impression] 50 onglets - 2 zones

    LA SUITE.... Encore merci Abdel, voilà où j'en suis : Mon code est le suivant : Sub ImprimePage2() Dim ws As Worksheet i = 1 For Each ws In ThisWorkbook.Worksheets If ws.Range('A1') = 'CHIFFRE D'AFFAIRE' Then With Sheets(i).PageSetup .PrintArea =...
  10. S

    [Impression] 50 onglets - 2 zones

    aaaahhhhhhhhhhhhhhhhh j'adore la seconde option... J'explique pourquoi (en résumé) : le fait de réserver une zone dans chaque feuille permet, une fois la zone saisie, de faire des regroupements 'à la volée', et ça c'est bien pratique... On peut même imaginer que la zone de saisie fasse...
  11. S

    [Impression] 50 onglets - 2 zones

    lol vi bien vu évidemment... heu.. jcrois que j'y avais pensé... Nan en fait ce qui m'interesse ce serait une liste figée à l'avance par exemple : 7, 8, 9, 11, 15, 17, 18, 19 à 33, 37, 42, etc...
  12. S

    [Impression] 50 onglets - 2 zones

    Salut Abel et encore merci pour tes réponses, surtout si tu n'a pas beaucoup de temps... Je débute dans le domaine, je fouine pas mal sur le web pour me former, j'avance lentement ,mais surement... J'ai quand même une question par rapport à ta remarque : Abel écrit: Si les feuilles à...
  13. S

    [Impression] 50 onglets - 2 zones

    Merci 2passage ! Reste donc 1/ à définir les références aux onglets concernés par la macro 2/ gérer des multi impressions...
  14. S

    [Impression] 50 onglets - 2 zones

    Ca marche ! :) Enfin la multi-impression marche... Ce qu'il me faudrait maintenant c'est limiter l'impression à une sélection de feuilles... du genre : feuille 1 à 30 ou feuille 1, 2, 3, 4, 5, ..., 30 Question : est il possible de paramétrer l'orientation du papier ? Par...
  15. S

    [Impression] 50 onglets - 2 zones

    Salut Abel, et merci pour ta réponse. Oui ma zone d'impression est la même sur chacune des feuilles concernées... Ta solution est interessante, je vais regarder ça... tite question quand même : comment limiter cette zone d'édition 3D, par exemple si je veux faire une édition partielle (39...