Incrémenter une cellule Le 13/11/2019 à 11:54gabinosMembre dévouéMessages529ExcelOffice Excel 2003Inscrit15/03/2008 Bonjour à toutes et à tousVoici ma demandeJaimerais par 2 touches bouton "ClicPlus et ClicMoins" incrémenter une cellule plus ou moins 1je vous mais un exemple plus parlantMerci de vos réponses 20incrementerc4.zip (4.08 Ko) Le 13/11/2019 à 12:22Jean-EricFanatique d'ExcelMessages21'255Excel365 EN-FR (PC)Inscrit27/08/2012Bonjour,Un exemple dans le fichier joint.Cdlt. 9incrementerc4.zip (13.04 Ko) Public Sub Add_1() With ActiveSheet .Cells(4, 3).Value = .Cells(4, 3).Value + 1 End With End Sub Public Sub Substract_1() With ActiveSheet .Cells(4, 3).Value = .Cells(4, 3).Value - 1 End With End SubLe 13/11/2019 à 12:37gabinosMembre dévouéMessages529ExcelOffice Excel 2003Inscrit15/03/2008Merci Eric de ta réponse spidJe mais ça en place dans mon programme et je te tiens au courantLe 14/11/2019 à 13:26gabinosMembre dévouéMessages529ExcelOffice Excel 2003Inscrit15/03/2008 Bonjour a tousParfait ERIC c'est top : Rechercher des sujets similaires à "incrementer"ForumsExcel - VBAIncrémenter une cellule