Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Calcul TEXTBOX dans Userform

eric72

XLDnaute Accro
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
 

Pièces jointes

  • Gestion Fiche Produit test.xlsm
    204 KB · Affichages: 31

eric72

XLDnaute Accro
Super!!!
Je nai plus qu'à ajouter ma feuille "Référencement" et mettre des protections et c'est tout bon.
Et aussi tout tester pour voir si c'est Ok.
Tu es incroyable quand même.
Maintenant je vais t'appeler Magic Patrick!!!
 

eric72

XLDnaute Accro
Quand je veux modifier un Libellé de produit, exemple ajouter un "S" il me remet le nom à blanc toutes les données du produit.
attends je regarde
c'est quoi le problème
Regarde la pièce jointe 1120173
On ne peut pas en même temps sélectionner "Rempotée" et changer le coeff sans décocher "Cocher pour changer coeff", c'est ou prend "rempotée", "nonrempotée" ou on saisit manuellement en décochant "Cocher pour changer coeff"!!!
 

patricktoulon

XLDnaute Barbatruc
heu....... la bonne blague
ma fois le coeff est base sur le rempotage ou non rempotage tu débloque le coeff donc tu veux modifier le coeff qui ne correspondra plus ni a l'un ni a l'autre
çà je l'ai pas inventé ca vient de ton fichier base
 

patricktoulon

XLDnaute Barbatruc
VB:
Private Sub ObNonRempotee_Click()
    If Me.ObNonRempotee.Value = True Then
        CoeffPlante = Application.VLookup(ObNonRempotee.Caption, Sheets("Données").Range("Tbcoeff"), 2, 0)
        ChbCoeffPlante = True
    Else: CoeffPlante = ""   'Calcul du Coef
    End If
End Sub

Private Sub ObRempotee_Click()
    If Me.ObRempotee.Value = True Then
        CoeffPlante = Application.VLookup(ObRempotee.Caption, Sheets("Données").Range("Tbcoeff"), 2, 0)
        ChbCoeffPlante = True
    Else
        CoeffPlante = ""    'Calcul du Coef
    End If
End Sub
 

eric72

XLDnaute Accro
ah ok,
Bon allez je te laisse tranquille, je t'épargne le "Référencement" je vais reprendre mon code!!!
Encore une question tu as changé le code du redimensionnement, est-ce que le USF s'affiche bien "pleine page" quelle que soit la taille de l'écran, car plusieurs tailles sont appelées à utiliser ce fichier?
 

patricktoulon

XLDnaute Barbatruc
bon après je veux bien être sympa mais bon j'ai d'autres projet en cours
toi tu es parti en weekend moi j'ai fait ton truc alors débrouille toi un peu maintenant
j'ai fait plus que ma part sur ce truc je vais pas encore passer la journée a refaire toute les imperfections que tu n'a pas déceler a l’ébauche de ton projet

tu ne peux sérieusement pas modifier le nom d'un produit même un simple "s" en gardant les mêmes autres données sinon c'est la porte ouverte a tout d'une agave je peux passer a un comcombre masqué

fait toi un autre userform pour ça ce sera plus propre
 

eric72

XLDnaute Accro
Je déconnais!!!
Merci 1000 fois pour tout ce que tu as fait, c'est juste génial.
Je vais essayer de t'épargner pendant au moins 6 mois, lol!!!
du coup je ne te dis pas à bientôt!!!
Plein de courage pour les autres projets
 

Discussions similaires

Réponses
1
Affichages
215
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…