Soustraction de chiffre à chaque impression

Question

Je reviens vers vous à nouveau afin de savoir si ce que je veux réaliser est possible. Voici en quoi sa consiste: En cellule A1je voudrais que si je tape 1 chiffre (exemple le chiffre 10) est-il possible qu'à chaque fois que j'imprime ma feuille la valeur de A1 diminue de 1 c'est à dire. Je tape le chiffre 10 dans ma cellule A1 J'imprime ma feuille La cellule A1 affiche 9 Ainsi jusqu'a 0 Si la cellule A1 est à 0 alors il ne se passe rien et reste à 0 Voila un joli casse-tête, je remercie d'ores et déja tous ceux qui pourront m'aider ou me mettre sur la voie...

Parrish · Accepted Answer

Bonjour,

Une approche à l'aide d'une macro :

Sub DiminuerValeur()
' Auteur : https://www.linkedin.com/in/spilerstheo/
Dim valeur As Integer
valeur = Range("A1").Value
If valeur > 0 Then
valeur = valeur - 1
Range("A1").Value = valeur
ActiveSheet.PrintOut
ElseIf valeur = 0 Then
ActiveSheet.PrintOut
End If
End Sub

Coridalement,
Parrish

Xmenpl · Accepted Answer

La macro de Parrish pourrait se trouver sur un bouton nommé imprimer ; il ne faudra alors plus utiliser l'option d'impression du menu excel pour que le décompte soit réalisé. Par ailleurs pour la fin de Macro ; si rien ne doit se déclencher quand on arrive à zéro ( l'impression non plus ? ) il faudrait remplacer : ElseIf valeur = 0 Then ActiveSheet.PrintOut par ElseIf valeur = 0 Then Msgbox "Compteur à Zéro" Exit sub...