Bonjour,
j'essaie du Textbox2 de redonner le Focus au TexBox1.
Voila ce que j'ai fait :
Private Sub TextBox2_Enter()
[A120] =
"=MID(CELL(""filename"",A120),FIND(""]"",CELL(""filename"",A120))+1,32) &""
""&""2003"""
[B120] = "=VALUE(A120)"
[B120].NumberFormat = "dd/mm/YYYY"
[B120] = [B120].Value
[A120].Clear
Jour = [B120]
While Month(Jour + 1) = Month([B120])
Jour = Jour + 1
Cells(Day(Jour) + 119, 2) = Jour
Wend
Dim dat As Date, Arr
dat = [A115].Value2
Arr = [B120:B151].Value2
pos = Application.Match(CLng(dat), Arr, 0)
If Not IsError(pos) Then
Range("A" & pos).Activate
Else
MsgBox "Votre saisie ne correspont pas au mois de cette Feuille"
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
End If
End Sub
Mais cela ne fonctionne pas, en cas d'erreur, je voudrais que le focus
revienne sur le TexBox1.
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
Michel HOLDERITH
Salut, Un petit test rapide : Private Sub TextBox2_Enter() If UserForm1.TextBox1.Value = "123" Then UserForm1.TextBox1.Value = "" UserForm1.TextBox1.SetFocus Else End If End Sub
si textbox1 = "123" alors la valeur = "" et le focus se met dessus. a modifier avec tes calcules... @+ Michel.
"Dom" wrote in message news:
Bonjour, j'essaie du Textbox2 de redonner le Focus au TexBox1. Voila ce que j'ai fait :
Private Sub TextBox2_Enter() [A120] > "=MID(CELL(""filename"",A120),FIND(""]"",CELL(""filename"",A120))+1,32) &""
""&""2003""" [B120] = "=VALUE(A120)" [B120].NumberFormat = "dd/mm/YYYY" [B120] = [B120].Value [A120].Clear Jour = [B120] While Month(Jour + 1) = Month([B120]) Jour = Jour + 1 Cells(Day(Jour) + 119, 2) = Jour Wend Dim dat As Date, Arr dat = [A115].Value2 Arr = [B120:B151].Value2 pos = Application.Match(CLng(dat), Arr, 0) If Not IsError(pos) Then Range("A" & pos).Activate Else MsgBox "Votre saisie ne correspont pas au mois de cette Feuille" TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1) End If End Sub
Mais cela ne fonctionne pas, en cas d'erreur, je voudrais que le focus revienne sur le TexBox1.
Merci
Dom
Salut,
Un petit test rapide :
Private Sub TextBox2_Enter()
If UserForm1.TextBox1.Value = "123" Then
UserForm1.TextBox1.Value = ""
UserForm1.TextBox1.SetFocus
Else
End If
End Sub
si textbox1 = "123" alors la valeur = "" et le focus se met dessus.
a modifier avec tes calcules...
@+
Michel.
"Dom" <domy.v@wanadoo.fr> wrote in message
news:uusEuP4nDHA.2848@TK2MSFTNGP10.phx.gbl...
Bonjour,
j'essaie du Textbox2 de redonner le Focus au TexBox1.
Voila ce que j'ai fait :
Private Sub TextBox2_Enter()
[A120] > "=MID(CELL(""filename"",A120),FIND(""]"",CELL(""filename"",A120))+1,32)
&""
""&""2003"""
[B120] = "=VALUE(A120)"
[B120].NumberFormat = "dd/mm/YYYY"
[B120] = [B120].Value
[A120].Clear
Jour = [B120]
While Month(Jour + 1) = Month([B120])
Jour = Jour + 1
Cells(Day(Jour) + 119, 2) = Jour
Wend
Dim dat As Date, Arr
dat = [A115].Value2
Arr = [B120:B151].Value2
pos = Application.Match(CLng(dat), Arr, 0)
If Not IsError(pos) Then
Range("A" & pos).Activate
Else
MsgBox "Votre saisie ne correspont pas au mois de cette Feuille"
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
End If
End Sub
Mais cela ne fonctionne pas, en cas d'erreur, je voudrais que le focus
revienne sur le TexBox1.
Salut, Un petit test rapide : Private Sub TextBox2_Enter() If UserForm1.TextBox1.Value = "123" Then UserForm1.TextBox1.Value = "" UserForm1.TextBox1.SetFocus Else End If End Sub
si textbox1 = "123" alors la valeur = "" et le focus se met dessus. a modifier avec tes calcules... @+ Michel.
"Dom" wrote in message news:
Bonjour, j'essaie du Textbox2 de redonner le Focus au TexBox1. Voila ce que j'ai fait :
Private Sub TextBox2_Enter() [A120] > "=MID(CELL(""filename"",A120),FIND(""]"",CELL(""filename"",A120))+1,32) &""
""&""2003""" [B120] = "=VALUE(A120)" [B120].NumberFormat = "dd/mm/YYYY" [B120] = [B120].Value [A120].Clear Jour = [B120] While Month(Jour + 1) = Month([B120]) Jour = Jour + 1 Cells(Day(Jour) + 119, 2) = Jour Wend Dim dat As Date, Arr dat = [A115].Value2 Arr = [B120:B151].Value2 pos = Application.Match(CLng(dat), Arr, 0) If Not IsError(pos) Then Range("A" & pos).Activate Else MsgBox "Votre saisie ne correspont pas au mois de cette Feuille" TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1) End If End Sub
Mais cela ne fonctionne pas, en cas d'erreur, je voudrais que le focus revienne sur le TexBox1.
Merci
Dom
Dom
Merci apres Modif, cela fonctionne bien.
Dom
"Michel HOLDERITH" a écrit dans le message de news:%23GTtn$
Salut, Un petit test rapide : Private Sub TextBox2_Enter() If UserForm1.TextBox1.Value = "123" Then UserForm1.TextBox1.Value = "" UserForm1.TextBox1.SetFocus Else End If End Sub
si textbox1 = "123" alors la valeur = "" et le focus se met dessus. a modifier avec tes calcules... @+ Michel.
"Dom" wrote in message news:
Bonjour, j'essaie du Textbox2 de redonner le Focus au TexBox1. Voila ce que j'ai fait :
Private Sub TextBox2_Enter() [A120] > > "=MID(CELL(""filename"",A120),FIND(""]"",CELL(""filename"",A120))+1,32) &""
""&""2003""" [B120] = "=VALUE(A120)" [B120].NumberFormat = "dd/mm/YYYY" [B120] = [B120].Value [A120].Clear Jour = [B120] While Month(Jour + 1) = Month([B120]) Jour = Jour + 1 Cells(Day(Jour) + 119, 2) = Jour Wend Dim dat As Date, Arr dat = [A115].Value2 Arr = [B120:B151].Value2 pos = Application.Match(CLng(dat), Arr, 0) If Not IsError(pos) Then Range("A" & pos).Activate Else MsgBox "Votre saisie ne correspont pas au mois de cette Feuille" TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1) End If End Sub
Mais cela ne fonctionne pas, en cas d'erreur, je voudrais que le focus revienne sur le TexBox1.
Merci
Dom
Merci apres Modif, cela fonctionne bien.
Dom
"Michel HOLDERITH" <yojo_yojo@pt.lu> a écrit dans le message de
news:%23GTtn$4nDHA.2536@tk2msftngp13.phx.gbl...
Salut,
Un petit test rapide :
Private Sub TextBox2_Enter()
If UserForm1.TextBox1.Value = "123" Then
UserForm1.TextBox1.Value = ""
UserForm1.TextBox1.SetFocus
Else
End If
End Sub
si textbox1 = "123" alors la valeur = "" et le focus se met dessus.
a modifier avec tes calcules...
@+
Michel.
"Dom" <domy.v@wanadoo.fr> wrote in message
news:uusEuP4nDHA.2848@TK2MSFTNGP10.phx.gbl...
Bonjour,
j'essaie du Textbox2 de redonner le Focus au TexBox1.
Voila ce que j'ai fait :
Private Sub TextBox2_Enter()
[A120] > > "=MID(CELL(""filename"",A120),FIND(""]"",CELL(""filename"",A120))+1,32)
&""
""&""2003"""
[B120] = "=VALUE(A120)"
[B120].NumberFormat = "dd/mm/YYYY"
[B120] = [B120].Value
[A120].Clear
Jour = [B120]
While Month(Jour + 1) = Month([B120])
Jour = Jour + 1
Cells(Day(Jour) + 119, 2) = Jour
Wend
Dim dat As Date, Arr
dat = [A115].Value2
Arr = [B120:B151].Value2
pos = Application.Match(CLng(dat), Arr, 0)
If Not IsError(pos) Then
Range("A" & pos).Activate
Else
MsgBox "Votre saisie ne correspont pas au mois de cette Feuille"
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
End If
End Sub
Mais cela ne fonctionne pas, en cas d'erreur, je voudrais que le focus
revienne sur le TexBox1.
"Michel HOLDERITH" a écrit dans le message de news:%23GTtn$
Salut, Un petit test rapide : Private Sub TextBox2_Enter() If UserForm1.TextBox1.Value = "123" Then UserForm1.TextBox1.Value = "" UserForm1.TextBox1.SetFocus Else End If End Sub
si textbox1 = "123" alors la valeur = "" et le focus se met dessus. a modifier avec tes calcules... @+ Michel.
"Dom" wrote in message news:
Bonjour, j'essaie du Textbox2 de redonner le Focus au TexBox1. Voila ce que j'ai fait :
Private Sub TextBox2_Enter() [A120] > > "=MID(CELL(""filename"",A120),FIND(""]"",CELL(""filename"",A120))+1,32) &""
""&""2003""" [B120] = "=VALUE(A120)" [B120].NumberFormat = "dd/mm/YYYY" [B120] = [B120].Value [A120].Clear Jour = [B120] While Month(Jour + 1) = Month([B120]) Jour = Jour + 1 Cells(Day(Jour) + 119, 2) = Jour Wend Dim dat As Date, Arr dat = [A115].Value2 Arr = [B120:B151].Value2 pos = Application.Match(CLng(dat), Arr, 0) If Not IsError(pos) Then Range("A" & pos).Activate Else MsgBox "Votre saisie ne correspont pas au mois de cette Feuille" TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1) End If End Sub
Mais cela ne fonctionne pas, en cas d'erreur, je voudrais que le focus revienne sur le TexBox1.
