Microsoft 365 Calcul TEXTBOX dans Userform

patricktoulon

XLDnaute Barbatruc

• 1 Novembre 2021

• #181

HaHHHHH je crois comprendre ta question


si ce code est exécute en externe( dans un module par exemple) avec le userform pas ouvert
comme tu change le value du combo tu déclenche forcement son click donc l'userform s'affiche car l'event de la combo est dans le module de ce userform qui est je te le donne dans le mille un module classe et comme ce module(donc celui du userform est acitivé ben le initialise s'active comme dans n'importe quelle classe

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Novembre 2021

• #182

Re
oui c'est ca !
Jean marie

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Novembre 2021

• #183

et ben je t'ai répondu maintenant tu sais

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Novembre 2021

• #184

tu veux la méthode combo sans activation ? je t'en fait une si tu veux

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Novembre 2021

• #185

Re
super ! je t'ai dis , je suis la pour apprendre Lol
jean marie

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Novembre 2021

• #186

tiens teste cela

en fait on teste un match sur le .list lui même de la combo
boucle a reculons removeitem oblige bien sur (c'est comme les ligne d'une plage on les supprime a reculons)

VB:

Sub remplicombosansdiconodouble()
    Dim a, x&, i&
    a = Split("toto;titi;riri;toto;fifi;loulou;toto;titi;toto;fifi;loulou;fifi;titi", ";")
    With UserForm2
        .ComboBox1.List = a    ' on met tout avec les doublons
        For i = UBound(.ComboBox1.List) To 0 Step -1
            x = Application.IfError(Application.Match(a(i), .ComboBox1.List, 0), 0)
            If x <> i + 1 Then .ComboBox1.RemoveItem i
        Next
        'allez on tente un show pour voir
        '.Show 0
     End With
End Sub

mais c'est vraiment archaïque
on peut le faire directement sur la variable tableau (a)

VB:

Sub remplicombosansdiconodouble()
    Dim a, x&, i&
    a = Split("toto;titi;riri;toto;fifi;loulou;toto;titi;toto;fifi;loulou;fifi;titi", ";")
    With UserForm2
        For i = 0 To UBound(a)
            x = Application.IfError(Application.Match(a(i), a, 0), 0)
            If x = i + 1 Then .ComboBox1.AddItem a(i)
        Next
        'allez on tente un show pour voir
        .Show 0
     End With
End Sub

après il y a les collections et les dico et systemarraylist et l'autre je sais plus comment il s'appelle celui là 😅

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Novembre 2021

• #187

Re
Merci Patrick !
jean marie

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Novembre 2021

• #188

je dois en avoir 2 ou 3 autres dans mes vieux code excel 2003
qui sont pas piqué des vert aussi
je me souviens en avoir fait une avec un string 😂😂😂😂😂

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Novembre 2021

• #189

mdr !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Novembre 2021

• #190

a ben je faisait comme je pouvais a l'époque 😂😂
je vais essayer de la reproduire juste pour le délire 😂😂😂

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Novembre 2021

• #191

tiens j'arrive pas rester serieux 😂🤣

VB:

Sub remplicombosansdiconodouble()
    Dim a, STRINGetPorteJaretelle$, i&
    a = Split("toto;titi;riri;toto;fifi;loulou;toto;titi;toto;fifi;loulou;fifi;titi", ";")
    With UserForm2
        For i = 0 To UBound(a)
           If Not STRINGetPorteJaretelle$ Like "* " & a(i) & " *" Then .ComboBox1.AddItem a(i): STRINGetPorteJaretelle$ = STRINGetPorteJaretelle$ & " " & a(i) & " "
        Next
        'allez on tente un show pour voir
        .Show 0
     End With
End Sub

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 2 Novembre 2021

• #192

Bonjour Patrick,
Ca y est, enfin de retour, ben dis donc tu as bien bossé.
Alors pour le prix de vente, c'est manuel et pour la marge c'est:
Me.Marge.Value = Format((CDbl(Me.PrixVente) - CDbl(Me.CoutRevient)) / CDbl(Me.CoutRevient), "0.00%")
N'hésite pas si tu as besoin, je suis là, lol!!!

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 2 Novembre 2021

• #193

Patrick,
Je ne sais pas si tu as, avec les boutons SUPPRIMER, MODIFIER,AJOUTER, alimenter le TbProduit dans "Données"?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Novembre 2021

• #194

Bonjour Eric72
réponses
1°

Me.Marge.Value = Format((CDbl(Me.PrixVente) - CDbl(Me.CoutRevient)) / CDbl(Me.CoutRevient), "0.00%")

Cliquez pour agrandir...

oui mais avant de calculer il faudrait que je sache ou prendre les donnée pour le moment ces deux textbox sont vides
donc la formule du prix de vente en clair SVP


2° non je t’attendais pour la 2d alimention du tableau TBProduit dans données je suppoose que c'est juste quelque textbox

regarde comment il est maintenant

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Novembre 2021

• #195

j'ajouterais qu'il y a une inutilité dans cette conception
l'enregistrement des checkbox n'est pas vraiment cessionnaire
en mode modif si on veux le changer on le débloque c'est tout et hop 5/6 colonnes en moins
mais bon j'ai respecté ton choix de le faire

j'attend ta formule prix de vente 😉

 

Vote positif 0 Vote négatif