Besoin d'une macro excel 2007

Résolu
noe2008 Messages postés 191 Statut Membre -  
noe2008 Messages postés 191 Statut Membre -
salut les amis
j'ai besoin d'une macro je vais simplifier :
dans la feuille 1
dans la cellule A1 écrire 1 puis imprimer
dans la cellule A1 écrire 2 puis imprimer
dans la cellule A1 écrire 3 puis imprimer
dans la cellule A1 écrire 4 puis imprimer
.....................................
.....................................

dans la cellule A1 ecrire n puis imprimer

c'est à dire changer la valeure de la cellule A1 de 1 à n et imprimer a chaque fois et je veux que je pourrai le nombre : n
merci

8 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour à tous,

    à tester : 
    Sub combien()
    Dim n As Long, i As Long
    n = Application.InputBox("Combien de feuilles ? ", "Nombre", , , , , , 1)
    For i = 1 To n
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        [A1] = [A1] + 1
    Next i
End Sub

    Tu peux ajouter [A1]=1 avant le End Sub si tu veux réinitialiser
    eric

    En essayant continuellement, on finit par réussir.
    Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
    En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
    2
    1. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
       
      Merci eriiic, à une prochaine.
      Amicales salutations.
      0
  2. noe2008 Messages postés 191 Statut Membre 4
     
    SALUT LES AMIS ENCORE PAS DE RAPONSE
    0
  3. noe2008 Messages postés 191 Statut Membre 4
     
    elle difficile cette macro?
    0
  4. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    C'est beaucoup plus simple de taper la valeur dans [A1] et clic sur Impression rapide (se trouve dans la barre d'outils Accès rapide)
    Le temps de l'expliquer est c'est déjà imprimer 3 fois et plus...

    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. noe2008 Messages postés 191 Statut Membre 4
     
    ta reponse Le Pingou ne merite aucun commentaire
    0
    1. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
       
      Bonjour,
      Alors à lire d'urgence
      https://www.commentcamarche.net/infos/25855-charte-d-utilisation-de-commentcamarche-net-respect-d-autrui/#politesse

      Salutations.
      Le Pingou
      0
      1. noe2008 Messages postés 191 Statut Membre 4 > Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention  
         
        salut

        j'ai seuleument essayer de simplifier

        ma feuille contient des cellules contenant des formules :" recherchev " une fois je change la valeur de la cellule A1 j'ai les donnée d'un autre client dans ma feuille

        chaque soir je dois imprimer entre 200 et 500 cette feuille en changeant la valeur de A1

        la macro me simplifiera cette tache penible

        merci d'avance pour l'effort
        0
  7. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Cette procédure imprime la feuille active : 
    Sub ImprimeFeuilleActive()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End Sub

    0
  8. noe2008 Messages postés 191 Statut Membre 4
     
    merci infiniment
    si vous incluez dans cette macro comment changer les valeur de la cellule A1 vous me ferez un grand plaisir
    0
  9. noe2008 Messages postés 191 Statut Membre 4
     
    merci les amis ça marche bien
    0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses