Numérotation automatique

Bjr nous avons un fichier excel dans lequel nous souhaitons avoir une numérotation automatique à chaque impression es ce possible et si oui comment ? d'avance merci

Peux-tu préciser ta demande?

Cdlt

Bonjour,

Dans ThisWotbook, insérer ce code

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Sheets("Intervention").Select

With ActiveSheet
.Range("f2") = Range("f2") + 1
End With

End Sub

A chaque impression, le numéro de la fiche va s'incrémenter sur la feuille Intervention

RE,

Bonjour Niko,

Et si je demande 3 impressions par le menu

Que se passe-t-il?

Cdlt

il faudrait sûrement récupérer le nbre de copie demander en impression pour l'incrémenter dans la fiche

ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True

J'essaye!

En insérant dans un bouton macro le code suivant et en ayant préalablement choisi le nbre de copie à faire dans la case g6 par exemple ça donnerait

Private Sub CommandButton1_Click()

Sheets("Intervention").Select

With ActiveSheet
.PrintOut Copies:=Range("g6")
.Range("f6") = Range("f6") + Range("g6")
End With

End Sub

Mais cela reste du "petit" code VBA à ma hauteur!

oups merci pour les réponses mais c'est du charabiat pour moi je suis novice lol je dois insérer cette formule dans quoi ???????

lorsque le classeur est ouvert :

ALT + F11

Insérer le code dans la partie Thisworkbook

Jean Eric a soulevé une question, si vous demandé d'imprimer plusieurs fois la page, mon premier code n'est pas viable puisqu'il incrément de "1" la fiche comme si vous imprimez qu'une fois.

merci bcp j'essaie de suite bonne journée

je viens de faire la procédure mais ca marche pas

c'est à dire

A essayer,

bouton IMPRESSION en haut de la fiche INTERVENTION

super merciiiiiiiiiiiiiiiiiiiiiiii

SUPER merciiiiiiiiiii bcp pour refaire ca sur l'autre feuille je dois juste copier ou faire autre chose ????????

Voilà avec la même chose sur la feuille MAtériel

encore une fois merci tu me sauves la vie lol bonne fin de journée