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]

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!!!

 

[patricktoulon]

pas incroyable méthodique c'est tout
et je suis sur que si tu prends ça un peu au sérieux tu va comprendre a quelle point c'est simple le module classe

 

[eric72]

si je prend le produit AGAVE D29 TERRE est-ce normal que "Rempotée" soit coché et "Cocher pour changer coeff" soit décoché.

 

[patricktoulon]

attends je regarde
c'est quoi le problème

 

[eric72]

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]

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]

si ca aussi c’était une erreur de conception alors ou on va
on va jamais le finir ce truc

 

[eric72]

Oui c'est bien ça donc quand "rempotée" est sélectionné "Coeffpot" doit etre protégé

 

[patricktoulon]

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]

Top,
Je ne peux pas modifier uniquement le Nom du produit exemple: ajouter un "S" il me remet toutes les données à blanc!!!

 

[patricktoulon]

a ben oui sinon tu remet en cause le mode ajout/modif

 

[eric72]

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]

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

 

[patricktoulon]

non j'ai juste bloqué l'appel dans le activate pour le fullscreen pour pouvoir travailler
regarde un peu le code tu verra

 

[eric72]

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