plusieurs impressions avec un numéro incrémentale

[pierre123]

Bonjour à tous,

Je dois imprimer une centaine de fois la même feuille, (étiquette de dossards de course) mais avec un numéro incrémental qui change à chaque impression.
Existe t il un programme via macro pour le faire sans changer le nombre et appuyer sur "imprimer" à chque fois.
Merci à tous pour votre aide.

Pierre

 

[nyko283]

Re : plusieurs impressions avec un numéro incrémentale

Bonsoir Pierre , le forum

 Dim x As Integer
If MsgBox("Confirmez-vous l'impression des dossards", vbOKCancel, "Confirmation") = vbCancel Then Exit Sub
    x = 0 ' indique le numéro du premier dossard - 1 ex: commence au dossard 10 alors 9
    With ThisWorkbook.Worksheets("Feuil1") ' indique le nom de ta feuille
        .Range("F2").Value = x ' ici indique la référence à la cellule que tu veut incrémenter
        While .Range("F2").Value < 20 ' modifie le "20" par le numéro du dernier dossard
            x = x + 1
            .Range("F2").Value = x
            .PrintOut Copies:=1, Collate:=True
        Wend
    End With
End If

tu place le code dans une macro que tu appel manuellement ou rattache un bouton a la macro.

 

[Robert]

Re : plusieurs impressions avec un numéro incrémentale

Bonsoir Pierre, Nicolas, bonsoir le fourm,

En pièce jointe un fichier exemple avec une UserForm et un bouton Imprimer. Il te faudra adapter le format de la cellule A1.