XL 2016 cellule via textbox et textbox vers cellule

MASSJIPE

XLDnaute Impliqué
Bonjour
Comment on fait on pour récupérer la cellule A1 vers une textbox c'est juste pour récupère l'info de A1
Merci
 

Pièces jointes

  • test.xlsm
    19.8 KB · Affichages: 33

JM27

XLDnaute Barbatruc
bonsoir
dans control source de la text box Feuil1!A1
la textbox sera liée à A1 , mais A1 sera liée aussi à la textbox
Ou alors
dans l'ininitialyse de l'usf
Me.textBox1 =sheets("Feuil1").range ("A1")
 

Pièces jointes

  • test (1).xlsm
    19.6 KB · Affichages: 33

MASSJIPE

XLDnaute Impliqué
Bonjour
Comment mettre le format nombre dans les textbox
ex le DPU Off le nb est 7,96139927623643E-02 doit être 0,0796139927623643 mais dans la cellule il est arrondie 0,1
Et dans NSTR 3,16455696202532E-03 la cellule excel est 0,3%
 

Pièces jointes

  • Sans titre.png
    Sans titre.png
    37.2 KB · Affichages: 29

JM27

XLDnaute Barbatruc
bonjour
pour avoir 0,1

Me.TextBox2 = Sheets("STR DPT").Range("E7").Text

ou pour avoir la valeur

Me.TextBox2 = Format(Sheets("STR DPT").Range("E7"), "0.000000000000000000")

a toi d'adapter le nb de 0
 
Dernière édition:

MASSJIPE

XLDnaute Impliqué
Bonjour le forum
Je cherche à transférer le contenu des textbox1 2 3 4 vers les cellules B8 B15 B24 B27 onglet A Le lendemain en C8 C15 C24 C27 et cela tout les jours sachant que les données sont importé via Business Object
merci
 

Pièces jointes

  • test.xlsm
    19.8 KB · Affichages: 27

laetitia90

XLDnaute Barbatruc
bonjour tous :):):)
brut comme cela
VB:
Private Sub CommandButton2_Click()
  col = Cells(8, Columns.Count).End(xlToLeft).Column + 1
With Feuil1
   Cells(8, col) = TextBox1.Value
   Cells(15, col) = TextBox2.Value
   Cells(24, col) = TextBox3.Value
   Cells(27, col) = TextBox4.Value
End With
End Sub
 

Discussions similaires

Réponses
2
Affichages
179