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
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 ??
VB:
'
'************************************
'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
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
VB:
'************************************
'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
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
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
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
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
'************************************
'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 ?????