Aide code VBA

[captainejack]

Bonjour le Forum
Sur le formulaire joint, j'ai un soucis pour valider les données "prix":en effet les centimes ne s'affichent pas correctement dans le tableau
L'autre problème, c'est les 2 boutons ,un"suivant <" ou "précédent >". Le code inscrit ne fonctionne pas. Je souhaiterai visualiser dans les "Textbox" les données déjà enregistrées pour éventuellement compléter mon tableau(colonne E).
pourriez me dire ce qui ne va pas et m'aider à trouver les codes?
En vous remerciant pour votre aide
Slts
Dan

 

[kjin]

Re : Aide code VBA

Bonjour,
Un peu à la bourre moi !
Pas encore regardé ta réponse Jean Marcel alors je poste quand même
A+
kjin

 

[captainejack]

Re : Aide code VBA

Bjr Jean marcel & kjin
Le fichier à kjin, pour les recherches, c'est ok, par contre quand je rentre le prix de début d'enchère ,j'ai une erreur, débogage
.Cells(y, 3) = CCur(Me.PrixDébutEnchère)
Exemple/ quand je rentre 1,52€ ,et que je valide , ça me met en erreur
Le fichier à JM, ça ne se valide pas dans le tableau
Slts

 

[Robert]

Re : Aide code VBA

Bonjour le fil, bonjour le forum,

Dan j'attends toujours ton point de vue sur ce fil là...

 

[captainejack]

Re : Aide code VBA

Bjr Robert/JM/KJIN
Désolé pour ce retard , mais des petits soucis au boulot....
Pour ton ton fichier c'est OK, j'ai pu l'insérer dans mon classeur et ça marche. et c'est en utilisant un des formulaires que j'ai remarqué le pb ci dessous
Je suis un néophite en matière de VBA. C'est les premiers que je fais...
Pour JM, quand je rentre les donnnées , les prix ne s'affiche pas dans mon tableau, quand je rentre des pix du style 1,52€
Ce tantôt je ne suis pas là, je serais de retour vers 17h ou en soirée si ça ne vous dérange pas de trop. Je suis désolé de vous demander tout le temps des conseils sur les codes VBA, mais en même temps j'apprends
Je vous remercie encore pour tout l'aide que vous m'apportez
SLTS
Dan

 

[kjin]

Re : Aide code VBA

Re le fil, salut le mont saint clair,

...quand je rentre le prix de début d'enchère ,j'ai une erreur....quand je rentre 1,52€ ...

Et pourquoi entrer 1,52€ et non simplement 1,52 ?!
En outre, tu dois tester la présence d'une valeur numérique dans la Textbox avant de la convertir, sinon tu auras un bug également

Private Sub B_Validation_Click()
Dim y As Long
y = SpinButton1
With Sheets("Feuil1")
    .Cells(y, 1) = CDate(Calendar1)
    .Cells(y, 2) = DésignationArticle
    If (IsNumeric(PrixDébutEnchère)) Then .Cells(y, 3) = CCur(PrixDébutEnchère)
    .Cells(y, 4) = DuréedeMiseenVente
    If (IsNumeric(PrixFindeVente)) Then .Cells(y, 5) = CCur(PrixFindeVente)
    If (IsNumeric(FraisInsertion)) Then .Cells(y, 6) = CCur(FraisInsertion)
End With

End Sub

Edit : j'oubliais un conseil, évite les caractères accentués dans le nom des contrôles et des variables

A+
kjin

 

[captainejack]

Re : Aide code VBA

Bjr Kjin
J'ai mis le code que tu m'as fait suivre
J'ai remarqué une chose: au moment de la saisie j'ai inscrit 1,52 avec le point du pavé numérique et là il n'y a aucune insertion sur mon tableau au moment de la validation.
Par contre, j'ai saisie avec la "virgule" et là ça marche.Mais je pose la question ,est que je peux avec cette saisie, c'est à dire avec la "virgule",pour le complément de mon tableau prendre ces données pour les utilisées dans des formules de calcul?

 

[captainejack]

Re : Aide code VBA

Bonsoir Kjin
J'ai inséreé le code et ça foctionne
Encore une question svp
Que faut il ajouter au code, quand j'ai plusieurs saisie à faire, une fois valider ma première saisie,pour rajouter plusieurs saisie sans être obligé de fermer le formulaire et réouvrir pour ajouter le nouvel enregistrement?

 

[kjin]

Re : Aide code VBA

Bonsoir,
J'ai également ajouté un bouton supprimer avant ta prochaine demande 😉
A+
kjin

 

[captainejack]

Re : Aide code VBA

🙂Bonsoir Kjin
Merci je n'ai pas pensé mais cela va être utile
je regarde ça demain et je te tiens au courant
Slts et @+
🙂

 

[captainejack]

Re : Aide code VBA

Bjr Kjin
et le Forum
J'ai pu installé les codes et tout fonctionne .Merci pour le petit +