remplissage de TextBOx1 si TextBOX2 non vide

  • Initiateur de la discussion Initiateur de la discussion Ilino
  • 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 !

Ilino

XLDnaute Barbatruc
Dernière édition:
Re : remplissage de TextBOx1 si TextBOX2 non vide

salut

Ta programmation n’est pas efficace ni optimisée.
Dans l’usf de création tu as
Range("A2:Y2").Select ' <-------------- adapter le tableau
Selection.Insert Shift:=xlDown insertion d’une ligne vierge en ligne 2
ActiveWindow.ScrollColumn = 1
Range("A2").Select
Range("A2").Value = ComboBox1.Value
Range("B2").Value = ComboBox2.Value
Range("C2").Value = ComboBox3.Value
Range("D2").Value = TextBox1.Value
Range("E2").Value = TextBox2.Value
Range("F2").Value = ComboBox6.Value
Range("G2").Value = ComboBox4.Value
Range("H2").Value = ComboBox5.Value
Range("I2").Value = TextBox3.Value
Range("J2").Value = TextBox4.Value
Range("K2").Value = TextBox6.Value l’envoi s’arrête ici

O2 ne contient donc pas de formule.
Tu peux rajouter la ligne
Code:
Range("O2").FormulaR1C1 = _
        "=IF((IF(RC[-2]="""",0,RIGHT(RC[-2],12)+0))-(IF(RC[-5]="""",0,RIGHT(RC[-5],12)+0))<1,"""",""Durée de traitement ""&(IF(RC[-2]="""",0,RIGHT(RC[-2],12)+0))-(IF(RC[-5]="""",0,RIGHT(RC[-5],12)+0))&"" Jour(s)"")"
mais celle-ci implique entre autres M2 que tu n’initialises pas; tu auras donc une erreur de résultat.

Je ne vais pas plus loin car il me faudrait tout reconstruire notamment en utilisant la fonction Tableau
comme je te l'avais déjà suggéré.
 
Re : remplissage de TextBOx1 si TextBOX2 non vide

Re
grazie SI
tu m'as donné une belle proposition, maintenant est ce que il y a une possibilité d'afficher le résultat dans le TextBox10 une fois la date est saisiée dans le TextBox7 avant de fermer le USF (UserForm4_FSEx_MAJ)??
grazie grazie
 
- 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
19
Affichages
1 K
Réponses
144
Affichages
17 K
X
  • Question Question
Réponses
0
Affichages
809
xavier
X
Retour