Masquer des cellules lors de l'impression

Anonyme
2015-09-15T09:27:12+00:00

Bonjour à vous!

Dans le forum il y a deja une question semblable mais je n'arrive pas à adapter les macro que j'ai trouvé à mon cas. En effet je voudrais masqué des lignes de sortes à ne pas les imprimé mais avec condition. Je m'explique:

Considerons l'image joint, je voudrais une macro qui masque les lignes qui ne sont pas les coupures de la devise qui se trouve dans la cellule D11.

Si dans D11 il y a CFAO alors la macro masque les lignes 21:27

Si dans D11 il y a DOLLAR alors la macro masque les lignes 16:21

Si dans D11 il y a EURO alors la macro masque les lignes 16:19 et la ligne 27

Si dans D11 il y a LIVRES STERLING alors la macro masque les lignes 16:22 et la ligne 27

apres l'impression toutes les lignes devrons reapparaitre.

NB: Nottons que la plage A1:M33 est variable

Merci

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

26 réponses

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. DanielCo 107.1K Points de réputation
    2015-09-22T08:58:52+00:00

    Bonjour,

    Je suis assez occupé en ce moment. Je regarde quand je peux.

    Cordialement.

    Daniel

    Cette réponse a-t-elle été utile ?

    1 personne a trouvé cette réponse utile.
    0 commentaires
  2. DanielCo 107.1K Points de réputation
    2015-09-19T14:13:23+00:00

    Bonjour,

    Charge un classeur exemple sur http://cjoint.com ou ailleurs sur le cloud et pposte le lien généré.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Anonyme
    2015-09-19T12:33:24+00:00

    Bonjour Monsieur Daniel

    La macro marche bien, mais j'ai d'autre soucis:

    j'aimerais à chaque fois que j'ai un nouveau client envoyé les information que je saisisse dans un autre tableau lineaire.

    je m'explique: la macro doit envoyer les informations dans un autre tableau de structure differente d'une autre feuille comme le tableau ci dessou:

    Ainsi donc la macro doit chercher la derniere ligne non vide + 1 de la feuil2 et enregistre les données selon les cellules, on aurait A3=C1; B3=F2; C3=D5; D3=D6; E3=D7; F3=D8; G3=D9; H3=D10; I3=D11; J3=B12; K3=E12; L3=C16; M3=C17; N3=C18; 03=C19; P3=C20; Q3=C21; R3=C22; S3=C23; T3=C24; U3=C25; V3=C26; W3=C27.

    Merci

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. Anonyme
    2015-09-16T10:25:30+00:00

    Bonjour

    Merci Monsieur Daniel, je l'essaie et je vous tiens informer.

    Bonne journée

    Cette réponse a-t-elle été utile ?

    0 commentaires
  5. DanielCo 107.1K Points de réputation
    2015-09-15T13:01:22+00:00

    Bonjour,

    Essaie :

    Sub Imprim() <br><br>    Select Case [D11].Value <br><br>        Case "CFAO": [21:27].EntireRow.Hidden = True <br><br>        Case "DOLLAR": [16:21].EntireRow.Hidden = True <br><br>        Case "EURO": [16:19].EntireRow.Hidden = True: Rows(27).Hidden = True <br><br>        Case "EURO": [16:22].EntireRow.Hidden = True: Rows(27).Hidden = True <br><br>    End Select <br><br>    ActiveSheet.PrintOut <br><br>    Cells.EntireRow.Hidden = False <br><br>End Sub

    Cordialement.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires