Incrementer cellule

Fermé
Signaler
Messages postés
2
Date d'inscription
samedi 19 septembre 2015
Statut
Membre
Dernière intervention
19 septembre 2015
-
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
6 décembre 2021
-
Bonjour

J'utilise la macro suivante pour incrémenter une cellule automatiquement après chaque impression.
Est il possible d'enregistrer automatiquement le document dans un dossier choisi?
Est il possible d'incrémenter simultanément toutes les mêmes cellules (ici I13) de toutes les feuilles du dossier.

Sub IMPRIMER()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dim num As Integer
Range("I13").Select
num = Range("I13").Value
num = num + 1
Range("I13").Value = num
End Sub

Merci d'avance pour vos aides

2 réponses

Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
6 décembre 2021
3 252
bonjour
+ court:

Range("I13")=Range("I13")+1

pour le reste, utilise l'enregistreur de macro
Messages postés
2
Date d'inscription
samedi 19 septembre 2015
Statut
Membre
Dernière intervention
19 septembre 2015

Merci Michel pour ta réponse rapide mais cela n'incrémente pas toutes les feuilles de mon classeur.
Pour la 2ème questions; il s'agit d'enregistrer la feuille sélectionné pour l'impression dans un dossier.
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
6 décembre 2021
3 252
Pour écrire à la fois dans toutes les feuilles:

sélectiionner la feuil2 clic sue l'onglet
appui maintenu sur "maj"
clic sur le dernier onglet
écrire la formule
=feuil1!I13
disocier les feuille (clic droit-dissocier

donc pas besoin de macro ou UTILISER L'ENREGISTREUR

pour enregitreur
ACTIVE L'ENREGISTREUR DE MACRO ET FAIS LES MANIPULATIONS COMME SI TU LE FAISAIS MANUELLEMENT
Enregistrer sous / classeur prenant en charge les macros
choisir le dossier et
"enregister"

ta macro est faite en combinant les 2