Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou
l'utilisateur saisi une première lettre dans la cellule, lettre qui
serait reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je
coince ....
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
Daniel
Bonjour. Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range) If Asc(UCase(Left(Target.Value, 1))) >= 65 And _ Asc(UCase(Left(Target.Value, 1))) <= 90 Then UserForm1.TextBox1.Value = Left(Target.Value, 1) UserForm1.Show End If End Sub
Cordialement. Daniel "Philippe" a écrit dans le message de news: %
Bonjour à tous,
Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou l'utilisateur saisi une première lettre dans la cellule, lettre qui serait reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je coince ....
Merci de votre aide
Philippe
Bonjour.
Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Asc(UCase(Left(Target.Value, 1))) >= 65 And _
Asc(UCase(Left(Target.Value, 1))) <= 90 Then
UserForm1.TextBox1.Value = Left(Target.Value, 1)
UserForm1.Show
End If
End Sub
Cordialement.
Daniel
"Philippe" <trash.berard@neuf.fr> a écrit dans le message de news:
%234UYTozRGHA.5500@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou
l'utilisateur saisi une première lettre dans la cellule, lettre qui serait
reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je
coince ....
Private Sub Worksheet_Change(ByVal Target As Range) If Asc(UCase(Left(Target.Value, 1))) >= 65 And _ Asc(UCase(Left(Target.Value, 1))) <= 90 Then UserForm1.TextBox1.Value = Left(Target.Value, 1) UserForm1.Show End If End Sub
Cordialement. Daniel "Philippe" a écrit dans le message de news: %
Bonjour à tous,
Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou l'utilisateur saisi une première lettre dans la cellule, lettre qui serait reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je coince ....
Merci de votre aide
Philippe
Philippe
Merci Daniel pour votre aide,
Mais malheureusement il semble que dans ce cas il faille d'abord valider avant de voir apparaître le formulaire.
Pour ma part, je souhaiterais qu'il apparaisse dès avoir appuyer sur touche ?
Mais peut-être n'est-ce pas possible ?
Philippe
Bonjour. Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range) If Asc(UCase(Left(Target.Value, 1))) >= 65 And _ Asc(UCase(Left(Target.Value, 1))) <= 90 Then UserForm1.TextBox1.Value = Left(Target.Value, 1) UserForm1.Show End If End Sub
Cordialement. Daniel "Philippe" a écrit dans le message de news: %
Bonjour à tous,
Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou l'utilisateur saisi une première lettre dans la cellule, lettre qui serait reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je coince ....
Merci de votre aide
Philippe
Merci Daniel pour votre aide,
Mais malheureusement il semble que dans ce cas il faille d'abord valider
avant de voir apparaître le formulaire.
Pour ma part, je souhaiterais qu'il apparaisse dès avoir appuyer sur
touche ?
Mais peut-être n'est-ce pas possible ?
Philippe
Bonjour.
Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Asc(UCase(Left(Target.Value, 1))) >= 65 And _
Asc(UCase(Left(Target.Value, 1))) <= 90 Then
UserForm1.TextBox1.Value = Left(Target.Value, 1)
UserForm1.Show
End If
End Sub
Cordialement.
Daniel
"Philippe" <trash.berard@neuf.fr> a écrit dans le message de news:
%234UYTozRGHA.5500@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou
l'utilisateur saisi une première lettre dans la cellule, lettre qui serait
reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je
coince ....
Mais malheureusement il semble que dans ce cas il faille d'abord valider avant de voir apparaître le formulaire.
Pour ma part, je souhaiterais qu'il apparaisse dès avoir appuyer sur touche ?
Mais peut-être n'est-ce pas possible ?
Philippe
Bonjour. Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range) If Asc(UCase(Left(Target.Value, 1))) >= 65 And _ Asc(UCase(Left(Target.Value, 1))) <= 90 Then UserForm1.TextBox1.Value = Left(Target.Value, 1) UserForm1.Show End If End Sub
Cordialement. Daniel "Philippe" a écrit dans le message de news: %
Bonjour à tous,
Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou l'utilisateur saisi une première lettre dans la cellule, lettre qui serait reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je coince ....
Merci de votre aide
Philippe
Daniel
Non, il faut valider la saisie. Daniel "Philippe" a écrit dans le message de news:
Merci Daniel pour votre aide,
Mais malheureusement il semble que dans ce cas il faille d'abord valider avant de voir apparaître le formulaire.
Pour ma part, je souhaiterais qu'il apparaisse dès avoir appuyer sur touche ?
Mais peut-être n'est-ce pas possible ?
Philippe
Bonjour. Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range) If Asc(UCase(Left(Target.Value, 1))) >= 65 And _ Asc(UCase(Left(Target.Value, 1))) <= 90 Then UserForm1.TextBox1.Value = Left(Target.Value, 1) UserForm1.Show End If End Sub
Cordialement. Daniel "Philippe" a écrit dans le message de news: %
Bonjour à tous,
Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou l'utilisateur saisi une première lettre dans la cellule, lettre qui serait reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je coince ....
Merci de votre aide
Philippe
Non, il faut valider la saisie.
Daniel
"Philippe" <trash.berard@neuf.fr> a écrit dans le message de news:
OjBCoc0RGHA.1160@TK2MSFTNGP09.phx.gbl...
Merci Daniel pour votre aide,
Mais malheureusement il semble que dans ce cas il faille d'abord valider
avant de voir apparaître le formulaire.
Pour ma part, je souhaiterais qu'il apparaisse dès avoir appuyer sur
touche ?
Mais peut-être n'est-ce pas possible ?
Philippe
Bonjour.
Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Asc(UCase(Left(Target.Value, 1))) >= 65 And _
Asc(UCase(Left(Target.Value, 1))) <= 90 Then
UserForm1.TextBox1.Value = Left(Target.Value, 1)
UserForm1.Show
End If
End Sub
Cordialement.
Daniel
"Philippe" <trash.berard@neuf.fr> a écrit dans le message de news:
%234UYTozRGHA.5500@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou
l'utilisateur saisi une première lettre dans la cellule, lettre qui
serait reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je
coince ....
Non, il faut valider la saisie. Daniel "Philippe" a écrit dans le message de news:
Merci Daniel pour votre aide,
Mais malheureusement il semble que dans ce cas il faille d'abord valider avant de voir apparaître le formulaire.
Pour ma part, je souhaiterais qu'il apparaisse dès avoir appuyer sur touche ?
Mais peut-être n'est-ce pas possible ?
Philippe
Bonjour. Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range) If Asc(UCase(Left(Target.Value, 1))) >= 65 And _ Asc(UCase(Left(Target.Value, 1))) <= 90 Then UserForm1.TextBox1.Value = Left(Target.Value, 1) UserForm1.Show End If End Sub
Cordialement. Daniel "Philippe" a écrit dans le message de news: %
Bonjour à tous,
Je souhaiterais pouvoir afficher un formulaire uniquement dans le cas ou l'utilisateur saisi une première lettre dans la cellule, lettre qui serait reprise dans une TextBox du dit formulaire.
Est-ce possible sans doute par une macro événementielle ? Mais là je coince ....
