Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418d0b79$0$18898$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" a écrit dans le message de news:Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OTThqsCxEHA.2600@TK2MSFTNGP09.phx.gbl...
Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418d0b79$0$18898$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" a écrit dans le message de news:Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418d0b79$0$18898$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" a écrit dans le message de news:Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OTThqsCxEHA.2600@TK2MSFTNGP09.phx.gbl...
Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418d0b79$0$18898$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" a écrit dans le message de news:Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Frédéric,
Cette syntaxe est inopérante !
S=usfIns.ActiveControl.ActiveControl.Name
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news:
Bonjour Michel,Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" a écrit dans le message de news:Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Frédéric,
Cette syntaxe est inopérante !
S=usfIns.ActiveControl.ActiveControl.Name
Salutations!
"Frédéric Sigonneau" <frederic.sigonneau@phri.fr> a écrit dans le message de news:
eRtGbxLxEHA.2012@TK2MSFTNGP15.phx.gbl...
Bonjour Michel,
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OTThqsCxEHA.2600@TK2MSFTNGP09.phx.gbl...
Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418d0b79$0$18898$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Frédéric,
Cette syntaxe est inopérante !
S=usfIns.ActiveControl.ActiveControl.Name
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news:
Bonjour Michel,Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" a écrit dans le message de news:Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Frédéric,
Cette syntaxe est inopérante !
S=usfIns.ActiveControl.ActiveControl.Name
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news:
Bonjour Michel,Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" a écrit dans le message de news:Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Frédéric,
Cette syntaxe est inopérante !
S=usfIns.ActiveControl.ActiveControl.Name
Salutations!
"Frédéric Sigonneau" <frederic.sigonneau@phri.fr> a écrit dans le message de news:
eRtGbxLxEHA.2012@TK2MSFTNGP15.phx.gbl...
Bonjour Michel,
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OTThqsCxEHA.2600@TK2MSFTNGP09.phx.gbl...
Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" <Pehemme@yahoo.com> a écrit dans le message de news:
418d0b79$0$18898$8fcfb975@news.wanadoo.fr...
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Frédéric,
Cette syntaxe est inopérante !
S=usfIns.ActiveControl.ActiveControl.Name
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news:
Bonjour Michel,Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !Bonsoir Denis,
Merci encore à toi de te pencher sur mes états d'âme ;-)))
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox qui
est dans celle-ci.
Si je fais :
S = usfIns.Controls.ActiveControl.Name
MsgBox S
=> cela bogue
:-(((
Bien amicalement
Michel
"michdenis" a écrit dans le message de news:Bonjour Péhemme,
ceci retourne le nom du contrôle qui est actif
Msgbox ActiveControl.Name
Salutations!
"Péhemme" a écrit dans le message de news:
418d0b79$0$18898$
Bonsoir à Toutes et à Tous,
Sur une Usf j'ai plusieurs TextBox permettant de saisir des dates.
Afin d'éviter tout problème de saisie, j'ai actuellement une macro par
TextBox (adaptation du fichier : CalFr2.xls de Iznogood).
Je me demande cependant, s'il n'y aurait pas une possibilité de ne
conserver
qu'une seule macro qui remplisse la TxtBox "appelante", sachant que chaque
TextBox est remplie avec des dates différentes.
J'écris ce qui suit :
Sub DateCalendrier()
Dim UnJour As Date
UnJour = FormCal.Calendrier
'Il y a un Usf calendrier qui fonctionne parfaitement
S = Application.usfIns.Controls
'Où usfIns est le nom de mon Usf
==> je souhaite à ce niveau "récupérer" le nom de la TxtBox appelante
If UnJour <> 0 Then
Application.usfIns.TextBox(S).Value = Format(UnJour, "dd/mm/yyyy")
Else
Application.usfIns.TextBox(S).Value = ""
End If
End Sub
Bien sûr, cela ne fonctionne pas...
Avez-vous une idée pour remettre sur la voie ?
Merci d'avance de votre aide.
Michel (Le seul qui s'accroche)
Bonjour Michel,Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox
qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour Michel,
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox
qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour Michel,Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox
qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour Michel,Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox
qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Bonjour Michel,
Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox
qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
Bonjour Michel,Si je fais :
S = usfIns.ActiveControl.Name
MsgBox S
=> cela me retourne le nom de ma Frame et non pas le nom de la TextBox
qui
est dans celle-ci.
Essaye :
S=usfIns.ActiveControl.ActiveControl.Name
FS
---
