Discussion :

[kansas77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[kansas77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[unparia]

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 ?

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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