prolblème avec code vba Résolu/Fermé

Question

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

ccm81 · Answer

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

ccm81 · Answer

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

jc80 · Answer

Bonjour

Merci pour ta réponse,mais là je suis larguer.
trop compliqué pour moi.
Cordialement

ccm81 · Answer

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

ccm81 · Answer

Au passage, j'ai oublié de te dire que j'avais aussi codé le bouton Supprimer

Bon courage

ccm81 · Answer

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

jc80 · Answer

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

jc80 · Answer

J'ai trouvé  
Dans propriété :Rowsource>>data!A1:A5 
Cordialement

jc80 · Answer

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

ccm81 · Answer

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 Integeri = Sheets("Licences").Cells(Rows.Count, 1).End(xlUp).Row + 1If 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.ShowEnd IfEnd Sub
Cdlmnt

jc80 · Answer

que dois je faire supprimer ces lignes?

michel_m · Answer

DOUBLONS !!!

https://forums.commentcamarche.net/forum/affich-32184700-bug-sur-un-userform 

https://forums.commentcamarche.net/forum/affich-32186013-remise-a-zero-d-un-userform

Prolblème avec code vba

12 réponses

Discussions similaires