Incrementer cellule
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
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
-
Contributeurbonjour
+ court:
Range("I13")=Range("I13")+1
pour le reste, utilise l'enregistreur de macro
-
ContributeurPour é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
