Sujet Précédent Sujet Suivant

Excel : Calcul auto d'un n° séquentiel

Résolu/Fermé
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 - 4 oct. 2011 à 18:42
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 - 7 oct. 2011 à 14:22
Bonjour,

Je cherche à générer automatiquement un n° séquentiel qui s'incrémente de 1 à chaque fois. Cette incrémentation pouvant se faire sur le clic d'un bouton "Calcul n°" qui irait chercher le dernier n° attribué et l'incrémenter de 1. Qu'y-a-t-il comme solution dans Excel pour faire ça ?
Merci aux experts (clin d'oeil à michel s'il passe dans le coin)
Alain

A voir également:

7 réponses

Réponse 1 / 7
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
4 oct. 2011 à 21:37
bonsoir

plusieurs solutions

https://www.cjoint.com/?0JevA4W6jdH

bonne suite
0
Réponse 2 / 7
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
4 oct. 2011 à 22:17
Bonsoir CCM81,
la double flèche permettant d'incrémenter et décrémenter le compteur me parait pas mal mais je n'ai pas trouvé le code. Ou est-il donc ?
Merci
Alain
0
Réponse 3 / 7
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
4 oct. 2011 à 22:41
bonjour alainjjb, ccm81,

Tu peux aussi utiliser un événement : 

Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Column = 2 And Cells(sel.Row, 1) = "" Then
    Cells(sel.Row, 1) = Application.WorksheetFunction.Max(Columns(1)) + 1
End If
End Sub

Si tu saisis une nouvelle ligne en colonne B, la colonne A prend la valeur
qui irait chercher le dernier n° attribué et l'incrémenter de 1
0
Réponse 4 / 7
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié par ccm81 le 5/10/2011 à 09:54
bonjour à tous

il n'y a pas de code, c'est la propriété LinkedCell qui est mise à A1 et qui comme son nom l'indique lie la cellule A1 au SpinButton (boite a outils controles/en mode creation/clic-droit/propriétés)

bonne suite
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
6 oct. 2011 à 20:13
Bonsoir,
CCM81, merci. J'ai compris le fonctionnement du "ctrle formulaire" (1ère utilisation).
Gbinforme, en fait le n° séquentiel est lié au fichier (par exemple un n° de devis). Quel pourrait être dans ce cas l'événement déclencheur ?
Merci
Alain
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
6 oct. 2011 à 21:14
Bonsoir alainjjb,

Je suis parti de ta question qui disait : qui irait chercher le dernier n° attribué et l'incrémenter de 1

Si ton n° est propre à chaque classeur en étant incrémenté, il faudrait le mettre dans un classeur particulier auquel se référeraient les classeurs concernés ?
0
Réponse 6 / 7
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
Modifié par alainjjb le 6/10/2011 à 23:08
Re-bonsoir Gbinforme,
pour faire ce que tu proposes je dois créer une macro qui ouvre le classeur "num_Devis_Réf" contenant le n° de devis, activer la feuille "Num_Devis", récupérer ce dernier n° de devis attribué, l'incrémenter de 1, retourner dans le classeur "Devis" et y mettre ce n° calculé ... sans oublier de remettre à jour le classeur "Num_Devis_Réf".
Me vois-tu faire tout ça ??? Si oui merci pour cette confiance aveugle mais hélas désolé de te décevoir car j'en suis bien loin.
Merci de bien vouloir me donner un "énorme" coup de pouce.
Alain
0
Réponse 7 / 7
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
7 oct. 2011 à 14:22
Bonjour à tous,
vous n'allez pas me croire. J'y suis arrivé et encore plus fort ÇA MARCHE.
Comme quoi la devise : La ou il y a une volonté il y a un chemin" se vérifie une fois de plus.
Merci à tous
Alain
0