Incrementer la ligne nouvellement inseree

Résolu/Fermé
patrick141078 Messages postés 11 Date d'inscription mardi 22 novembre 2011 Statut Membre Dernière intervention 11 décembre 2011 - 1 déc. 2011 à 21:25
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 2 déc. 2011 à 08:53
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

A voir également:

3 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
Modifié par gbinforme le 1/12/2011 à 22:52
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
0
patrick141078 Messages postés 11 Date d'inscription mardi 22 novembre 2011 Statut Membre Dernière intervention 11 décembre 2011
2 déc. 2011 à 06:39
Bonjojour
mais je ne comprends pas ou mettre le code, puis je te joindre le doc d'essai que j'ai réalisé?

si oui m'indiquer commen faire pour joindre le doc
merci
0
patrick141078 Messages postés 11 Date d'inscription mardi 22 novembre 2011 Statut Membre Dernière intervention 11 décembre 2011
2 déc. 2011 à 07:05
pCi joint le le fichier peut etre que cela sera de nature a m'aider pour comprendre

https://www.cjoint.com/?ALchazbmVZ4
0
patrick141078 Messages postés 11 Date d'inscription mardi 22 novembre 2011 Statut Membre Dernière intervention 11 décembre 2011
2 déc. 2011 à 07:04
Ci joint le lien sur mon fichier si cela peut mais sur m'aider

merci

https://www.cjoint.com/?ALchazbmVZ4
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
2 déc. 2011 à 08:53
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
0