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
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
A voir également:
- Incrementer la ligne nouvellement inseree
- Aller à la ligne excel - Guide
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- En ligne sur messenger alors que non ✓ - Forum Facebook
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
Modifié par gbinforme le 1/12/2011 à 22:52
bonjour
Pour obtenir le nouveau numéro sur la colonne A tu peux utiliser :
Cela te donne la nouvelle valeur à mettre en colonne A.
Toujours zen
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
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
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
merci
https://www.cjoint.com/?ALchazbmVZ4
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
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() :
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
2 déc. 2011 à 06:39
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
2 déc. 2011 à 07:05
https://www.cjoint.com/?ALchazbmVZ4