Contenu récent par meteo62

  1. M

    Calcul si cellule remplie par vba

    Code vba dans un tableau je souhaite savoir combien de cellule sont remplie et avoir le nombre fichier exemple joint merci
  2. M

    Impression normal et pdf

    Re : Impression normal et pdf désolé je ne comprends pas ce code ou le mettre dans le code ci dessous ( que tu m'a fait ), je suis un peu perdu la je sais je suis con mais je ne fais que débuter en vba Option Explicit Sub Imprime() With ActiveSheet.PageSetup...
  3. M

    Impression normal et pdf

    Re : Impression normal et pdf Qui a une solution pour l’enregistrement en pdf
  4. M

    Impression normal et pdf

    Re : Impression normal et pdf Bonjour Je mets à disposition le fichier modifié à titre d’exemple. Pour tous mot de passe demander = test Il ne me reste plus qu’a trouver le moyen d’enregistré ‘avec le même code) en PDF avec 1 seule fichier merci a tous
  5. M

    Impression normal et pdf

    Re : Impression normal et pdf J'ai trouvé merci Private Sub CommandButton1_Click() Dim sh& For sh = 2 To 17 Sheets(sh).Activate Call Imprime Next sh For sh = 18 To 18 Sheets(sh).Activate Call Imprime2 Next sh...
  6. M

    Impression normal et pdf

    Re : Impression normal et pdf Merci cela fonctionne super bien Juste une petite question : J’ai 1 onglet auquel les paramètres sont différents donc, j'ai donc crée un imprime2 avec les paramètres voulu mais comment faire pour le mettre a la suite de votre code Private Sub...
  7. M

    choisir la feuille

    Re : choisir la feuille Merci au modérateur de supprimer ce post ( cause doublon) https://www.excel-downloads.com/threads/impression-normal-et-pdf.212910/
  8. M

    Impression normal et pdf

    Re : Impression normal et pdf je supprime L'autre message. celui ci a l'exemple en pièce jointe Désoler
  9. M

    Impression normal et pdf

    Re : Impression normal et pdf Private Sub CommandButton1_Click() 'Feuil 2 ( 1page en Paysage + 1 en Portrait 'Impression de la 1ème page en paysage '------------------------------------- With Sheets("Feuil2").Select Range("A1:W48").Select 'définition de la plage de cellules constituant la 1ème...
  10. M

    choisir la feuille

    Re : choisir la feuille je viens de trouver Private Sub CommandButton1_Click() 'Feuil 2 ( 1 page en Paysage + 1 en Portrait 'Impression de la 1ème page en paysage '------------------------------------- With Sheets("Feuil2").Select Range("A1:W48").Select 'définition de la plage de cellules...
  11. M

    choisir la feuille

    Re : choisir la feuille Mais c'et pas le but je veux créer un bouton " imprimer tous" qui va me lancer sur chaque Feuille( environ 10) le code ci-dessus pour imprimer la page 1 en paysage et la page 2 de chaque feuille et sans autre manipulation a part le clic sur imprimer tous
  12. M

    choisir la feuille

    bonjour a tous dans un userform avec un bouton IMPRIMER TOUS je souhaite utiliser le code ci-dessous mais avec la possibilité de choisir la feuille code d'origine = 'Impression de la 1ème page en paysage '------------------------------------- Range("A1:W48").Select 'définition de la...
  13. M

    Impression normal et pdf

    Re : Impression normal et pdf Oui pour cette partie du code je venais de trouver merci pour ta réponse manu
  14. M

    Impression normal et pdf

    Bonjour a tous Dans mon fichier (ci-joint) sur les onglets feuil2,3,4 et 5 j’ai un bouton imprimer avec le code suivant : --------------------------------------------------------------------------------------------------------- Private Sub CommandButton3_Click() 'Impression de la 1ème...
  15. M

    cacher/apparaître bouton

    Re : cacher/apparaître bouton cela fonctionne correctement avec les codes If w.Name <> "Accueil" Then et On Error Resume Next merci pour ton aide