Besoin d'une macro excel 2007

Résolu/Fermé
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
- 26 janv. 2015 à 19:30
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
- 28 janv. 2015 à 15:32
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

eriiic
Messages postés
24391
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2022
7 079
Modifié par eriiic le 28/01/2015 à 11:50
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
Le Pingou
Messages postés
11022
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mai 2022
1 281
28 janv. 2015 à 13:37
Merci eriiic, à une prochaine.
Amicales salutations.
0
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
4
27 janv. 2015 à 10:07
SALUT LES AMIS ENCORE PAS DE RAPONSE
0
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
4
27 janv. 2015 à 15:17
elle difficile cette macro?
0
Le Pingou
Messages postés
11022
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mai 2022
1 281
27 janv. 2015 à 15:28
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

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

Posez votre question
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
4
27 janv. 2015 à 23:46
ta reponse Le Pingou ne merite aucun commentaire
0
Le Pingou
Messages postés
11022
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mai 2022
1 281
Modifié par Le Pingou le 28/01/2015 à 10:25
0
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
4 > Le Pingou
Messages postés
11022
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mai 2022

28 janv. 2015 à 11:11
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
Le Pingou
Messages postés
11022
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mai 2022
1 281
28 janv. 2015 à 11:28
Bonjour,
Cette procédure imprime la feuille active :
Sub ImprimeFeuilleActive()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

0
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
4
28 janv. 2015 à 11:38
merci infiniment
si vous incluez dans cette macro comment changer les valeur de la cellule A1 vous me ferez un grand plaisir
0
noe2008
Messages postés
180
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
3 mai 2022
4
28 janv. 2015 à 15:32
merci les amis ça marche bien
0