Incrementer cellule

Fermé

CHIKUNGOUGNA Messages postés 2 Date d'inscription samedi 19 septembre 2015 Statut Membre Dernière intervention 19 septembre 2015 - Modifié par CHIKUNGOUGNA le 19/09/2015 à 08:43
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 19 sept. 2015 à 10:33

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

A voir également:

Incrementer cellule
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Figer cellule excel - Guide
Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? - Forum Excel

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
19 sept. 2015 à 08:54

bonjour
+ court:

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

pour le reste, utilise l'enregistreur de macro

CHIKUNGOUGNA Messages postés 2 Date d'inscription samedi 19 septembre 2015 Statut Membre Dernière intervention 19 septembre 2015
19 sept. 2015 à 08:59

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.

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
19 sept. 2015 à 10:33

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

Discussions similaires

Excel si cellule contient texte alors...

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel : colorer une cellule sous condition d'une autre ?

Excel formule : savoir si une cellule contient partie texte

Si couleur, alors...

Discussions similaires

Newsletters