Besoin d'une macro excel 2007

Résolu
noe2008 -  
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 Contributeur
    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
    1. Le Pingou
      Merci eriiic, à une prochaine.
      Amicales salutations.
  4. Le Pingou
    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...

    2. noe2008 Auteur
      ta reponse Le Pingou ne merite aucun commentaire
      2. noe2008 Auteur
        @Le Pingousalut

        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
    3. Le Pingou
      Bonjour,
      Cette procédure imprime la feuille active : 
      Sub ImprimeFeuilleActive()
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
      End Sub

      1. noe2008 Auteur
        merci infiniment
        si vous incluez dans cette macro comment changer les valeur de la cellule A1 vous me ferez un grand plaisir