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.
é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: