Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Userform TextBox et recherche

Userform TextBox et recherche

13 réponses
Avatar
JacquesH
Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique
sur un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le
curseur se positionne sur la valeur que j'ai saisie (plutôt dans la
cellule de droite contigüe).

Merci de votre aide.

Jacques
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
papou
Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le message de
news: u8bzN$
Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique sur
un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le curseur
se positionne sur la valeur que j'ai saisie (plutôt dans la cellule de
droite contigüe).

Merci de votre aide.

Jacques



Avatar
JacquesH
Bonjour et merci pour ton aide,

Je viens d'essayer, mais j'ai la msgbox "No match found".

Que faut-il adapter exactement ? J'ai modifié la plage ("A1:A100").
J'ai essayé de changé TxtSearch.value par TxtBox1.value (nom de la
TxtBox dans laquelle j'ai inscrit le nombre à rechercher.

Rien n'y fait.

Jacques

Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le message de
news: u8bzN$

Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique sur
un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le curseur
se positionne sur la valeur que j'ai saisie (plutôt dans la cellule de
droite contigüe).

Merci de votre aide.

Jacques







Avatar
papou
Re
Le + simple, place ton fichier ici :
http://cjoint.com/
Je regarderai

Cordialement
Pascal

"JacquesH" a écrit dans le message de
news:
Bonjour et merci pour ton aide,

Je viens d'essayer, mais j'ai la msgbox "No match found".

Que faut-il adapter exactement ? J'ai modifié la plage ("A1:A100"). J'ai
essayé de changé TxtSearch.value par TxtBox1.value (nom de la TxtBox dans
laquelle j'ai inscrit le nombre à rechercher.

Rien n'y fait.

Jacques

Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le message
de news: u8bzN$

Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique sur
un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le curseur
se positionne sur la valeur que j'ai saisie (plutôt dans la cellule de
droite contigüe).

Merci de votre aide.

Jacques








Avatar
JacquesH
Voici le lien sur cjoint :

http://cjoint.com/?elqN6kopTV

Attention, il faut faire F1 pour faire apparaître la Userform.

Merci - Jacques



Re
Le + simple, place ton fichier ici :
http://cjoint.com/
Je regarderai

Cordialement
Pascal

"JacquesH" a écrit dans le message de
news:

Bonjour et merci pour ton aide,

Je viens d'essayer, mais j'ai la msgbox "No match found".

Que faut-il adapter exactement ? J'ai modifié la plage ("A1:A100"). J'ai
essayé de changé TxtSearch.value par TxtBox1.value (nom de la TxtBox dans
laquelle j'ai inscrit le nombre à rechercher.

Rien n'y fait.

Jacques


Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le message
de news: u8bzN$


Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique sur
un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le curseur
se positionne sur la valeur que j'ai saisie (plutôt dans la cellule de
droite contigüe).

Merci de votre aide.

Jacques











Avatar
papou
Re
Ok vu !
Tu ne dois pas oublier que ce qui est entré dans un textbox est considéré
comme du texte donc,
Tu modifies comme ceci :
ToFind = Application.Match(CInt(TxtBox1.Value), Range("A1:A100"), 0)

Cordialement
Pascal

"JacquesH" a écrit dans le message de
news:
Voici le lien sur cjoint :

http://cjoint.com/?elqN6kopTV

Attention, il faut faire F1 pour faire apparaître la Userform.

Merci - Jacques



Re
Le + simple, place ton fichier ici :
http://cjoint.com/
Je regarderai

Cordialement
Pascal

"JacquesH" a écrit dans le message
de news:

Bonjour et merci pour ton aide,

Je viens d'essayer, mais j'ai la msgbox "No match found".

Que faut-il adapter exactement ? J'ai modifié la plage ("A1:A100"). J'ai
essayé de changé TxtSearch.value par TxtBox1.value (nom de la TxtBox dans
laquelle j'ai inscrit le nombre à rechercher.

Rien n'y fait.

Jacques


Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le message
de news: u8bzN$


Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique
sur un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le
curseur se positionne sur la valeur que j'ai saisie (plutôt dans la
cellule de droite contigüe).

Merci de votre aide.

Jacques













Avatar
ru-th
Salut

si tu ne recherches que du numérique
ToFind = Application.Match(TxtBox1.Value * 1, Range("A1:A100"), 0)
sinon
Columns("A:A").Find(What:=TxtBox1.Value, After:=[a1], LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate

a+
rural thierry
"JacquesH" a écrit dans le message de
news:
Voici le lien sur cjoint :

http://cjoint.com/?elqN6kopTV

Attention, il faut faire F1 pour faire apparaître la Userform.

Merci - Jacques



Re
Le + simple, place ton fichier ici :
http://cjoint.com/
Je regarderai

Cordialement
Pascal

"JacquesH" a écrit dans le message
de


news:

Bonjour et merci pour ton aide,

Je viens d'essayer, mais j'ai la msgbox "No match found".

Que faut-il adapter exactement ? J'ai modifié la plage ("A1:A100"). J'ai
essayé de changé TxtSearch.value par TxtBox1.value (nom de la TxtBox
dans



laquelle j'ai inscrit le nombre à rechercher.

Rien n'y fait.

Jacques


Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le
message




de news: u8bzN$


Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique
sur





un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le
curseur





se positionne sur la valeur que j'ai saisie (plutôt dans la cellule de
droite contigüe).

Merci de votre aide.

Jacques













Avatar
JacquesH
OK, tout fonctionne.

Merci beaucoup pour ton aide.

Cordialement
Jacques


Re
Ok vu !
Tu ne dois pas oublier que ce qui est entré dans un textbox est considéré
comme du texte donc,
Tu modifies comme ceci :
ToFind = Application.Match(CInt(TxtBox1.Value), Range("A1:A100"), 0)

Cordialement
Pascal

"JacquesH" a écrit dans le message de
news:

Voici le lien sur cjoint :

http://cjoint.com/?elqN6kopTV

Attention, il faut faire F1 pour faire apparaître la Userform.

Merci - Jacques




Re
Le + simple, place ton fichier ici :
http://cjoint.com/
Je regarderai

Cordialement
Pascal

"JacquesH" a écrit dans le message
de news:


Bonjour et merci pour ton aide,

Je viens d'essayer, mais j'ai la msgbox "No match found".

Que faut-il adapter exactement ? J'ai modifié la plage ("A1:A100"). J'ai
essayé de changé TxtSearch.value par TxtBox1.value (nom de la TxtBox dans
laquelle j'ai inscrit le nombre à rechercher.

Rien n'y fait.

Jacques



Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le message
de news: u8bzN$



Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique
sur un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le
curseur se positionne sur la valeur que j'ai saisie (plutôt dans la
cellule de droite contigüe).

Merci de votre aide.

Jacques
















Avatar
JacquesH
Bonjour et merci également pour cette réponse.

En faisant mes petits essais, j'ai rencontré un nouveau problème :

Private Sub CommandButton2_Click()
On Error GoTo NotFound
ToFind = Application.Match(CInt(TxtBox1.Value), Range("A1:A100"), 0)
Cells(ToFind, 1).Activate
ActiveCell.Offset(0, 1).Activate
Unload UserForm1
Exit Sub

Avec ce code, je retrouve ma valeur, je me décale d'une colonne à
droite. Tout va bien. Cependant, je n'arrive pas à saisir (j'ai testé
activate et select).

Par ailleurs, il y a souvent des caractères dans ma TextBox à
l'ouverture du User malgré le code :

Sub Saisie()
UserForm1.Show
UserForm1.TxtBox1.Value = ""
UserForm1.TxtBox1.SetFocus
End Sub

Merci d'avance.

Jacques

Salut

si tu ne recherches que du numérique
ToFind = Application.Match(TxtBox1.Value * 1, Range("A1:A100"), 0)
sinon
Columns("A:A").Find(What:=TxtBox1.Value, After:=[a1], LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate

a+
rural thierry
"JacquesH" a écrit dans le message de
news:

Voici le lien sur cjoint :

http://cjoint.com/?elqN6kopTV

Attention, il faut faire F1 pour faire apparaître la Userform.

Merci - Jacques




Re
Le + simple, place ton fichier ici :
http://cjoint.com/
Je regarderai

Cordialement
Pascal

"JacquesH" a écrit dans le message



de

news:


Bonjour et merci pour ton aide,

Je viens d'essayer, mais j'ai la msgbox "No match found".

Que faut-il adapter exactement ? J'ai modifié la plage ("A1:A100"). J'ai
essayé de changé TxtSearch.value par TxtBox1.value (nom de la TxtBox




dans

laquelle j'ai inscrit le nombre à rechercher.

Rien n'y fait.

Jacques



Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le





message

de news: u8bzN$



Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique






sur

un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le






curseur

se positionne sur la valeur que j'ai saisie (plutôt dans la cellule de
droite contigüe).

Merci de votre aide.

Jacques
















Avatar
jps
vous ne faites que passer, mon père, ou bien avez-vous les pieds pris dans
les plis de votre soutane et peut-on espérer une certaine pérennité de votre
présence derrière la grille obscure du confessionnal, voire même votre
participation au concours de pétanque que préparent les marseillais inside?
jps


"ru-th" a écrit dans le message de news:

Salut

si tu ne recherches que du numérique
ToFind = Application.Match(TxtBox1.Value * 1, Range("A1:A100"), 0)
sinon
Columns("A:A").Find(What:=TxtBox1.Value, After:=[a1], LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate

a+
rural thierry
"JacquesH" a écrit dans le message
de
news:
Voici le lien sur cjoint :

http://cjoint.com/?elqN6kopTV

Attention, il faut faire F1 pour faire apparaître la Userform.

Merci - Jacques



Re
Le + simple, place ton fichier ici :
http://cjoint.com/
Je regarderai

Cordialement
Pascal

"JacquesH" a écrit dans le
message
de


news:

Bonjour et merci pour ton aide,

Je viens d'essayer, mais j'ai la msgbox "No match found".

Que faut-il adapter exactement ? J'ai modifié la plage ("A1:A100").
J'ai
essayé de changé TxtSearch.value par TxtBox1.value (nom de la TxtBox
dans



laquelle j'ai inscrit le nombre à rechercher.

Rien n'y fait.

Jacques


Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le
message




de news: u8bzN$


Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique
sur





un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le
curseur





se positionne sur la valeur que j'ai saisie (plutôt dans la cellule
de
droite contigüe).

Merci de votre aide.

Jacques

















Avatar
Thierryp
Bonjour jps,

alors, toujours en sentinelle !! :-)))

@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------

vous ne faites que passer, mon père, ou bien avez-vous les pieds pris
dans les plis de votre soutane et peut-on espérer une certaine pérennité
de votre présence derrière la grille obscure du confessionnal, voire
même votre participation au concours de pétanque que préparent les
marseillais inside?
jps


"ru-th" a écrit dans le message de news:

Salut

si tu ne recherches que du numérique
ToFind = Application.Match(TxtBox1.Value * 1, Range("A1:A100"), 0)
sinon
Columns("A:A").Find(What:=TxtBox1.Value, After:=[a1], LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate

a+
rural thierry
"JacquesH" a écrit dans le
message de
news:
Voici le lien sur cjoint :

http://cjoint.com/?elqN6kopTV

Attention, il faut faire F1 pour faire apparaître la Userform.

Merci - Jacques



Re
Le + simple, place ton fichier ici :
http://cjoint.com/
Je regarderai

Cordialement
Pascal

"JacquesH" a écrit dans le >
message

de

news:

Bonjour et merci pour ton aide,

Je viens d'essayer, mais j'ai la msgbox "No match found".

Que faut-il adapter exactement ? J'ai modifié la plage ("A1:A100").
J'ai
essayé de changé TxtSearch.value par TxtBox1.value (nom de la TxtBox
dans



laquelle j'ai inscrit le nombre à rechercher.

Rien n'y fait.

Jacques


Bonjour
Code à adapter et à placer dans le bouton de commande :
On Error GoTo NotFound
ToFind = Application.Match(TxtSearch.Value, Range("A1:A5"), 0)
Cells(ToFind, 1).Activate
Exit Sub

NotFound:
MsgBox "No match found", vbInformation, "Search result"

Cordialement
Pascal

"JacquesH" a écrit dans le
message




de news: u8bzN$


Bonjour à toutes et tous,

Malgré mes recherches dans les archives du forum, je n'arrive pas à
résoudre le problème suivant :

Dans la colonne A de ma feuille, j'ai toute une liste de valeurs.
J'appelle une UserForm.
Dans la TextBox de cette UserForm, je saisis un chiffre et je clique
sur





un bouton "OK".
A ce moment-là, je souhaite que la UserForm disparaisse et que le
curseur





se positionne sur la valeur que j'ai saisie (plutôt dans la
cellule >>>>de




droite contigüe).

Merci de votre aide.

Jacques




















1 2