Besoin d'une macro excel 2007

Résolu
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -  
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

8 réponses

Réponse 1 / 8
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Merci eriiic, à une prochaine.
Amicales salutations.
0
Réponse 2 / 8
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   4
 
SALUT LES AMIS ENCORE PAS DE RAPONSE
0
Réponse 3 / 8
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   4
 
elle difficile cette macro?
0
Réponse 4 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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
Réponse 5 / 8
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   4
 
ta reponse Le Pingou ne merite aucun commentaire
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   4 > Le Pingou Messages postés 12249 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
Réponse 6 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Cette procédure imprime la feuille active : 
Sub ImprimeFeuilleActive()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
0
Réponse 7 / 8
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   4
 
merci infiniment
si vous incluez dans cette macro comment changer les valeur de la cellule A1 vous me ferez un grand plaisir
0
Réponse 8 / 8
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   4
 
merci les amis ça marche bien
0

Discussions similaires

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

6 réponses