incrémentation comteur [vba]

[quikers]

Bonjour,

je souhaite créer un compteur qui s'incrémente de +1

en application

j'ai une base de donnée clients (contenant les informations personnelles des clients)

Les informations sont saisies par l'intermédiaire d'un userform et s'inscrivent dans un tableau les les une à la suite des autres

J'ai donc opté à créer un ID (n° client) afin de repérer les clients

et j'aimerais donc faire ceci

en A1 l'id inscrit est 1

je souhaite alors faire un recherche vertical en partant du bas du classeur, puis sélectionner la dernière ligne remplie

comme ceci j'arrive uniquement à inscrire la valeur de l'id dans la dernière ligne de la colonne A mais j'arrive pas à sélectionner la ligne juste avant et d'en extraire la donnée de la cellule

Range("A65536").End(xlUp).Offset(1, 0).Value = id 'insertion de l'id

je récapitule

je souhaite donc lire la valeur de la dernière ligne ID remplie, lui ajouter +1 et rentrer la valeur dans la ligne qui suit

je vous joint le classeur afin de mieux cerner ma demande

merci d'avance

 

[Robert]

Re : incrémentation comteur [vba]

Bonjour Quikers, bonjour le forum,

Essaie comme ça :

Range("A65536").End(xlUp).Offset(1, 0).Value = Range("A65536").End(xlUp).Value + 1

 

[kjin]

Re : incrémentation comteur [vba]

Bonsoir,
Je ne saurais trop te conseiller d'utiliser la fonction Nb de valeurs (CountA) qui a l'avantage de ne pas fausser les numéros si par la suite tu souhaites faire un tri de ta base
Ici puisque tu as une étiquette de colonne, le prochain numéro serait

Sub xxx()
With Sheets("clients")
x = Application.CountA(.Range("A1:A" & .Range("A65000").End(xlUp).Row))
End With
End Sub

Edit : A la bourre, salut Robert
A+
kjin

 

[quikers]

Re : incrémentation comteur [vba]

Merci pour vos réponse

kjin: j'ai opté pour ta solution étant donné que j'ai réussi à la mettre en place

cela fonctionne très bien mais pourrais tu m'éclairer

j'ai integré le code comme tel

'mise en place des données clients

'Création de l'id
Dim id 'déclare la variable "id"
With Sheets("clients")
id = Application.CountA(.Range("A1:A" & .Range("A65000").End(xlUp).Row))
End With

'manipulation de données
Range("A65536").End(xlUp).Offset(1, 0).Value = id 'insertion de l'id

...

'affichier le n° client

Dim message
message = id
MsgBox message

l'id s'incrémente bien mais je ne vois pas comment vba fait le calcul

et pourrais tu m'expliquer le fonctionnement en fait du code saisie

merci

 

[kjin]

Re : incrémentation comteur [vba]

re,
Vois le fichier joint
Note qu'il n'est pas utile de masquer/afficher ni de sélectionner la feuille clients
A+
kjin

 

[quikers]

Re : incrémentation comteur [vba]

merci beaucoup je vais continuer la dessus je te tiens au courant pour d'éventuelle informations