Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

récupérer le contenue d'une Textbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion olhey
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

olhey

XLDnaute Occasionnel
bonjour,

Code: 
Private Sub TextBox1_Change()
Dim rngTrouve As Range
Dim strChaine As String

strChaine = TextBox1.Value
Set rngTrouve = ActiveSheet.Columns(1).Cells.Find(what:=strChaine)

If rngTrouve Is Nothing Then
MsgBox "Pas trouvé"
Else
Cells.Find(what:=strChaine).Activate
End If

Set rngTrouve = Nothing
End Sub

voilà mon code de ma petite fonction de recherche, le problème est que lorsque que j'entre 1 lettre il lance déjà la recherche😕; comment faire pour qu'il attende parexemple que je tape enter, ou que je pèse sur un bouton?

MErci de votre aide!!🙂
 
Trier par date Trier par votes
Re : récupérer le contenue d'une Textbox

Bonjour Olhey

peut être lier ce code à un bouton de validation, dans l'événement "click" de ce dernier... Sinon l'événement "Exit" de ton "textbox"... A voir selon ton projet.

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : récupérer le contenue d'une Textbox

en fait c'est une gestion "d'objet":
première colonne: code; deuxième colonne nom et donc je cherche l'objet avec tel code... je tape mon code... je tape neter(ou bouton) et PIM! j'arrive sur mon objet

EDIT: c'est vrai qu'avec le bouton ça fonctionne impec.Mais est ce qu'on arrive à "activer" le bouton par une touche?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : récupérer le contenue d'une Textbox

Bonjour,
Une solution pour gérer la touche Enter
l'événement keyup du textbox

Code: 
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then '13 est la touche Enter
'ton code
End If
End Sub
 
Vote positif 0 Vote négatif
Re : récupérer le contenue d'une Textbox

Un Tout grand merci quel efficacité, 10 minutes sur le forum et mon problème est réglé! 🙂 youky ta technique marche impec, pierrot l'histoir du bouton ok, mais:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cliquez pour agrandir...
ne fonctionne pas.🙁
 
Vote positif 0 Vote négatif
Re : récupérer le contenue d'une Textbox

voilà le code final:


Code: 
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = &HD Then '&HD est la touche Enter
Dim rngTrouve As Range
Dim strChaine As String

strChaine = TextBox1.Value
Set rngTrouve = ActiveSheet.Columns("A:B").Cells.Find(what:=strChaine)

If rngTrouve Is Nothing Then
MsgBox "L'objet saisi n'a pas été trouvé, vérifiez l'orthographe."
Else
Cells.Find(what:=strChaine).Activate
End If

Set rngTrouve = Nothing
End If
End Sub

maintenat encore un petit complément d'information, comment faire si jai deux textbox et que je veux pas avoir 2 fois le code?
 
Vote positif 0 Vote négatif
Re : récupérer le contenue d'une Textbox

Re,

essaye ainsi :

Code: 
Option Explicit
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = &HD Then '&HD est la touche Enter
    mamacro TextBox1.Value
End If
End Sub
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = &HD Then '&HD est la touche Enter
    mamacro TextBox2.Value
End If
End Sub
Sub mamacro(MaChaine As String)
Dim rngTrouve As Range
Set rngTrouve = ActiveSheet.Columns("A:B").Cells.Find(what:=MaChaine)
If rngTrouve Is Nothing Then
    MsgBox "L'objet saisi n'a pas été trouvé, vérifiez l'orthographe."
Else
    rngTrouve.Activate
End If
Set rngTrouve = Nothing
End Sub
 
Vote positif 0 Vote négatif
Re : récupérer le contenue d'une Textbox

Re,

Code: 
Option Explicit
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = &HD Then '&HD est la touche Enter
    mamacro TextBox1.Value, "A:A"
End If
End Sub
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = &HD Then '&HD est la touche Enter
    mamacro TextBox2.Value, "B:B"
End If
End Sub
Sub mamacro(MaChaine As String, col As String)
Dim rngTrouve As Range
Set rngTrouve = ActiveSheet.Columns(col).Cells.Find(what:=MaChaine)
If rngTrouve Is Nothing Then
    MsgBox "L'objet saisi n'a pas été trouvé, vérifiez l'orthographe."
Else
    rngTrouve.Activate
End If
Set rngTrouve = Nothing
End Sub
 
Vote positif 0 Vote négatif
Re : récupérer le contenue d'une Textbox

MERci,

en fait l'ordre de:
Code: 
mamacro [COLOR="Red"]TextBox1.Value, "A:A"[/COLOR]
correspond à l'ordre de:
Code: 
Sub mamacro([COLOR="red"]MaChaine As String, col As String[/COLOR])
??

Je suis en pleine phase d'apprentissage un rien m'exite 😀
 
Vote positif 0 Vote négatif
Re : récupérer le contenue d'une Textbox

Re

exact, mais pour ton cas, il serait préférable d'utiliser l'événement "KeyDown" plutôt que "KeyUp" car je suppose que l'activation de la touche "ENTER" te fait passer au contrôle suivant....
 
Vote positif 0 Vote négatif
Re : récupérer le contenue d'une Textbox

est ce que c'est possible de modifier la fonction de recherche pour que lorsque je tape par exemple: "po456" la fonction est capable de me rediriger vers "po566bh", ou que lorsque je tape "nyon" il soit capable de me rediriger vers le "pont de nyon"?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
407
Hecatonchire
H
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
250
pascal21
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
342
PRy
P
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
304
Francky79
F
S
  • Question Question
XL 2016 Pilotage TCD via Textbox dynamique
2
Réponses
22
Affichages
1 K
goube
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
491
Anthony_51
A
E
  • Résolu(e)
XL 2019 chercher une date dans une colonne vba
Réponses
12
Affichages
903
sylvanu
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
856
Lu76Fer
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
795
sylvanu
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
784
vgendron
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
313
sylvanu
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
684
sylvanu
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
883
NONO14
N
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
EXCEL : MakeDirP :: Le mkdir -p de linux reconduit en VBA pour la création d'une arborescence de dossier et sous-dossiers
Réponses
4
Affichages
622
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…