Besoin d'une macro excel 2007 [Résolu/Fermé]

Signaler
Messages postés
159
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 novembre 2020
-
Messages postés
159
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 novembre 2020
-
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

Messages postés
23993
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 avril 2021
6 719
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
9935
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2021
1 132
Merci eriiic, à une prochaine.
Amicales salutations.
Messages postés
159
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 novembre 2020
4
SALUT LES AMIS ENCORE PAS DE RAPONSE
Messages postés
159
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 novembre 2020
4
elle difficile cette macro?
Messages postés
9935
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2021
1 132
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...

Messages postés
159
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 novembre 2020
4
ta reponse Le Pingou ne merite aucun commentaire
Messages postés
9935
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2021
1 132
Messages postés
159
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 novembre 2020
4 >
Messages postés
9935
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2021

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
Messages postés
9935
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2021
1 132
Bonjour,
Cette procédure imprime la feuille active :
Sub ImprimeFeuilleActive()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Messages postés
159
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 novembre 2020
4
merci infiniment
si vous incluez dans cette macro comment changer les valeur de la cellule A1 vous me ferez un grand plaisir
Messages postés
159
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 novembre 2020
4
merci les amis ça marche bien