XL 2010 reccupere l'année seulement d'un textbox

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Avril 2017

• #2

Bonjour Kaid, bonjour le forum,

Essaie comme ça :

VB:

Dim A As Integer
 

 
A=CInt(Split(Me.TextBox1.Value,"/")(2))
MsgBox A 'juste pour voir, à supprimer

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 8 Avril 2017

• #3

oui ça marche avec un bouton
mais j'aimerai qu'il me l'affiche dans textbox2

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Avril 2017

• #4

Re,

P... Kaid, réflechit un peu !...

VB:

Me.TextBox2.Value = (Split(Me.TextBox1.Value, "/")(2))

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 8 Avril 2017

• #5

merci
j'ai 4 textbox avec des N° de serie condition avec les 4 premiers chiffres "left" 3101,3102,3103,3104
si textbox1 = 3101000001 alor textbox2 = A
si textbox1 = 3102000009 alor textbox2 = B
si textbox1 = 3103000008 alor textbox2 = C
si textbox1 = 3104000004 alor textbox2 = D

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Avril 2017

• #6

Re,

Tu as écris la condition il ne te restait plus qu'à convertir en langage VBA...

VB:

If Left(Me.TextBox1.Value, 4) = "3101" Then Me.TextBox2.Value = "A"
If Left(Me.TextBox1.Value, 4) = "3102" Then Me.TextBox2.Value = "B"
If Left(Me.TextBox1.Value, 4) = "3103" Then Me.TextBox2.Value = "C"
If Left(Me.TextBox1.Value, 4) = "3104" Then Me.TextBox2.Value = "D"

 

Vote positif 0 Vote négatif

K

kaid

XLDnaute Occasionnel

• 8 Avril 2017

• #7

Merci beaucoup

 

Vote positif 0 Vote négatif