Discussion :

[plasto590807]

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 :

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

[a_diard]

Quand tu fais

Code :

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

1
2
ligne = Sheets("Liste tableau donnees joueurs").Range("A456541").End(xlUp).Row + 1
ligne = 2

tu remplace la valeur Sheets("Liste tableau donnees joueurs").Range("A456541").End(xlUp).Row + 1

par 2 ......

[Patrice740]

Bonjour plasto590807,

Je pense qu'à un moment donné, il ne faut plus hésiter à mettre les pieds dans le plat :
Tu devrais suivre une formation VBA, ou une auto-formation et t'y tenir jusqu'au bout.
Tu trouveras ici une excellent cours VBA pour débutants, très complet :
Cours complet pour le VBA d'Excel