XL 2016 cellule via textbox et textbox vers cellule

J

JM27

XLDnaute Barbatruc

• 1 Octobre 2017

• #2

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

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 2 Octobre 2017

• #3

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

  37.2 KB · Affichages: 33

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 2 Octobre 2017

• #4

Le fichier est une extraction de business objects

 

Pièces jointes

• TdB_CAP_V7.xlsm

  44.5 KB · Affichages: 36

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 2 Octobre 2017

• #5

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: 2 Octobre 2017

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 7 Octobre 2017

• #6

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

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 7 Octobre 2017

• #7

bonjour
J'ai l'impression d'être transparent.
Est ce que mes réponses répondent à tes posts #1 et # 3😵

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 7 Octobre 2017

• #8

Bonjour
oui la je cherche a transférer de colonne à colonne

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 7 Octobre 2017

• #9

Re
désolé c'était pas le bon fichier

 

Pièces jointes

• test (1).xlsm

  24.5 KB · Affichages: 28

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 7 Octobre 2017

• #10

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 7 Octobre 2017

• #11

Bonjour
j'ai cette erreur
Merci

 

Pièces jointes

• Sans titre.png

  67.5 KB · Affichages: 39

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 7 Octobre 2017

• #12

re tous 🙂🙂🙂
normal oublie declare🙁 de plus tu as option explicit debut module declar..obigatoire

dim col as long ......apres option explicit ou dans code commandbutton au debut du code

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 7 Octobre 2017

• #13

Re
Je ne sais pas

 

Pièces jointes

• test (1).xlsm

  24 KB · Affichages: 27

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 7 Octobre 2017

• #14

re,
j'avais oublie les points egalement j'aurais du tester🙁
ton fichier en retour

 

Pièces jointes

• test (1) (1).xlsm

  23.2 KB · Affichages: 38

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 7 Octobre 2017

• #15

Re
Merci je reviendrais plus tard dans le semaine pour autre chose
encore merci un bon WE

 

Vote positif 0 Vote négatif