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-23T15:44:05+00:00

    Bonjour,

    Attache cette macro à un bouton :

    Sub ArchiveAchats() <br><br>    Dim Sh As Worksheet, Ligne As Long, I As Integer <br><br>    Set Sh = Sheets("Reçu Achat") <br><br>    Sh.[C1] = Sh.[C1] + 1 <br><br>    If Sh.[D5] <> "" Then Sh.[F2] = Date <br><br>    With Sheets("Archive ACHAT") <br><br>        Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 2 <br><br>        .Cells(Ligne, 1) = Sh.[C1] <br><br>        .Cells(Ligne, 2) = Sh.[F2] <br><br>        .Cells(Ligne, 3) = Sh.[D5] <br><br>        .Cells(Ligne, 4) = Sh.[D6] <br><br>        .Cells(Ligne, 5) = Sh.[D7] <br><br>        .Cells(Ligne, 6) = Sh.[D8] <br><br>        .Cells(Ligne, 7) = Sh.[D9] <br><br>        .Cells(Ligne, 8) = Sh.[D10] <br><br>        .Cells(Ligne, 9) = Sh.[D11] <br><br>        .Cells(Ligne, 10) = Sh.[B12] <br><br>        .Cells(Ligne, 11) = Sh.[E12] <br><br>        For I = 12 To 23 <br><br>            .Cells(Ligne, I) = Sh.Cells(I + 4, 3) <br><br>        Next I <br><br>        For I = 24 To 35 <br><br>            .Cells(Ligne, I) = Sh.Cells(I - 8, 4) <br><br>        Next I <br><br>    End With <br><br>End Sub

    Daniel

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

    0 commentaires
  2. Anonyme
    2015-09-23T14:07:46+00:00

    Bonjour Monsieur Daniel

    au fait la plage A1M34 qui porte les bordereaux sera statique et donc je voudrais associer un bouton à une macro qui pourra incrementer le numero du bordereau inserer la date dans la cellule F2 losque le nom est saisie dans la cellule D5, le clic sur le bouton doit aussi envoyer le contenu des cellules de la plage A1M34 dans la feuil Archive Achat selon les cellule.

    J'ai deja ce qu'il faut dans les colonnes AJ et AK, des formules. Pour le moment rien à moins que vous me conseillez quelque chose.

    Merci

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

    0 commentaires
  3. DanielCo 107.1K Points de réputation
    2015-09-22T12:45:22+00:00

    >  le numero de bordereau s'incremente à chaque nouveau client

    C'est la macro qui doit l'incrémenter ?

    Que faut-il mettre dans la colonne AJ (Valeur totale) ?

    Daniel

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

    0 commentaires
  4. Anonyme
    2015-09-22T10:08:31+00:00

    Prenez votre temps monsieur Daniel

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

    0 commentaires
  5. Anonyme
    2015-09-22T08:39:17+00:00

    Bonjour, Monsieur Daniel

    Voici le classeur.

    http://www.cjoint.com/c/EIwioeo8RHi

    comme je disais, je voudrais une macro qui:

    • envoie les champs du "recu Achat" dans la feuil "Archive Achat"
    • le numero de bordereau s'incremente à chaque nouveau client
    • la date n'apparait que si le nom du client est saisi.

    Merci

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

    0 commentaires