(RESOLU)incrementer une cellule a chaque appuie sur un bouton

titoupoulpe

XLDnaute Nouveau
bonjour a tous
étant débutant avec le VBA je cherche un code pour incrémenter un cellule a chaque fois que j'appuie sur un bouton
voici le code que j'ai tapé :


Sub copierplage()
Dim L As Integer
L = Sheets("F1").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Sheets("F1").Activate
Range("A" & L).Value =
Range("B" & L).Value = Sheets("CAISSE").Range("D5")
Range("C" & L).Value = Sheets("CAISSE").Range("D8")
Range("E" & L).Value = Sheets("CAISSE").Range("D10")
Range("G" & L).Value = Sheets("CAISSE").Range("D12")
Range("I" & L).Value = Sheets("CAISSE").Range("D14")
Range("K" & L).Value = Sheets("CAISSE").Range("D16")

End Sub

je voudrais que la case A soit incrémente en commençant par 1 a chaque fois que j'appuie sur le bouton

merci d'avance.
 
Dernière édition:

patoq

XLDnaute Occasionnel
Re : incrementer une cellule a chaque appuie sur un bouton

Bonsoir titoupoulpe, bonsoir Patrice

Code:
Sub copierplage()
Dim L As Integer
L = Sheets("F1").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Sheets("F1").Activate
Range("A" & L).Value = Range("A" & L).Offset(-1, 0).Value + 1
Range("B" & L).Value = Sheets("CAISSE").Range("D5")
Range("C" & L).Value = Sheets("CAISSE").Range("D8")
Range("E" & L).Value = Sheets("CAISSE").Range("D10")
Range("G" & L).Value = Sheets("CAISSE").Range("D12")
Range("I" & L).Value = Sheets("CAISSE").Range("D14")
Range("K" & L).Value = Sheets("CAISSE").Range("D16")

End Sub

Cdt
Pat
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 868
dernier inscrit
pierreselo33