Discussion :

[albatormk]

Bonjour
Je viens à vous aujourd'hui car j’ai besoin de votre aide et je dois avouer que je suis débutant en vba.

Je vous explique ma problématique:
J'ai réalisé un tableau Excel et une série de macro permettant de remplir automatiquement un formulaire contenant des champs texte, liste déroulante et bouton
Tout fonctionnait à merveille jusqu'à la 10 ligne, en effet arrivé à cette dernière, les nouvelle données saisies ne passe pas la 11eme ligne.

En tout cas si quelqu'un à une idée et peut m'aider je suis tout à fait preneur.
d'avance merci de votre aide.

PS je vous joint mon code:

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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
Private Sub lblSaisie_Click()
 
End Sub
'*********************************
'Procédure permettant d'accéder
'à la source de données
'*********************************
Private Sub btbchercher_Click()
 
    Sheets("Suivi").Activate
    Range("A1").Select
 
End Sub
 
 
 
 
'*********************************
'Procédure permettant de
'fermer un formulaire
'*********************************
Private Sub btnQuitter_Click()
 
    Unload Me
 
 
End Sub
 
'***************************************
'Procédure permettant de réinitialiser
'les champs du formulaire
'***************************************
Private Sub btnEfface_Click()
 
    cboService = ""
    cboBadge = ""
    cboSite = ""
    cboTypecontrat = ""
    txtMatricule = ""
    txtNom = ""
    txtPrénom = ""
    txtReferencecasque = ""
    txtDebutcontrat = ""
    txtFincontrat = ""
    txtDateremise = ""
    txtDateretour = ""
    txtCommentaire = ""
    txtEmail = ""
 
 
End Sub
 
Private Sub textCommentaire_Change()
 
End Sub
 
 
'***********************************
'Procédure permettant d'activer
'le bouton d'ajout d'information
'***********************************
 
Private Sub txtMatricule_Change()
 
    If txtMatricule <> "" Then
 
        btnNouveau.Enabled = True 'Activer le bouton
    Else
        btnNouveau.Enabled = False 'Désactiver le bouton
    End If
 
End Sub
 
'**************************************
'Procédure permettant d'activer
'le bouton d'ajout d'information
'**************************************
Private Sub txtNom_Change()
 
If txtNom <> "" Then
 
        btnNouveau.Enabled = True 'Activer le bouton
    Else
        btnNouveau.Enabled = False 'Désactiver le bouton
    End If
 
End Sub
'**************************************
'Procédure permettant d'activer
'le bouton d'ajout d'information
'**************************************
Private Sub txtPrénom_Change()
 
    If txtPrénom <> "" Then
 
        btnNouveau.Enabled = True 'Activer le bouton
    Else
        btnNouveau.Enabled = False 'Désactiver le bouton
    End If
 
End Sub
'**************************************
'Procédure permettant d'activer
'le bouton d'ajout d'information
'**************************************
Private Sub txtReferencecasque_Change()
 
    If txtReferencecasque <> "" Then
 
        btnNouveau.Enabled = True 'Activer le bouton
    Else
        btnNouveau.Enabled = False 'Désactiver le bouton
    End If
 
End Sub
 
'********************************************
'Prcédure permettant d'ajouter un nouvel enregistrement
'dans la bse de données
'*********************************************
 
Private Sub btnNouveau_Click()
 
    Sheets("suivi").Activate
    Range("A1").Select
    Selection.End(xlDown).Select 'on se positionne sur la dernière ligne vide
    Selection.Offset(1, 0).Select 'on se décale d'une ligne vers le bas
 
    ActiveCell = txtMatricule.Value
    ActiveCell.Offset(0, 1).Value = txtNom
    ActiveCell.Offset(0, 2).Value = txtPrénom
    ActiveCell.Offset(0, 3).Value = cboSite
    ActiveCell.Offset(0, 4).Value = cboService
    ActiveCell.Offset(0, 5).Value = txtReferencecasque
    ActiveCell.Offset(0, 6).Value = cboTypecontrat
    ActiveCell.Offset(0, 7).Value = cboBadge
    ActiveCell.Offset(0, 8).Value = txtDebutcontrat
    ActiveCell.Offset(0, 9).Value = txtFincontrat
    ActiveCell.Offset(0, 10).Value = txtDateremise
    ActiveCell.Offset(0, 11).Value = txtDateretour
    ActiveCell.Offset(0, 12).Value = txtCommentaire
    ActiveCell.Offset(0, 13).Value = txtEmail
 
    MsgBox "le salarié à bien été ajouter à votre basse de données", vbOKOnly + vbInformation, "CONFIRMATION"
 
End Sub

[unparia]

Bonjour

Code :

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

Selection.End(xlDown).Select 'on se positionne sur la dernière ligne vide

ne sélectionne pas la dernière ligne remplie, mais la 1ère remplie et suivie d'une ligne vide après la celle sélectionnée.

[albatormk]

Je te remercie d'avoir pris le temps d'y jeter un œil mais je n'ai pas compris, quel code me conseilles tu?

Cordialement

Bonjour

Code :

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

Selection.End(xlDown).Select 'on se positionne sur la dernière ligne vide

ne sélectionne pas la dernière ligne remplie, mais la 1ère remplie et suivie d'une ligne vide après la celle sélectionnée.