Utilisation de VBA sous Excel

Bonjour à toutes et à tous,

Je vous expose mon problème: je souhaite créer une macro qui, lorsque j'appui dessus me renvoi à la ligne en-dessous avec la nouvelle valeur.

par exemple:

A1=00000

à l'aide de la macro lorsque j'appui dessus elle me renvoi en A2 avec la valeur

A2=00001

Après de nombreuses tentatives, je crains que je ne dois passer par VBA et je ne maitrise pas ce "langage de programmation"

Je vous remercie pour votre compréhension et j'espère avoir été suffisamment clair dans ma démarche...

Bonjour Sid

Sub Macro1()
numligne = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & numligne).Value = Range("A" & numligne - 1).Value + 1
Range("A" & numligne).Activate
End Sub

Je vous remercie infiniment pour votre réactivité, ça marche!

Encore merci!!

Excusez mon niveau très très bas, je débute sur VBA... mais je n'arrive pas à poursuivre la suite de mon programme,

Je m'explique, je souhaite ajouter à la suite de mon "00001" un underscore dans l'optique d'avoir "00001_00" et j'ai mis ce code en place :

.Range("E").Value = Replace(.Range("E"), " ", "_")

Mais je pense être à coté de la plaque

Je vous remercie de votre patience.

Si vous changer le contenu des cellules ( format nombre ) avec du texte 00001_00 excel ne peut plus ajouter +1 à la cellule suivante.

Il faudra alors reprendre les 5 premiers caractères ajouter +1 et ajouter votre format personnel _00

Sub Macro1()
numligne = Cells(Rows.Count, 1).End(xlUp).Row
numéro = Left(Range("A" & numligne), 5) + 1
Range("A" & numligne + 1).Value = Format(numéro, "00000") & "_" & "00"
Range("A" & numligne + 1).Activate
End Sub

Ps évitez les Range("E") car il n'y a pas l'information du numéro de ligne.

Soit Range("E5") par exemple ; ou Range("E" & variable de numéro de ligne)