remplissage de TextBOx1 si TextBOX2 non vide

Ilino

XLDnaute Barbatruc

• 25 Septembre 2014

• #2

Re : remplissage de TextBOx si TextBOX non vide

Forum Bonjour
je vous sollicite, merci
GRAZIE

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 25 Septembre 2014

• #3

Re : remplissage de TextBOx si TextBOX non vide

Bonsoir forum
est ce que mon souci est claire
grazie

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 25 Septembre 2014

• #4

Re : remplissage de TextBOx si TextBOX non vide

bonsoir ilino

perso... rien compris ??? mais un fichier exemple plus simple

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 25 Septembre 2014

• #5

Re : remplissage de TextBOx si TextBOX non vide

Re
oky je suis entrain de preparer un fichier exemple;
merci d'avoir répondu
grazie grazie

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 25 Septembre 2014

• #6

Re : remplissage de TextBOx si TextBOX non vide

Bonsoir forum, laetitia
ci joint le fichier exemple
mon souci :

Je souhaite quans je saisi une date dans TextBox7 (colonne M) dans le USF UserForm4_FSEx_MAJ Il s’affiche automatiquement la valeur de la cellule O ( de la feuille FSEx 2014)dans le TextBox10 « durée de traitement est de ;;;; » selon la ligne

Cliquez pour agrandir...

GRAZIE

 

Pièces jointes

• ilino_FSEx 2014 v3.xlsm

  83 KB · Affichages: 70
• ilino_FSEx 2014 v3.xlsm

  83 KB · Affichages: 66
• ilino_FSEx 2014 v3.xlsm

  83 KB · Affichages: 66

Dernière édition: 26 Septembre 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 26 Septembre 2014

• #7

Re : remplissage de TextBOx si TextBOX non vide

Bonjour Forum
qlq un peut m'aider?
grazie

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 26 Septembre 2014

• #8

Re : remplissage de TextBOx si TextBOX non vide

bonjour Ilino

comme je comprends

Code:

Private Sub TextBox7_Change()
  TextBox10 = Feuil1.Cells(ComboBox1.ListIndex + 2, 15)
 'ou
 ' TextBox10 = "durée de traitement est de    " & Feuil1.Cells(ComboBox1.ListIndex + 2, 15)
End Sub

a quel moment tu met quelque chose dans la colonne O ???? manuellement ???

autrement bien"brouillon tout cela" un seul user pourrait être suffisant

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 26 Septembre 2014

• #9

Re : remplissage de TextBOx si TextBOX non vide

ciao laetitia
merci pour la réponse, concernant ta question, la colonne O c'est une formule qui calcul la durée et Le code fonctionne, il m'affiche bien la valeur de la cellule O dans mon textbox. Le problème est qu'une fois l'opération effectuée, le code m’écrase la formule de la cellule O dans le tableau de la feuille "FSEx 2014" ????
je souhaite afficher le résultat de la colonne O dans le TextBox10
grazie
Edit le fichier du post6 est mis a jour parla formule dans la colonne O

 

Dernière édition: 26 Septembre 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 26 Septembre 2014

• #10

Re : remplissage de TextBOx si TextBOX non vide

Forum bonjour
est ce que mon souci est clair, je souhaite votre Aide
grazie

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Septembre 2014

• #11

Re : remplissage de TextBOx si TextBOX non vide

Bonjour Ilino ,

Peut être adapter la dimension du tableau , avec un redim peut être pour ne copier que les colonnes de 1 à 14 ?

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 26 Septembre 2014

• #12

Re : remplissage de TextBOx si TextBOX non vide

Ciao NONO
a quel niveau j'adapte la dim du tableau

Code:

Private Sub UserForm_Initialize()
Dim Plage As Range
  With Worksheets("FSEx 2014")
    Set Site1 = .Range("A2")
    Set Plage = .Range(Site1, .Range("A65536").End(xlUp))
    Set Tableau = Plage.Resize(, 25) '<---------------------- j'adapte le tableau ???
  End With
  ComboBox1.List = Plage.Value
If TextBox7.Value <> "" Then
TextBox10.Value = Feuil1.Cells(ComboBox1.ListIndex + 2, 15)
End If
End Sub

A+

 

Dernière édition: 26 Septembre 2014

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Septembre 2014

• #13

Re : remplissage de TextBOx si TextBOX non vide

Set Tableau = Plage.Resize(, 25) '<---------------------- j'adapter le tableau ???

à modifier en

Set Tableau = Plage.Resize(, 14)

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 26 Septembre 2014

• #14

Re : remplissage de TextBOx si TextBOX non vide

RE
ça n'a pas marché , le TextBox a écrasé la formule
A+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Septembre 2014

• #15

Re : remplissage de TextBOx si TextBOX non vide

Trés curieux ,

ici ça fonctionne trés bien .

pas d'écrasement de formule en colonne O

 

Vote positif 0 Vote négatif