Aide code VBA

K

kjin

XLDnaute Barbatruc

• 4 Février 2010

• #2

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

 

Pièces jointes

• capitanJ.zip

  15.1 KB · Affichages: 34

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 4 Février 2010

• #3

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

 

Dernière édition: 4 Février 2010

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 4 Février 2010

• #4

Re : Aide code VBA

Bonjour le fil, bonjour le forum,

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

 

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 4 Février 2010

• #5

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Février 2010

• #6

Re : Aide code VBA

Re le fil, salut le mont saint clair,

captainejack à dit:

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

Cliquez pour agrandir...

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

Code:

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

 

Dernière édition: 4 Février 2010

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 4 Février 2010

• #7

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?

 

Dernière édition: 4 Février 2010

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 4 Février 2010

• #8

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?

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Février 2010

• #9

Re : Aide code VBA

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

 

Pièces jointes

• capitanJ_v2.zip

  16.1 KB · Affichages: 38

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 4 Février 2010

• #10

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 @+
🙂

 

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 5 Février 2010

• #11

Re : Aide code VBA

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

 

Vote positif 0 Vote négatif