Titre du sujet : Re: Probléme de code
par beatbles le 22/08/2012 17:24:46
Bonjour Mth et bonjour a tous
Franchement j’avoue que j’aurais un mal fou a limiter les lignes que vous penser avoir besoin de comprendre mon problème, mon projet comprend pour le moment mes je pense être bientôt au bout de 30 UserForm, j’ai aussi 3 modules de classe, et certaine partie dans un module, peut être ma façons de traiter les valeur monétaires.
Ni voyez surtout pas de ma par de ne pas montrer mon travail.
Voici une partie du code pour une somme qui doit entrer dans un textbox, une cellule et j’espère ne pas en oublier :
UserForm
'=====================================================
' Traitement et contrôle textbox frais de la visite
'=====================================================
Private Sub TxtCovisi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim NoEuro As New cEuropro
If TxtCovisi = "" Then Exit Sub
NoEuro.Neuro = TxtCovisi
TxtCovisi = NoEuro.Neuro
vAleur = CCur(TxtCovisi)
End Sub
Private Sub TxtCovisi_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = AutoCarac(KeyAscii)
End Sub
Mise en place dans la cellule depuis l’User
'====PRIXVISITE=================================================
ActiveCell.Offset(0, 1).Activate
ActiveCell = Format(TxtCovisi, "#,##0.00 €")
La classe :
Option Explicit
Private mNeuro As Variant
Property Get Neuro() As Variant
'propriété lecture
Neuro = mNeuro
End Property
Property Let Neuro(Neuro As Variant)
Dim temp As Variant
'propriété ecriture
temp = Replace(Neuro, ".", ",")
'Stop
temp = Format(temp, "#,##0.00 €")
If temp = "" Then
temp = Format(temp, "#,##0.00 €") ': Exit Sub
End If
mNeuro = temp
End Property
Pour notre problème le code que j’ai indiqué ne change pas bien sur dans mon projet j’aurais 14 valeur total.
Mais mon problème survient bien sur parce que les valeur son en texte , au vue de la partie du code dans la façons de traiter pour le mettre dans le textbox et dans la cellule y verrez vous l’erreur que j’ai pu y commettre
Bien cordialement bonne fin de journée
| 
Didier FOURGEOT