Excel VBA
Résolu
petit240
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
petit240 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
petit240 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je vous écris car je ne suis pas très fort en VBA.
Voilà ma situation:
Dans une cellule il y' a un nombre (le numéro du ticket).
Et je veux qu'à chaque impression le nombre augmente de un en un.
Dans la mise en page:
"TICKET N°-" "1" puis en suite "TICKET N°-" "2"
sachant que "TICKET N°-" est dans la cellule adjacente.
Y a-t-il une solution?
Merci d'avance.
Je vous écris car je ne suis pas très fort en VBA.
Voilà ma situation:
Dans une cellule il y' a un nombre (le numéro du ticket).
Et je veux qu'à chaque impression le nombre augmente de un en un.
Dans la mise en page:
"TICKET N°-" "1" puis en suite "TICKET N°-" "2"
sachant que "TICKET N°-" est dans la cellule adjacente.
Y a-t-il une solution?
Merci d'avance.
A voir également:
- Excel VBA
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Salut,
Avec le peu d'information il est difficile d'écrire un code.
En supposant que Ticket n° : est en A1 et en B1 le numéro
crée un bouton activeX et colle ce code qui déclanchera l'impression en ajoutera 1 en B1
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
[B1] = [B1] + 1
End Sub
Avec le peu d'information il est difficile d'écrire un code.
En supposant que Ticket n° : est en A1 et en B1 le numéro
crée un bouton activeX et colle ce code qui déclanchera l'impression en ajoutera 1 en B1
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
[B1] = [B1] + 1
End Sub