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

[kaid]

Bonjour
j'aimerai reccupere l'année d'un textbox par ex:

quand je saisie une date dans un textbox1= 01/01/20017
textbox2 m'affiche automatiquement 2017

 

[Robert]

Bonjour Kaid, bonjour le forum,

Essaie comme ça :

Dim A As Integer
 

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

 

[kaid]

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

 

[Robert]

Re,

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

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

 

[kaid]

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

 

[Robert]

Re,

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

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"

 

[kaid]

Merci beaucoup