Incrementer la ligne nouvellement inseree
Résolu
patrick141078
Messages postés
12
Statut
Membre
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Toujours aussi débutant, malgré la richesse du forum
J'ai crée un userfom dans lequel je souhaite que chaque fois que je veux créer une nouvelle entrée (ligne A2) la celllule A2 apparaisse un n° d'ordre (le dernier rentré +1) et que cette ligne se classe par ordre croissant (cela jy suis arrivé)
Mais je n'arrive pas incrémenter soit je n'ai pas le bon code soit je ne le place pas au bon endroit soit les deux...
Je serai ravi d'avoir une solution et pour mieux faire comprendre mon pb je peux mettre un fichier en ligne
merci de votre aide
Toujours aussi débutant, malgré la richesse du forum
J'ai crée un userfom dans lequel je souhaite que chaque fois que je veux créer une nouvelle entrée (ligne A2) la celllule A2 apparaisse un n° d'ordre (le dernier rentré +1) et que cette ligne se classe par ordre croissant (cela jy suis arrivé)
Mais je n'arrive pas incrémenter soit je n'ai pas le bon code soit je ne le place pas au bon endroit soit les deux...
Je serai ravi d'avoir une solution et pour mieux faire comprendre mon pb je peux mettre un fichier en ligne
merci de votre aide
3 réponses
-
bonjour
Pour obtenir le nouveau numéro sur la colonne A tu peux utiliser :
Application.WorksheetFunction.Max(sheets("mafeuille").Columns("A")) + 1
Cela te donne la nouvelle valeur à mettre en colonne A.
Toujours zen-
-
pCi joint le le fichier peut etre que cela sera de nature a m'aider pour comprendre
https://www.cjoint.com/?ALchazbmVZ4
-
-
Ci joint le lien sur mon fichier si cela peut mais sur m'aider
merci
https://www.cjoint.com/?ALchazbmVZ4 -
bonjour
En fonction du code que tu as écrit, il te suffit de rajouter cette ligne en gras dans
Private Sub userform_Initialize() :
'Ajouter une ligne Worksheets("base").Rows(2).Insert Me.numordre.Value = Application.WorksheetFunction.Max(Sheets("base").Columns("A")) + 1
