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

 

[patricktoulon]

d'accords encore un vlookup pour rien
purée j'en fini plus là
mon surnom c'est decoupeur de code

 

[eric72]

Ca s'appelle un EXPERT

 

[patricktoulon]

heu ....ta frame entourage et étiquette font la même chose en fait c'est normal???,
elle sont toute les deux remplie par tbetiquette et on deux textbox prix... et PR.....

 

[eric72]

OUI il prend les infos au meme endroit et sélectionne ou entourage ou chromo ou etiquette

 

[patricktoulon]

a d'accords c'est donc ces 3 frames sont 3 options de vente finalement
tu vois je commence a comprendre tes intentions purée y fo'chéché hein ....

 

[patricktoulon]

pour te donner un appercu que ce qui se concoit bien devient plus facile

je remplace ça

Private Sub Refentourage1_Change(): calculBoxPrEntourage: End Sub
Sub calculBoxPrEntourage() 'sub generique
Dim critere As Boolean
critere = RefEntourage.Value <> ""
If critere Then PREntourage = Application.VLookup(RefEntourage, Sheets("Données").Range("TbEtiquette"), 2, 0) Else PREntourage = ""
If critere Then PrixEntourage = Application.VLookup(RefEntourage, Sheets("Données").Range("TbEtiquette"), 2, 0) Else PrixEntourage = ""
 
End Sub

Private Sub RefEtiquette_Change(): calculBoxPrEtiquette: End Sub
Sub calculBoxPrEtiquette() 'sub generique
Dim critere As Boolean
critere = RefEtiquette.Value <> ""
If critere Then PREtiquette = Application.VLookup(RefEtiquette, Sheets("Données").Range("TbEtiquette"), 2, 0) Else PREtiquette = ""
If critere Then PrixEtiquette = Application.VLookup(RefEtiquette, Sheets("Données").Range("TbEtiquette"), 2, 0) Else PrixEtiquette = ""
End Sub

PAR CECI

Private Sub Refentourage_Change()
 With RefEntourage
        If .ListIndex > -1 Then PrixEntourage = .List(.ListIndex, 1)   
    End With
End Sub

Private Sub RefEtiquette_Change()
    With RefEtiquette
        If .ListIndex > -1 Then PrixEtiquette = .List(.ListIndex, 1)   
    End With
End Sub

oui je sais ca fait peur
j't'en'foutraismoi des vlookupet des criteres

 

[eric72]

en effet, beaucoup plus clair!!!

 

[patricktoulon]

et pour un appercu plus grand voila ce qui seulement est utile pour
FRmo , Frchromo , FREntourage , FREtiquette

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


'************************************
'Frame CHROMO
'************************************

Private Sub RefChromo_Change()
With RefChromo
        If .ListIndex > -1 Then PrixChromo = .List(.ListIndex, 1) Else PrixEtiquette = ""
    End With
End Sub

'************************************
Frame ENTOURAGE
'************************************


Private Sub Refentourage_Change()
 With RefEntourage
        If .ListIndex > -1 Then PrixEntourage = .List(.ListIndex, 1) Else PrixEtiquette = ""
    End With
End Sub


'************************************
'Frame ETIQUETTE
'************************************
Private Sub RefEtiquette_Change()
    With RefEtiquette
        If .ListIndex > -1 Then PrixEtiquette = .List(.ListIndex, 1) Else PrixEtiquette = ""
    End With
End Sub

 

[eric72]

On ne se moque pas stp!!! lol...

 

[patricktoulon]

bon ben je viens de terminer la colonne de frame a gauche
je tente tout ce qui est possible de faire

 

[eric72]

Top, je crois que je vais abandonner le VBA quand je vois ce que tu fais

 

[patricktoulon]

tiens je te donne mon éprouvette avec les frames de gauche fini car vers 14 heures je vais faire une inter
et je reviendrais vers 15h30
regarde et lit les codes il sont accessible même au débutant moyens

Une seule classe !!! c'est la classe!!!!

 

[eric72]

Par contre si je supprime le transporteur dans "FrPlante" ça bug!!!

 

[patricktoulon]

a bein oui!!! j'ai laissé des artefacts de tes codes hahahahahahah
a supprimer ce qui est en rouge
If .ListIndex > -1 <> "" Then TransPlante.Value = .List(.ListIndex, 1)

 

[patricktoulon]

d'ailleurs je vais toutes les mettre avec le test listindex-1 car le .value peut etre tapé et si ça ne contient pas l'erreur est effective