Incrémenter à chaque nouvelle saisie

maninwhite

XLDnaute Occasionnel
Bonjour à toutes et à tous

Je reviens vers vous avec une petite question, qui je l'espère, n'est pas trop compliquée.

J'ai crée un fichier excel avec des userforms qui permet de remplir un formulaire.
A la fin toutes les données sont enregistrées dans un tableau excel.
Et j'ai également un code qui permet de donner un numéro pour chaque nouveau formulaire crée.

Code:
Sheets("report").Activate
        With Sheets("report")

        If Range("A3").Value = "" Then
        Range("A3").Value = 1
        Else: .Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = .Cells(.Cells(Rows.Count, "A").End(xlUp).Row, "A") + 1
        End If
        End With

Le problème est que le numéro est attribué une fois le formulaire crée et non pas à l'ouverture de celui ci.



Ce que j'aimerai faire :
Remplir la colonne de A3 à A... avec les numéros de 1 à ... et que lorsque j'ouvre le formulaire, j'affiche le numéro dans une textbox.

Rien de compliqué, sauf que bien entendu j'ai une variable.

Sans variable le code serait :

Code:
Range("A3").Value = Textbox_num

Mais à chaque fois j'aurai le même num alors que moi je veux que ce soit incrémené à chaque nouveau formulaire.

Merci
 

job75

XLDnaute Barbatruc
Re : Incrémenter à chaque nouvelle saisie

Bonjour maninwhite,

Vous pouvez utiliser un nom défini qui mémorise le numéro :

- définissez d'abord le nom num avec la formule =0

- utilisez ce code quand vous voulez incrémenter le numéro en A3 :

Code:
ThisWorkbook.Names.Add "num", [num] + 1
[A3] = [num]
A+
 

maninwhite

XLDnaute Occasionnel
Re : Incrémenter à chaque nouvelle saisie

Merci, mais au final j'ai fait un truc tout simple

J'ai rempli la colonne avec les numéro et pour aller chercher la valeur dans la celulle, j'ai fait :

Code:
Me.TextBox_n = Sheets("report").Range("B65536").End(xlUp).Offset(1, -1)

Etant donné qu'à chaque formulaire je rempli une ligne, il me suffisait d'aller chercher la dernière ligne vide et de décaler d'une colonne :)
 

job75

XLDnaute Barbatruc
Re : Incrémenter à chaque nouvelle saisie

Re,

L'intérêt du nom défini pour stocker un numéro c'est qu'il est plus difficilement effaçable.

On peut d'ailleurs le masquer.

C'est important s'il s'agit par exemple de factures.

A+