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

Patrice33740

XLDnaute Impliqué

• 28 Juillet 2014

• #2

Re : incrementer une cellule a chaque appuie sur un bouton

Bonjour,

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

 

Vote positif 0 Vote négatif

T

titoupoulpe

XLDnaute Nouveau

• 28 Juillet 2014

• #3

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

 

Dernière édition: 28 Juillet 2014

Vote positif 0 Vote négatif

P

patoq

XLDnaute Occasionnel

• 28 Juillet 2014

• #4

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

 

Vote positif 0 Vote négatif

T

titoupoulpe

XLDnaute Nouveau

• 28 Juillet 2014

• #5

Re : incrementer une cellule a chaque appuie sur un bouton

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

 

Vote positif 0 Vote négatif

P

patoq

XLDnaute Occasionnel

• 28 Juillet 2014

• #6

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

 

Vote positif 0 Vote négatif

T

titoupoulpe

XLDnaute Nouveau

• 28 Juillet 2014

• #7

Re : incrementer une cellule a chaque appuie sur un bouton

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

 

Vote positif 0 Vote négatif

P

patoq

XLDnaute Occasionnel

• 28 Juillet 2014

• #8

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

 

Vote positif 0 Vote négatif

T

titoupoulpe

XLDnaute Nouveau

• 28 Juillet 2014

• #9

Re : incrementer une cellule a chaque appuie sur un bouton

Ce lien n'existe plusvoici mon fichier

 

Dernière édition: 29 Juillet 2014

Vote positif 0 Vote négatif

P

patoq

XLDnaute Occasionnel

• 28 Juillet 2014

• #10

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

 

Vote positif 0 Vote négatif

T

titoupoulpe

XLDnaute Nouveau

• 29 Juillet 2014

• #11

Re : incrementer une cellule a chaque appuie sur un bouton

merci beaucoup ça fonctionne niquel

 

Vote positif 0 Vote négatif