Numéro ID dans une textbox

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
besoin d'aide.

J'ai une feuille excel pour saisir à l'aide d'un formulaire.

J'aimerai avoir un numéro ID pour chaque saisie.

Comment je dois faire ?

Pièce jointe 138081

Merci d'avance.

code actuel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 Option Explicit
 Dim Ws As Worksheet
 
Private Sub UserForm_Initialize()
Dim i
    For i = 1 To 200
        ComboBox1.AddItem Sheets("Databasse").Cells(i, 1)
    Next
 
 
 Dim i2
    For i2 = 1 To 200
        ComboBox2.AddItem Sheets("Databasse").Cells(i2, 2)
    Next
 
 
End Sub
Private Sub CommandButton3_Click()
Dim L As Integer
 Dim Ligne As Long
If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau formulaire à la base de donnée ?", vbYesNo, "Demande de confirmation") = vbYes Then
L = Sheets("Donnée Saisie").Range("a6000").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
 
 Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
 
Range("A" & L).Value = Range("A1").Value + 1
Range("B" & L).Value = ComboBox1
Range("C" & L).Value = ComboBox2
Range("D" & L).Value = CheckBox1
Range("E" & L).Value = CheckBox2
Range("F" & L).Value = CheckBox3
Range("G" & L).Value = CheckBox4
Range("H" & L).Value = CheckBox5
Range("I" & L).Value = CheckBox6
Range("J" & L).Value = CheckBox7
Range("K" & L).Value = CheckBox8
Range("L" & L).Value = CheckBox9
Range("M" & L).Value = CheckBox10
Range("N" & L).Value = TextBox3
Range("O" & L).Value = CheckBox11
Range("P" & L).Value = CheckBox12
Range("Q" & L).Value = CheckBox13
Range("R" & L).Value = TextBox8
Range("S" & L).Value = CheckBox14
Range("T" & L).Value = CheckBox15
Range("U" & L).Value = TextBox4
Range("V" & L).Value = TextBox5
Range("W" & L).Value = TextBox6
Range("X" & L).Value = TextBox7
Range("A" & L).Borders.LineStyle = xlNone
End If
 
 
MsgBox ("Formulaire inséré dans fichier sélectionné") 'Vous informe que le présent contact est insérer dans votre tableau Excel.
Unload Me
UserForm1.Show 'Ouvre le formulaire
End Sub
'Correspond au programme du bouton QUITTER
Private Sub CommandButton4_Click()
Unload Me
End Sub

Bonjour,

Tu peux utiliser une feuille cachée (ou un nom) et incrémenter l'ID après chaque fermeture soit sur l'évènement "QueryClose", soit sur l'évènement "Click" d'un bouton de validation :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub UserForm_Initialize()
 
    'récupère l'ID à l'ouverture en A1 de la feuille cachée
    Me.TxtID.Text = Worksheets("Feuil1").Range("A1").Value
 
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
    'incrémente l'ID automatiquement ou alors, à mettre dans le code d'un bouton de validation
    Worksheets("Feuil1").Range("A1").Value = Worksheets("Feuil1").Range("A1").Value + 1
 
End Sub

Hervé.

Merci Hervé, mais j'ai trouver ceci qui me va (8h de recherche lol)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim num As Integer
 
num = Range("A65536").End(xlUp).Row + 1
 
Range("A" & num) = TextBox9
 
End Sub
 
 
 
Private Sub UserForm_Initialize()
Dim num As Integer
 
num = Range("A65536").End(xlUp).Row
 
If Right(Range("A" & num), 4) < 9 Then
    TextBox9= "AB000" & Right(Range("A" & num), 4) + 1
End If
 
End Sub

15/02/2014, 12h09
vinvinsylvain

1 pièce(s) jointe(s)

Ou est mon problème Numéro ID dans une textbox

Bonjour,

De nouveau un problème, l'incrément de l'ID s'arret après 10 saisie.

Je ne trouve pas l'erreur

Pièce jointe 138181

Merci d'avance

Lien de mon fichier ICI
15/02/2014, 12h25
Philippe Tulliez
Bonjour,
Est-ce que le texte Saisie n° que tu as placé dans la colonne A est indispensable ?
Sinon il est possible de placer simplement le n° dans la cellule quitte à avoir le texte uniquement comme format personnalisé "Saisie n° "0
Cela simplifiera ton code
Exemple
Code:

1 2 num = Range("A65536").End(xlUp).Row TextBox9 = "AB" & Format(Range("A" & num), "0000")
[EDIT]
Une autre solution sans IF

Code:

TextBox9 = "AB000" & Right(Range("A" & num), Len(num)) + 1

J'ajouterais que si le n° contenu dans la cellule de la colonne A est le même que la variable Num, il est inutile d'extraire le n° de la chaîne. Il suffit d'incrémenter Num
Soit

Code:

TextBox9 = "AB" & Format(num + 1, "0000")
15/02/2014, 12h57
vinvinsylvain

Merci Philippe, sa fonctinne a parfait !!

Citation:

Envoyé par Philippe Tulliez

Une autre solution sans IF

Code:

TextBox9 = "AB000" & Right(Range("A" & num), Len(num)) + 1
15/02/2014, 17h03
vinvinsylvain

Comprend plus rien
Desoler je comprend plus rien, sa ne fonctionne plus !

Quand je clique sur "Nouvelle Saisie" j'ai un message "Erreur d'execution 13": incompatibilité de type.

après sur "déblogage" et la je vois que l'erreur est sur ce code, qui m'a laire parfait:
Code:

1 2 3 Private Sub CommandButton1_Click() UserForm1.Show End Sub
Fichier ci joint ICI
15/02/2014, 17h25
Philippe Tulliez

Bonjour,
Lorsque une erreur se produit dans un UserForm lancé par l'instruction UserFormName.Show, le VBA surligne en jaune cette dernière.
Utilise le pas à pas (touche F8) pour voir où se situe l'erreur (à quelle ligne).
15/02/2014, 18h48
jijie

Salut

sur ta feuille remplace "N1" par "N0001"

et dans ton code place:

Code:

TextBox9 = "N" & Format(Right(Range("A" & num), Len(num)) + 1, "0000")

NB: La cfdt travaille le samedi ?:zoubi:

heu

Bonjour
pour commencer
tes combo peuvent etre rempliesdirectement par la plage puisque visiblement elle est fixe

la méthode jijie est bonne mais des que les chiffre vont monter le right ne seront plus bon

le mieux pour toi est de supprimer tout ce qui n'est pas numérique de la valeur de la cellule par un replace(.ta cellule...)

ensuite par truc=val(....) récupérer au format numérique

ensuite ajouter 1onc truc=truc+1

ensuite au finale ca donne ="N" & truc

bon allez change ton initialyze de ton userform pour ca :
Code:

1 2 3 4 5 6 7 8 Private Sub UserForm_Initialize() Dim i, i2, num, valeur, tablo1, tablo2 ComboBox1.List() = Sheets("Databasse").Range("A1:A200").Value ComboBox2.List() = Sheets("Databasse").Range("B1:B200").Value num = Range("A"& Rows.count).End(xlUp).Row valeur = Val(Replace(Range("A" & num), "N", "")) + 1 TextBox9 = "N" & Format(valeur, "0000") End Sub
comme tu vois ca n'est pas très compliqué

je te dirais bien comment on peut encore réduire le code pour ta retranscription des Object vers ta feuille mais je vais attendre que tu ai essayé ceci pour commencer

Au plaisir

16/02/2014, 12h44
vinvinsylvain

Merci patricktoulon !!