Prolblème avec code vba
Résolu
Bonjour
J'essaie de construire un fichier licences pour un club sportif de ma commune,
mais j'ai un souci avec un code VBA que j'ai trouvé sur CCM.
Dans l'userform quand le rentre des données je n'arrive pas a les envoyer plus que la
colonne D de la feuille "licences".
Pouvez-vous svp me dire où se trouve le problème et m'apporter la solution.
PS: je suis assez novice en VBA.
Cordialement
Ci-dessous fichier
http://www.cjoint.com/c/EFCqL2D61YF
J'essaie de construire un fichier licences pour un club sportif de ma commune,
mais j'ai un souci avec un code VBA que j'ai trouvé sur CCM.
Dans l'userform quand le rentre des données je n'arrive pas a les envoyer plus que la
colonne D de la feuille "licences".
Pouvez-vous svp me dire où se trouve le problème et m'apporter la solution.
PS: je suis assez novice en VBA.
Cordialement
Ci-dessous fichier
http://www.cjoint.com/c/EFCqL2D61YF
12 réponses
-
Contributeur
-
que dois je faire supprimer ces lignes?
-
-
@ccm81Bonjour CCM81
merci pour ton aide cela fonctionne.
Cordialement
PS:je passe ce sujet en résolu
-
-
Bonjour
Le problème doit venir d'ici (lignes soulignées)
Lorsque MAJLicences(i) a été exécutée, tu changes la valeur du SpinButton2,
ça déclenche la procédure SpinButton2_Change qui remplit les textbox de ton UF
Private Sub btncreer_Click()Dim i As Integer
i = Sheets("Licences").Cells(Rows.Count, 1).End(xlUp).Row + 1
If T_nom.Value = "" Then
MsgBox "Veuillez completer le nom"
Else
Call MAJLicences(i)
Me.Label1.Caption = i
Me.SpinButton2.Max = Me.SpinButton2.Max + 1
Me.SpinButton2.Value = Me.SpinButton2.Max
MsgBox "Opération effectuée"
Unload Me
F_Licences.Show
End If
End Sub
Cdlmnt -
Bonjour ccm81
j'ai bien avance mais j'ai un nouveau problème que là je n'arrive pas à résoudre.
Mon userform ne se remet pas entièrement à zéro
https://www.cjoint.com/c/EGbpT0avHSB
Cordialement -
J'ai trouvé
Dans propriété :Rowsource>>data!A1:A5
Cordialement -
Bonjour
J'ai une lacune pour créer un code dans combox(zone de liste modifiable)
propriété name: Cmbidentite
j'ai nommé une liste en feuille :Data de A1à A5
Merci pour votre aide
Crdlt -
Impossible de reproduire l'erreur chez moi
Mais remplaces quand même la ligne par
Me.SpinButton2.Value = Me.SpinButton2.Max
ce sera plus logique (ligne du dernier créé)
Cdlmnt -
Au passage, j'ai oublié de te dire que j'avais aussi codé le bouton Supprimer
Bon courage-
je viens de voir un bug sur le bouton creer
Private Sub btncreer_Click()
Dim i As Integer
i = Sheets("Licences").Cells(Rows.Count, 1).End(xlUp).Row + 1
If T_nom.Value = "" Then
MsgBox "Veuillez completer le nom"
Else
Call MAJLicences(i)
Me.Label1.Caption = i
Me.SpinButton2.Max = Me.SpinButton2.Max + 1
Me.SpinButton2.Value = Me.SpinButton2.Value + 1 le bug est sur cette ligne
MsgBox "Opération effectuée"
Unload Me
F_Licences.Show
End If
End Sub
Crdlt
-
-
Bonjour
Je suis allé un peu plus loin
http://www.cjoint.com/c/EFDmiy8gWyg
Il ne faut pas baisser les bras comme ça, le code que tu avais récupéré était plutot bien écrit/lisible, donc (assez) aisément modifiable
Ton problème est surtout de bien définir ce que tu veux faire et comment (avec que bouton/procedure) tu veux le faire : à peu près tous les outils pour y arriver sont déjà dans ton code
Bon courage -
Bonjour
Merci pour ta réponse,mais là je suis larguer.
trop compliqué pour moi.
Cordialement -
Un souci en plus il semblerait que le code du bouton modifier ne soit pas bon la modif ne se fait pas.
Je t'ai dit que je n'ai réparé que la procédure affectée au bouton btncreer
Pour ce qui est du bouton btnmodifier, comme tu peux le voir sur le code, tout est à faire !Private Sub btnmodifier_Click() If T_nom <> "" Then Sheets("Licences").Range("A" & Label1.Caption).Value = T_nom MsgBox "Modification effectuer" Unload Me Else MsgBox "Saisissez un nom" Exit Sub End If End Sub
Cdlmnt -
Bonjour
Vérifies la propriété name de tes textbox qui ne correspond pas à leur contenu (clic-droit sur les textbox/Propriété/Name
"Code postal" a pour nom L_codepostal au lieu de T_codepostal
"Catégorie" a pour nom T_codepostal !!
Cdlmnt-
-
@ccm81Bonsoirccm81
Merci pour ta réponse et ton aide
Un souci en plus il semblerait que le code du bouton modifier ne soit pas bon la modif ne se fait pas.
Crdlt
-
