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

[titoupoulpe]

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.

 

[Patrice33740]

Re : incrementer une cellule a chaque appuie sur un bouton

Bonjour,

Range("A" & L).Value = Range("A" & L - 1).Value + 1

 

[titoupoulpe]

Re : incrementer une cellule a chaque appuie sur un bouton

bonjour
merci pour ton aide mais j'ai essayé mais ca ne marche pas il me marque incompatibilité de type 13

cordialement

 

[patoq]

Re : incrementer une cellule a chaque appuie sur un bouton

Bonsoir titoupoulpe, bonsoir Patrice

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

 

[titoupoulpe]

Re : incrementer une cellule a chaque appuie sur un bouton

bonsoir pat
j'ai tjs la meme erreur incompatibilité de type 13

 

[patoq]

Re : incrementer une cellule a chaque appuie sur un bouton

Re,

Bizarre sur un fichier vierge chez moi, cela fonctionne.
Quelle ligne est surlignée avec l'erreur ?

Cdt
Pat

 

[titoupoulpe]

Re : incrementer une cellule a chaque appuie sur un bouton

Range("A" & L).Value = Range("A" & L).Offset(-1, 0).Value + 1

 

[patoq]

Re : incrementer une cellule a chaque appuie sur un bouton

Si tu pouvais poster un fichier anonyme, ce serait sympa je pourrais regarder plus précisement.


Cdt
Pat

 

[titoupoulpe]

Re : incrementer une cellule a chaque appuie sur un bouton

Ce lien n'existe plusvoici mon fichier

 

[patoq]

Re : incrementer une cellule a chaque appuie sur un bouton

Essaye ceci :

Range("A" & L).Value = Application.WorksheetFunction.Max(Range("A1:A65536")) + 1

Sur ton fichier ça marche

Cdt
Pat

 

[titoupoulpe]

Re : incrementer une cellule a chaque appuie sur un bouton

merci beaucoup ça fonctionne niquel