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]

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

et bien justement j'en ai marre, cela t'embeterait il de mettre mon fichier du post 74 à jour avec ton code, sinon je crois que je vais tout abandonner, de plus il faut que je mette cet outil en fonction au plus vite.
Merci pour le gros coup de main encore une fois
Eric

 

[patricktoulon]

ben je travaille sur le mien en repiquant les event list sur celui la justement

regarde un exemple d'inutilité dans ton modèle
tu remplie tes combo avec rows source et le nom de tes tableaux structurés OK!!
et dans le click des combo tu va faire un vlookup CA TE SERT A QUOI TU A DEJA TOUT DANS LE .LIST DE LA COMBO
moi je fait par exemple

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

et c'est comme ça partout partout
bref j'avance petit a petit car c'est un vrai boxon ce fichier

et ce coeff de plante par qui ou quoi il est sensé se remplir automatiquement
si c'est pas le cas a quoi ca sert de lui avoir lier un checkbox loked true/false
ca sert a rien !!!

c'est le problème avec toi
c'est tellement désorganisé que j'arrive pas a pecho ton intention
sinon ça serait déjà fini

 

[eric72]

et ce coeff de plante par qui ou quoi il est sensé se remplir automatiquement

Il se remplit avec ça :
Private Sub ObNonRempotee_Click()
If Me.ObNonRempotee.Value = True Then CoeffPlante = Application.VLookup(ObNonRempotee.Caption, Sheets("Données").Range("Tbcoeff"), 2, 0) Else CoeffPlante = "" 'Calcul du Coef
End Sub
Private Sub ObRempotee_Click()
If Me.ObRempotee.Value = True Then CoeffPlante = Application.VLookup(ObRempotee.Caption, Sheets("Données").Range("Tbcoeff"), 2, 0) Else CoeffPlante = "" 'Calcul du Coef
End Sub

 

[patricktoulon]

bon OK je regarde et je transplante

 

[patricktoulon]

bon dis moi ce résultat est probant pour toi

 

[eric72]

Ca parait bien, avec un arrondi a 2 chiffres,
Pourquoi "Cocher pour changer coeff" est coché par défaut, c'est l'opérateur qui doit cocher si le coeff d'origine doit être changé exceptionnellement!!!
Merci

 

[patricktoulon]

re
par ce que si coeff est locké par défaut le checkbox doit l’être aussi ma fois c'est une évidence non ?
machin.locked=checkbox.value c'est simple
j'allume le userform
des le depart regarde

 

[eric72]

Ah ok super!!!

 

[patricktoulon]

oui j'ai ajouté le changement de couleur pour un effet visuel

 

[eric72]

Super!!!
J'imagine que dans "Modifier", "Ajouter" et "Supprimer" c'est aussi le foin foin?

 

[patricktoulon]

voila ou j'en suis sur mon modele a une classe
j'ai fait 3 frames

MAIS JE CONTINU A DOUTER DE TA FORMULE PLAQUE PRIX 0.5 * 8 PLAQUE* COEFF 1.1
CA PEUT PAS FAIRE 0.07 a moins que ça soit juste un aperçu sur le conditionnement et que l'unité de produit est un pack de 8 plack

 

[eric72]

Non c'est bien le (prix * coeff)/ nbplanteplaque (divisé et non multiplié)
soit 1.1*0.5 =0.55 /8 =0.06875

 

[patricktoulon]

à OK
bon je passe a la frMO maintenant

ET TOUJOURS Q UNE CLASSE
LOL!!!

 

[patricktoulon]

allez juste pour rire

'************************************
'Frame main d oeuvre FrMO
'************************************
'on fait rien pour celle la la classe s'en charge deja  LOL LOL LOL LOL

'************************************

c'est vrai en plus

ET pour etiquette je n'ai pas le change de la combo c'est quoi la démarche pour celle ci ?????

 

[eric72]

ET voilou
PrixEtiquette = Application.VLookup(RefEtiquette, Sheets("Données").Range("TbEtiquette"), 2, 0) Else PrixEtiquette = ""