Microsoft 365 Calcul TEXTBOX dans Userform

[eric72]

Bonjour,
Je cherche à faire des calculs de Textbox dans un Userform en sachant qu'elles ne sont pas toujours toutes renseignées à chaque fois, malgré cela j'aimerais que le calcul se fasse quand même en tenant compte de celles renseignées, donc j'ai adapté ce code mais ça ne va pas.
Ou est la boulette?
Merci à tous

 

[eric72]

Problème quand on fait recherche produit avec combo "CbRecherche"

 

[patricktoulon]

ya pas de PrEmballage dans fraccess dans le model que j'ai
tu melange les frames alors

 

[eric72]

ya pas de PrEmballage dans fraccess dans le model que j'ai
tu melange les frames alors

dans FrEmballage il y a PrEmballage
dans FrAccess il y a PrAccess
Voir fichier

 

[ChTi160]

Bonsoir le Fil
Une question
Pourquoi dans le Frame " FrEmballage " tu as trois Combobox ?
qui chacun contiennent la même Liste.
jean marie

 

[eric72]

Bonsoir le Fil
Une question
Pourquoi dans le Frame " FrEmballage " tu as trois Combobox ?
qui chacun contiennent la même Liste.
jean marie

Bonjour Robert
Parce qu'on est susceptible de saisir l'un et/ou l'autre et éventuellement à plusieurs reprises
A mon tour, petite question dans la frame "FrPlaque" je suis obligé de mettre le "NbPlantePlaque" à 1 dans l'initialize de l'Usf, sinon il met au chargement d'une fiche produit erreur divisé par 0, alors que dans le module de classe il est déjà à 1 si égal à "", auriez-vous une idée?
Merci Robert
Eric

 

[ChTi160]

Bonjour ,
je ne vois nulle part (mais tu vas me mettre le Code concerné) ou tu mets la valeur du control "NbPlantePlaque" à 1

je suis obligé de mettre le "NbPlantePlaque" à 1

Quelle est la démarche qui t'amène à cette erreur de Div/0 ,je n'arrive pas a reproduire !
merci par avance
Jean marie

 

[eric72]

Oups je ne suis pas réveillé, j'ai mis Robert alors que c'était Chti, la journée commence bien.
Dans le module de classe "TB4ClassPlaque", il y a ça:
If UsfProduit.NbPlantePlaque = "" Then V2 = 1 Else V2 = CDbl(UsfProduit.NbPlantePlaque)
Malgré cela si j'appelle un produit avec CbRecherche, il me met divisé par 0 et le seul moyen que j'ai trouvé pour parer à cela est de mettre ça:
NbPlantePlaque = Format(0.1, "0.0"): NbPlantePlaque.ForeColor = RGB(220, 220, 220)
dans l'initialize!!!
Bizarre non?
Merci

 

[ChTi160]

Re
Merci
Mais quand tu mets :Format(0.1, "0.0") tu mets un Double pas un entier est-ce Normal ?
Pourquoi pas : NbPlantePlaque = 1
je regarde
Jean marie

 

[eric72]

En fait je l'ai viré dans initialize et ça marche il devait y avoir autre chose
Désolé
Merci beaucoup
Eric

 

[ChTi160]

Re
Pas de problème !
Bonne continuation dans le développement de ton Appli.
n'hésite Pas si Besoin !
Bonne Journée
Jean marie

 

[patricktoulon]

des erreur il y en a des tas
tien encore une juste comme ça en passant
dis moi un peu
with coeffplante c'est bien le textbox coeff
et comment pourrait il bien être a true ou false C EST UN TEXTBOX !!!!!!!!!!

Private Sub ChbcoeffPlante_Click()
ObRempotee.Value = False
ObNonRempotee.Value = False
With CoeffPlante
    If .Value = True Then
        .Locked = False
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Value)
    Else
        .Locked = True
    End If
End With
End Sub

il n' y a pas une sub ou fonction ou je tombe pas sur une bizarrerie
pour info le mien avec une seul classe je viens de faire la frame plante et ça marche très bien et j'ai pourtant remis le locked
le mien

 

[patricktoulon]

d'ailleurs de coeff ne devrait il pas etre rempli en cliquant sur la combo
ce coeff ne devrait pas avoir une reference a un truc dans ta feuille ?????

a quoi ca sert de le bloquer si il n'est pas rempli automatiquement ?????

et là je parle du tiens pas du mien

 

[patricktoulon]

tiens eric
là ca fonctionne comme ca devrait

Private Sub ChbcoeffPlante_Click()
    Dim state As Boolean
    ObRempotee.Value = False
    ObNonRempotee.Value = False
    state = ChbCoeffPlante
    With CoeffPlante
        .Locked = state
        If Not state Then .SetFocus: .SelStart = 0: .SelLength = Len(.Value):
        .BackColor = Array(vbWhite, &HE0E0E0)(Abs(.Locked))
    End With
End Sub

 

[eric72]

d'ailleurs de coeff ne devrait il pas etre rempli en cliquant sur la combo
ce coeff ne devrait pas avoir une reference a un truc dans ta feuille ?????

a quoi ca sert de le bloquer si il n'est pas rempli automatiquement ?????

et là je parle du tiens pas du mien

Ben le coeff se remplit
le Coeff se bloque mais doit pouvoir etre changé manuellement quand on coche "Changer le coeff"
Regarde sur le fichier
Par contre dès que je veux modifier ou supprimer une fiche ca bug de partout, ca me saoule
Peux-tu me renvoyer le fichier avec ton code voir si ça va et si c marche quand on modifie ou supprime stp Patrick
Merci

 

[patricktoulon]

et oui tu fait des redondances c'est normal que ca plante
et je peux t'assurer que tes checkbox ne fonctionnent pas comme tu le souhaite ça c'est sur
je suis en train de les coder tes checkboxs
je suis a la frame pot pour le moment sur le mien bien sur
teste mon checkbox dans ta frame plante ça te coûte rien

tot ou tard tu te rendra compte que tu n'a pas pris le bon chemin je ne m’énerve plus je te laisse arriver a cette conclusion tout seul
juste regarde
ca c'est la frame plante
deja cette facon d'organiser le code ca doit te parler non ??

'
'************************************
'Frame plante
'************************************
Private Sub CbTransporteur_Change()
    If Me.CbTransporteur.Value <> "" Then TransPlante = Application.VLookup(CbTransporteur, Sheets("Données").Range("TbTransporteur"), 2, 0): PRPlante = "0,00 €" Else TransPlante = ""    'Calcul du Coef
End Sub
Private Sub ChbcoeffPlante_Click()
    Dim state As Boolean
    ObRempotee.Value = False
    ObNonRempotee.Value = False
    state = ChbCoeffPlante
    With CoeffPlante
        .Locked = state
        If Not state Then .SetFocus: .SelStart = 0: .SelLength = Len(.Value):
        .BackColor = Array(vbWhite, &HE0E0E0)(Abs(.Locked))
    End With
End Sub
'********************************************

le reste c'est ma seule classe qui s'en occupe
quand tu en aura marre de galérer fait moi signe