OVH Cloud OVH Cloud

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

3 réponses

1 2
Avatar
jps
yep...thierryp
jps

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


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






















Avatar
ru-th
Salut mon vieil ami

De passage seulement,
vous voudrez bien excuser ma méconnaissance actuelle du dit concours de
pétanque
Il y a un fil sur le sujet ?
a+
rural thierry
"jps" a écrit dans le message de
news:
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
jps
salut thierry
bien sûr qu'il y a eu un fil à ce sujet
il faut que tu attendes que laurent daures termine sa sieste pour que tu en
saches davantage...
sache d'ores et déjà que ça va se passer à marseille les 10 et 11 juin...
et ce serait bien que le père brossollette bénisse le concours de pétanque
jps

"ru-th" a écrit dans le message de news:
%
Salut mon vieil ami

De passage seulement,
vous voudrez bien excuser ma méconnaissance actuelle du dit concours de
pétanque
Il y a un fil sur le sujet ?
a+
rural thierry
"jps" a écrit dans le message de
news:
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