Prolblème avec code vba
Résolu
jc80
Messages postés
4243
Date d'inscription
Statut
Membre
Dernière intervention
-
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Prolblème avec code vba
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
12 réponses
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
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
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 !
Cdlmnt
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Au passage, j'ai oublié de te dire que j'avais aussi codé le bouton Supprimer
Bon courage
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
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
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
Mais remplaces quand même la ligne par
Me.SpinButton2.Value = Me.SpinButton2.Max
ce sera plus logique (ligne du dernier créé)
Cdlmnt
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
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
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 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
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()
Cdlmnt
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
que dois je faire supprimer ces lignes?
http://www.cjoint.com/c/EFCtS7imLdg
J'ai ajouté le textbox T_certificatmedical
Cdlmnt
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