Discussion :

[vinvinsylvain]

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 ?



Merci d'avance.

code actuel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[vinvinsylvain]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vinvinsylvain]

Bonjour,

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

Je ne trouve pas l'erreur



Merci d'avance

Lien de mon fichier ICI

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
num = Range("A65536").End(xlUp).Row
TextBox9 = "AB" & Format(Range("A" & num), "0000")

[EDIT]
Une autre solution sans IF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox9 = "AB" & Format(num + 1, "0000")

[vinvinsylvain]

Merci Philippe, sa fonctinne a parfait !!

Une autre solution sans IF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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