Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

incrémentation comteur [vba]

quikers

XLDnaute Nouveau
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
 

Pièces jointes

  • gestion client debut (diffusion internet).xlsm
    36.2 KB · Affichages: 47

Robert

XLDnaute Barbatruc
Repose en paix
Re : incrémentation comteur [vba]

Bonjour Quikers, bonjour le forum,

Essaie comme ça :
Code:
Range("A65536").End(xlUp).Offset(1, 0).Value = Range("A65536").End(xlUp).Value + 1
 

kjin

XLDnaute Barbatruc
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
Code:
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

XLDnaute Nouveau
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


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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Quickers.zip
    14.8 KB · Affichages: 56

Discussions similaires

Réponses
22
Affichages
943
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…