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
Starwing
Bonsoir,
Voici un exemple de Denis Michon. Cela pourrait peut-être te servir:
Pour chacun de tes textbox, ceci en modifiant le nom du textbox dans la ligne de code. '-------------------- Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = SortirTextbox(TextBox1)
End Sub '--------------------
Dans un module Standard : Une petite fonction quant au nombre de caractères que contient le textbox.
'------------------------ Function SortirTextbox(LeTxtBox As MSForms.TextBox) As Boolean
If Len(LeTxtBox) > 2 Then MsgBox "Problème : plus de 2 caractères" SortirTextbox = True Else SortirTextbox = False End If
End Function '------------------------
Starwing
-----Message d'origine----- Bosoir,
J'ai 70 textbox sur un usf. J'aimerai que sur l'evenment textbox (1 to
n )_exit ils aient tous le même comportement. Comment dois -je m'y prendre?
Merci
Choko
.
Bonsoir,
Voici un exemple de Denis Michon.
Cela pourrait peut-être te servir:
Pour chacun de tes textbox, ceci en modifiant le nom du
textbox dans
la ligne de code.
'--------------------
Private Sub TextBox1_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
Cancel = SortirTextbox(TextBox1)
End Sub
'--------------------
Dans un module Standard : Une petite fonction quant au
nombre de
caractères que contient le textbox.
'------------------------
Function SortirTextbox(LeTxtBox As MSForms.TextBox) As
Boolean
If Len(LeTxtBox) > 2 Then
MsgBox "Problème : plus de 2 caractères"
SortirTextbox = True
Else
SortirTextbox = False
End If
End Function
'------------------------
Starwing
-----Message d'origine-----
Bosoir,
J'ai 70 textbox sur un usf. J'aimerai que sur l'evenment
textbox (1 to
n )_exit ils aient tous le même comportement.
Comment dois -je m'y prendre?
Voici un exemple de Denis Michon. Cela pourrait peut-être te servir:
Pour chacun de tes textbox, ceci en modifiant le nom du textbox dans la ligne de code. '-------------------- Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = SortirTextbox(TextBox1)
End Sub '--------------------
Dans un module Standard : Une petite fonction quant au nombre de caractères que contient le textbox.
'------------------------ Function SortirTextbox(LeTxtBox As MSForms.TextBox) As Boolean
If Len(LeTxtBox) > 2 Then MsgBox "Problème : plus de 2 caractères" SortirTextbox = True Else SortirTextbox = False End If
End Function '------------------------
Starwing
-----Message d'origine----- Bosoir,
J'ai 70 textbox sur un usf. J'aimerai que sur l'evenment textbox (1 to
n )_exit ils aient tous le même comportement. Comment dois -je m'y prendre?
Merci
Choko
.
Choko
Merci mais je pensais plus à un module de classe pour m'eviter de le taper le meme code pour chacun.
"Starwing" a écrit dans le message de news: 02a901c4ff62$afe317f0$ Bonsoir,
Voici un exemple de Denis Michon. Cela pourrait peut-être te servir:
Pour chacun de tes textbox, ceci en modifiant le nom du textbox dans la ligne de code. '-------------------- Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = SortirTextbox(TextBox1)
End Sub '--------------------
Dans un module Standard : Une petite fonction quant au nombre de caractères que contient le textbox.
'------------------------ Function SortirTextbox(LeTxtBox As MSForms.TextBox) As Boolean
If Len(LeTxtBox) > 2 Then MsgBox "Problème : plus de 2 caractères" SortirTextbox = True Else SortirTextbox = False End If
End Function '------------------------
Starwing
-----Message d'origine----- Bosoir,
J'ai 70 textbox sur un usf. J'aimerai que sur l'evenment textbox (1 to
n )_exit ils aient tous le même comportement. Comment dois -je m'y prendre?
Merci
Choko
.
Merci mais je pensais plus à un module de classe pour m'eviter de le taper
le meme code pour chacun.
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
02a901c4ff62$afe317f0$a501280a@phx.gbl...
Bonsoir,
Voici un exemple de Denis Michon.
Cela pourrait peut-être te servir:
Pour chacun de tes textbox, ceci en modifiant le nom du
textbox dans
la ligne de code.
'--------------------
Private Sub TextBox1_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
Cancel = SortirTextbox(TextBox1)
End Sub
'--------------------
Dans un module Standard : Une petite fonction quant au
nombre de
caractères que contient le textbox.
'------------------------
Function SortirTextbox(LeTxtBox As MSForms.TextBox) As
Boolean
If Len(LeTxtBox) > 2 Then
MsgBox "Problème : plus de 2 caractères"
SortirTextbox = True
Else
SortirTextbox = False
End If
End Function
'------------------------
Starwing
-----Message d'origine-----
Bosoir,
J'ai 70 textbox sur un usf. J'aimerai que sur l'evenment
textbox (1 to
n )_exit ils aient tous le même comportement.
Comment dois -je m'y prendre?
Merci mais je pensais plus à un module de classe pour m'eviter de le taper le meme code pour chacun.
"Starwing" a écrit dans le message de news: 02a901c4ff62$afe317f0$ Bonsoir,
Voici un exemple de Denis Michon. Cela pourrait peut-être te servir:
Pour chacun de tes textbox, ceci en modifiant le nom du textbox dans la ligne de code. '-------------------- Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = SortirTextbox(TextBox1)
End Sub '--------------------
Dans un module Standard : Une petite fonction quant au nombre de caractères que contient le textbox.
'------------------------ Function SortirTextbox(LeTxtBox As MSForms.TextBox) As Boolean
If Len(LeTxtBox) > 2 Then MsgBox "Problème : plus de 2 caractères" SortirTextbox = True Else SortirTextbox = False End If
End Function '------------------------
Starwing
-----Message d'origine----- Bosoir,
J'ai 70 textbox sur un usf. J'aimerai que sur l'evenment textbox (1 to
n )_exit ils aient tous le même comportement. Comment dois -je m'y prendre?
Merci
Choko
.
Starwing
Bonsoir Choko,
Il y a un beau classeur exemple à télécharger dans le site d'excelabo
www.excelabo.net dm-moduleclasse
C'est de Denis Michon
Starwing
-----Message d'origine----- Merci mais je pensais plus à un module de classe pour m'eviter de le taper
le meme code pour chacun.
Bonsoir Choko,
Il y a un beau classeur exemple à télécharger dans le site
d'excelabo
www.excelabo.net
dm-moduleclasse
C'est de Denis Michon
Starwing
-----Message d'origine-----
Merci mais je pensais plus à un module de classe pour
m'eviter de le taper
Il y a un beau classeur exemple à télécharger dans le site d'excelabo
www.excelabo.net dm-moduleclasse
C'est de Denis Michon
Starwing
-----Message d'origine----- Merci mais je pensais plus à un module de classe pour m'eviter de le taper
le meme code pour chacun.
anomymousA
bonjour,
jusqu'à Excel 2002 à tout le moins, il est impossible d'utiliser l'evenement Exit avec un module de classe.
A+
Merci mais je pensais plus à un module de classe pour m'eviter de le taper le meme code pour chacun.
"Starwing" a écrit dans le message de news: 02a901c4ff62$afe317f0$ Bonsoir,
Voici un exemple de Denis Michon. Cela pourrait peut-être te servir:
Pour chacun de tes textbox, ceci en modifiant le nom du textbox dans la ligne de code. '-------------------- Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = SortirTextbox(TextBox1)
End Sub '--------------------
Dans un module Standard : Une petite fonction quant au nombre de caractères que contient le textbox.
'------------------------ Function SortirTextbox(LeTxtBox As MSForms.TextBox) As Boolean
If Len(LeTxtBox) > 2 Then MsgBox "Problème : plus de 2 caractères" SortirTextbox = True Else SortirTextbox = False End If
End Function '------------------------
Starwing
-----Message d'origine----- Bosoir,
J'ai 70 textbox sur un usf. J'aimerai que sur l'evenment textbox (1 to
n )_exit ils aient tous le même comportement. Comment dois -je m'y prendre?
Merci
Choko
.
bonjour,
jusqu'à Excel 2002 à tout le moins, il est impossible d'utiliser l'evenement
Exit avec un module de classe.
A+
Merci mais je pensais plus à un module de classe pour m'eviter de le taper
le meme code pour chacun.
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
02a901c4ff62$afe317f0$a501280a@phx.gbl...
Bonsoir,
Voici un exemple de Denis Michon.
Cela pourrait peut-être te servir:
Pour chacun de tes textbox, ceci en modifiant le nom du
textbox dans
la ligne de code.
'--------------------
Private Sub TextBox1_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
Cancel = SortirTextbox(TextBox1)
End Sub
'--------------------
Dans un module Standard : Une petite fonction quant au
nombre de
caractères que contient le textbox.
'------------------------
Function SortirTextbox(LeTxtBox As MSForms.TextBox) As
Boolean
If Len(LeTxtBox) > 2 Then
MsgBox "Problème : plus de 2 caractères"
SortirTextbox = True
Else
SortirTextbox = False
End If
End Function
'------------------------
Starwing
-----Message d'origine-----
Bosoir,
J'ai 70 textbox sur un usf. J'aimerai que sur l'evenment
textbox (1 to
n )_exit ils aient tous le même comportement.
Comment dois -je m'y prendre?
jusqu'à Excel 2002 à tout le moins, il est impossible d'utiliser l'evenement Exit avec un module de classe.
A+
Merci mais je pensais plus à un module de classe pour m'eviter de le taper le meme code pour chacun.
"Starwing" a écrit dans le message de news: 02a901c4ff62$afe317f0$ Bonsoir,
Voici un exemple de Denis Michon. Cela pourrait peut-être te servir:
Pour chacun de tes textbox, ceci en modifiant le nom du textbox dans la ligne de code. '-------------------- Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = SortirTextbox(TextBox1)
End Sub '--------------------
Dans un module Standard : Une petite fonction quant au nombre de caractères que contient le textbox.
'------------------------ Function SortirTextbox(LeTxtBox As MSForms.TextBox) As Boolean
If Len(LeTxtBox) > 2 Then MsgBox "Problème : plus de 2 caractères" SortirTextbox = True Else SortirTextbox = False End If
End Function '------------------------
Starwing
-----Message d'origine----- Bosoir,
J'ai 70 textbox sur un usf. J'aimerai que sur l'evenment textbox (1 to
n )_exit ils aient tous le même comportement. Comment dois -je m'y prendre?
