Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Extraire dans un textbox

Extraire dans un textbox

2 réponses
Avatar
Alain
Bonsoir,
j'essaie d'adapter en vain cette proc, il s'agit d'extraire d'un textbox des
éléments afin de les envoyer dans 3 autres textbox.
ex :
J'ai dans une cellule des éléments séparées par un / ex :
98 = 27,27 / 99 = 33,56 / 01 = 36,67
Merci beaucoup
Alain



Sub Extraire1()
Dim I As Integer
Dim J As Integer

I = InStr(Frm_table.TextBox11.Value, "/")
J = InStrRev(Frm_table.TextBox11.Value, "/")
TextBox1 = Trim(Left(Frm_table.TextBox11.Value, I - 1))
TextBox2 = Trim(Mid(Frm_table.TextBox11.Value, I + 1, J - (I + 1)))
TextBox3 = Trim(Right(Frm_table.TextBox11.Value, Len(ActiveCell.Value) - J))

End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
J-Dan
bonjour Alain,

essaie ceci :

txt = TextBox11
slash1 = InStr(1, txt, "/", 1)
slash2 = InStr(slash1 + 1, txt, "/", 1)
TextBox1 = Trim(Mid(txt, 1, slash1 - 1))
TextBox2 = Trim(Mid(txt, slash1 + 1, slash2 - slash1 - 1))
TextBox3 = Trim(Mid(txt, slash2 + 1, Len(txt) - slash2))

Est-ce que ca donne les resultats que tu attendais ?

J-Dan

-----Message d'origine-----
Bonsoir,
j'essaie d'adapter en vain cette proc, il s'agit
d'extraire d'un textbox des

éléments afin de les envoyer dans 3 autres textbox.
ex :
J'ai dans une cellule des éléments séparées par un / ex :
98 = 27,27 / 99 = 33,56 / 01 = 36,67
Merci beaucoup
Alain



Sub Extraire1()
Dim I As Integer
Dim J As Integer

I = InStr(Frm_table.TextBox11.Value, "/")
J = InStrRev(Frm_table.TextBox11.Value, "/")
TextBox1 = Trim(Left(Frm_table.TextBox11.Value, I - 1))
TextBox2 = Trim(Mid(Frm_table.TextBox11.Value, I + 1, J -
(I + 1)))

TextBox3 = Trim(Right(Frm_table.TextBox11.Value, Len
(ActiveCell.Value) - J))


End Sub


.



Avatar
Alain
Merci beaucoup J-Dan, c'est parfait, cela fonctionne très bien
Alain

"J-Dan" a écrit dans le message de
news:78c801c4769e$6fa0dc60$
bonjour Alain,

essaie ceci :

txt = TextBox11
slash1 = InStr(1, txt, "/", 1)
slash2 = InStr(slash1 + 1, txt, "/", 1)
TextBox1 = Trim(Mid(txt, 1, slash1 - 1))
TextBox2 = Trim(Mid(txt, slash1 + 1, slash2 - slash1 - 1))
TextBox3 = Trim(Mid(txt, slash2 + 1, Len(txt) - slash2))

Est-ce que ca donne les resultats que tu attendais ?

J-Dan

-----Message d'origine-----
Bonsoir,
j'essaie d'adapter en vain cette proc, il s'agit
d'extraire d'un textbox des

éléments afin de les envoyer dans 3 autres textbox.
ex :
J'ai dans une cellule des éléments séparées par un / ex :
98 = 27,27 / 99 = 33,56 / 01 = 36,67
Merci beaucoup
Alain



Sub Extraire1()
Dim I As Integer
Dim J As Integer

I = InStr(Frm_table.TextBox11.Value, "/")
J = InStrRev(Frm_table.TextBox11.Value, "/")
TextBox1 = Trim(Left(Frm_table.TextBox11.Value, I - 1))
TextBox2 = Trim(Mid(Frm_table.TextBox11.Value, I + 1, J -
(I + 1)))

TextBox3 = Trim(Right(Frm_table.TextBox11.Value, Len
(ActiveCell.Value) - J))


End Sub


.