Impossible d'ajouter des données à partir d'un tableau que j'ai créé
Bonjour,
J'ai un souci , malgré le code VBA que j'ai mis ,impossible d'ajouter des données dans le tableau que j'ai créé
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
| Private Sub CommandButon_AJOUTER_Click()
'bouton ajouter
Dim modif As Integer, ligne As Integer
ligne = Sheets("Liste tableau donnees joueurs").Range("A456541").End(xlUp).Row + 1
ligne = 2
'numero joueur
Cells(ligne, 1) = ComboBox_NumeroJoueur.Value
'civilité joueur
Cells(ligne, 2) = ComboBox_CIVILITE.Value
'Nom joueur
Cells(ligne, 3) = Textbox_NOM.Value
'Prenom joueur
Cells(ligne, 4) = ComboBox_PRENOM.Value
'jour anniversaire joueur
Cells(ligne, 5) = ComboBox_JOURanniversaire.Value
'Mois anniversaire joueur
Cells(ligne, 6) = ComboBox_MOISanniversaire.Value
'Annee anniversaire joueur
Cells(ligne, 7) = ComboBox_ANNEEanniversaire.Value
'validation anniversaire
Cells(ligne, 8) = btn_à_cocher_Validation_anniversaire.Value
'Adresse joueur
Cells(ligne, 9) = TextBox_ADRESSE.Value
'Telephone fixe joueur
Cells(ligne, 10) = TextBox_FIXE.Value
'Telephone mobile joueur
Cells(ligne, 11) = TextBox_MOBILE.Value
'Email joueur
Cells(ligne, 12) = TextBox_EMAIL.Value
MsgBox "Enregistrement effectuee"
ligne = ligne + 1
End Sub |
Si vous pourriez m'aider
Merci
