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

Microsoft 365 Calcul TEXTBOX dans Userform

  • Initiateur de la discussion Initiateur de la discussion eric72
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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!!!
 
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"!!!
 
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
 
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
 
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?
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

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