Numérotation automatique

Bonjour,
La case NumAction fait référence à la cellule [!$XFD$1] et elle contient le dernier numéro générer, au départ c'est '0'.
Au passage, votre classeur est bien une extension xlsm

AH mais si je viens de faire entrer sur la cellule num auto et ca marche.... MILLLE MERCIS
y-a-t'il une astuce pour un affichage encore plus rapide qu'en appuyant sur entrée de chaque cellule ?
Merci beaucoup, est-ce que je peux encore abuser pour les sorties, il faut que je reporte les numéros des actions entrantes correspondantes. Est-ce qu'il y a une astuce rapide. Dans la négative je le ferai manuellement, il ne doit y avoir 50 mouvements par an.
Encore MErci c'est vraiment génial

Alors en effet, je n'avais pas changé toutes les informations, maintenant c'est fait mais cela ne marche toujours pas. Je ne comprends pas comment fonctionne la case NumAction car la mienne est toujours vide (je n'ai fait que définir un nom à la cellule choisie).
Merci beaucoup pour votre aide

Bonjour,
Vous avez bien ceci:

ET cela


Avec en Bleu le nom colonne Nombre d'action et en Noir colonne des numéro auto !

Bonjour,
Je l'avais bien fait mais cela ne marche pas quand même. A part ces étapes, je n'ai créé aucune macro est ce que le problème viendrait de là ?

Bonjour,
Avez-vous bien mis le code dans le module de feuille [Feuil2]


Désolé, vous devez aussi avoir la macro qui génère les numéros que vous placer dans un module (dans VBA clic Insertion puis sur Module)
La macro :

Sub NumAuto(li)
Dim NuAc As Long, nua As Variant, x As Integer
NuAc = Range("NumAction")
If Range("R" & li) = "Ok" Then
    For x = 1 To Range("F" & li)
        nua = nua + CStr(NuAc + x) & ","
    Next x
    Range("G" & li) = nua: Range("NumAction") = NuAc + x - 1
Else
    MsgBox "Pas de numérotation automatique pour un SORTIE ou Numéro d'action déjà existants"""
End If
End Sub
 

Bonsoir,
C'est très simple à placer sur votre dossier de travail, vous suivez les explications pour la colonne supplémentaire [R:R] et la variable compteur dans la cellule [!$XFD$1]
Et si vous ne l'avez pas remarqué il faut encore mettre le code qui se trouve sur le module de la feuille [Feuil2]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
    NumAuto (Target.Row)
End If
    'MsgBox "sélection change"
End Sub

Si problème vous me faite signe.

Je ne vous ai envoyé qu'un exemple, il va falloir que je fasse la même choses pour la totalité des souscriptions soit près de 10000 ligne comme je vous disais au départ. Mais c'est tout à fait ce que je voulais faire.

Bonjour,
La numérotation et comme vous le voulez ...!
pour ceci: Mais c'est parfait comment puis je faire maintenant
Je ne comprend ce à quoi vous faite référence.

Bonjour,
Ah ben oui, c'est mieux. Mais c'est parfait comment puis je faire maintenant ?
Je vous remercie

Bonjour,
Eh bien il n'est pas vide voir sur la feuille 2 (ou vous avez mis l'exemple) peut-être affichage déplacer, revenez à la cellule A1...

Bonjour,
Le fichier est vide quand je l'ouvre. Est-ce que je dois faire quelque chose en particulier ?
Bonne journée
Fabienne

Bonjour,
A vous de voir si cela convient pour la numérotation automatique.
Le fichier : https://www.cjoint.com/c/JFipUYcUcO0

oui

Bonjour,
Donc les 100 numéros séparés par une virgule dans la cellule 'G...' correspondante au souscripteur...! Oui Non

Bonjour,
C'est tout à fait cela une numérotation automatique à partir de 1 qui serait de cette forme pour 100 actions: 1,2,3,....,100 (sans espace entre chaque numéro). Un numéro d'action ne doit être utilisé qu'une seule fois bien sur et lors de sorties partielles ou totales, nous devrions reprendre chaque numéro donné automatiquement.
N'hésitez pas à me dire s'il vous manque des informations. Et merci pour votre aide
Bien à vous
Fabienne

Bonjour,
Merci pour le fichier.
Sans autre précision je suppose que vous voulez avoir, par exemple client 1, dans la cellule numérotation auto actions les 100 numéros ...! Et qu'elle structure de numéro...!

Bonjour,
voici le lien du fichier: https://www.cjoint.com/c/JFihj1EYhok
J'ai mis quelques lignes afin de bien comprendre la construction de notre fichier. Nous avons besoin de cette numérotation automatique de chaque action afin de mieux suivre les mouvements entrée sortie.
D'avance merci pour votre aide.

Bonjour,
Sur quoi se basé pour créer les numéros et de quoi sont-ils constitué ...et ou enregistrer la série des numéros !
Faites donc un petit exemple sur Excel et vous pouvez mettre le fichier à disposition sur https://www.cjoint.com/ ou alors insérer une image de la feuille sur le poste.

Bonjour,
Je vous remercie pour votre aide. Afin de comprendre, je vous envois un exemple de notre registre (il est impossible d'envoyer un exemple excel alors je tente un rapide visuel dans ce message).
21/06/2016 Sortie agree -200,00
17/12/2008 entrée agree 100,00
21/12/2009 entrée agree 100,00
Un actionnaire a pris 2 fois 100 actions qui ensuite ont été retirées en totalité. Mon besoin est d’appliquer une macro numérotant les 200 actions mais je ne sais pas du tout comment faire. Mes notions en macro sont proches de 0.

Encore merci pour votre aide.
Très bonne journée
Fabienne