Incrementer de 1

[Hamb]

Bonjour le Forum,

Je voudrais a partir de ce petit bout de code qu’a la cellule « A2 », il incrémente de 1 chaque nom et prénom que je vais entrer, je ne sais pas faire ça !
« A2 » = 001 ; « A3 » = 002 etc. …
Si vous pouviez me dépanner je suis preneur.
Cordialement


Dim ligne As Integer
Sheets("donnees").Select
ligne = Range("B65536").End(xlUp).Row + 1
Range("B" & ligne).Value = newsalartxt1.Value
Range("C" & ligne).Value = newsalartxt2.Value
Range("D" & ligne).Value = "reception"

 

[bqtr]

Re : Incrementer de 1

Bonjour Hamb

Peut-être comme ça :

'.../...
Range("A" & ligne).Value = Range("A" & ligne - 1) + 1
'.../...

Ou alors si c'est la première saisie :

'.../...
If ligne = 2 Then
  Range("A" & ligne).Value = 1
Else
  Range("A" & ligne).Value = Range("A" & ligne - 1) + 1
End If
'.../...

A+

 

[Hamb]

Re : Incrementer de 1

Merci beaucoup ca fonctionne super bien !!