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).
------------------------ 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
yep...thierryp
jps
"Thierryp" <thierryp@nospam.fr> a écrit dans le message de news:
eGfFpgYXGHA.1196@TK2MSFTNGP03.phx.gbl...
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
uLNJujXXGHA.4652@TK2MSFTNGP04.phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit dans le message
de
news:evZdpZXXGHA.3972@TK2MSFTNGP02.phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit dans le >
message
de
news: eUfEaIXXGHA.3560@TK2MSFTNGP04.phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit dans le
message
de news: u8bzN$VXGHA.4132@TK2MSFTNGP04.phx.gbl...
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
------------------------ 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
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,
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
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" <vaderetrosp@mas> a écrit dans le message de
news:eyPEzcYXGHA.3448@TK2MSFTNGP03.phx.gbl...
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
uLNJujXXGHA.4652@TK2MSFTNGP04.phx.gbl...
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,
a+
rural thierry
"JacquesH" <anonymous@discussions.microsoft.com> a écrit dans le message
de
news:evZdpZXXGHA.3972@TK2MSFTNGP02.phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit dans le
message
de
news: eUfEaIXXGHA.3560@TK2MSFTNGP04.phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit dans le
message
de news: u8bzN$VXGHA.4132@TK2MSFTNGP04.phx.gbl...
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).
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,
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
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,
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
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
%23FcQltgXGHA.4620@TK2MSFTNGP04.phx.gbl...
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" <vaderetrosp@mas> a écrit dans le message de
news:eyPEzcYXGHA.3448@TK2MSFTNGP03.phx.gbl...
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" <ailleurs@nowhere.fr> a écrit dans le message de news:
uLNJujXXGHA.4652@TK2MSFTNGP04.phx.gbl...
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,
a+
rural thierry
"JacquesH" <anonymous@discussions.microsoft.com> a écrit dans le
message
de
news:evZdpZXXGHA.3972@TK2MSFTNGP02.phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit dans le
message
de
news: eUfEaIXXGHA.3560@TK2MSFTNGP04.phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit dans le
message
de news: u8bzN$VXGHA.4132@TK2MSFTNGP04.phx.gbl...
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).
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,
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).