Numéro automatique ne commence pas à 1 dans un userform

Bonjour à tous,

Je débute en VBA (enfin j'ai eu une formation mais bien loin maintenant). J'ai crée un fichier "registre du personnel" qui est un tableau contenant certaines données des salariés . Une fois avoir terminé mon formulaire, j'ai ajouté des lignes au dessus de mon tableau.
Lorsque je mouline ma macro, Excel, au lieu de me mettre un "1" (car c'est le 1er salarié saisi) m'affecte un autre chiffre "5".

Je pense que mon erreur est toute bête mais impossible de retrouver d'où elle vient enfin si je pense que mon erreur vient cette partie là :

Code:

---

1 2 3 4 5

'Pour incrémenter le numéro de salarié automatiquement Dim NoSalarie As Integer   NoSalarie = Range("Montreuil!A20000").End(xlUp).Row TextBox1.Value = Format(NoSalarie, "00000")

---

Ou alors il me manque un bout de code ?

J'ai cherché une piste de solution sur le web mais les exemples que je trouve sont complexes pour une débutante ou alors ne correspondent pas forcément à mon besoin.

Un impr écran de mon tableau avec le userform1

Merci d'avance pour votre aide,
Bonne soirée,

Aussi je suis débutant mais je crois qu'il suffit d'ajouter (-4) à la fin car tu commence par A6
essayer ça :

Code:

---

1 2 3

Dim NoSalarie As Integer NoSalarie = Sheets("Montreuil").Range("A65536").End(xlUp).Row - 4 TextBox1.Value = Format(NoSalarie, "00000")

---

n'oubliez pas de nettoyer ta feuille base des données

Bonjour

Code:

---

NoSalarie = Range("Montreuil!A20000").End(xlUp).Row

---

retourne le n° de la dernière ligne non vide de la colonne A.
Et tu affectes ce N° à ta variable Nosalarié ! Rien d'étonnant, donc !

Bonjour,

Merci pour vos réponses!
Je vais regarder, j'avais modifié avant vos réponses mais je suis encore loin apparemment!
Ma dernière modif mais je n'ai que des zéros au lieu de chiffres 1,2,3 etc. Donc je vais revoir.

Code:

---

1 2 3 4 5 6

'Pour incrémenter le numéro de salarié automatiquement Dim NoSalarie As Integer Dim I As Integer I = Range("Montreuil!A20000").End(xlUp).Row TextBox1.Value = Format(NoSalarie, "00000")

---

Pièce jointe 222171

Citation:

---

mais je n'ai que des zéros au lieu de chiffres 1,2,3 etc. Donc je vais revoir.

---

C'est une plaisanterie, ou quoi, là ?
Comment pourrais-tu attendre que NoSalarie, que tu déclares dans ta sub, vaille autre chose que 0 ?

Bonjour,

Regarde bien ton code, tu utilises la variable "I" pour récupérer le numéro de ligne et tu utilises la variable "NoSalarie" pour remplir le TextBox. Les variables numériques déclarées dans la procédure sont initialisées à 0 au lancement de cette dernière si tu n'y affecte pas une valeur, elle restera à 0.
Teste ceci :

Code:

---

1 2	TextBox1.Text = Format(Worksheets("Montreuil").Cells(Rows.Count, 1).End(xlUp).Row - 4, "00000")

---

comme ceci cela démarrera a 1 et ainsi de suite même partir de la ligne 5 car le calcul est basé sur le nombre de ligne utilisées et non la ligne dispos

Code:

---

1 2 3

i=sheets("Montreuil Range(cells(5,1),cells(rows.count,1).End(xlUp)).Rows.count if i=0 then i=1 nosalaire=format(i,"00000")

---

pour la retranscription c'est

Code:

---

cells(i+5,1)=nosalaire

---

et on aurait pu se servir aussi l'index de la ligne dispos je dis bien l'index de la ligne dispos et non sa valeur et moins 5 parce que tu commence a partir de la ligne 5

Salut
Pourquoi ne pas utiliser un RUP qui est totalement gratuit et disponible a cette adresse

http://www.captab.fr/rupi-excel-vba.html

ATTENTION il ne fonctionne que sur machine Non x64

je suis en train d'en faire un aussi pour ma gestion de paie compatible x64/x32

Voici déja un apercu , je le mettrais en libre telechargement une fois corrigé et surtout validé

inscription au RUP
Pièce jointe 222741
creation d'un salarié
Pièce jointe 222742
affichage info RUP
Pièce jointe 222743

Cdl Reynald

ps) si ma reponse est contraire au reglement n'hesitez pas a me le dire.