Bonjour,
Essaie comme ceci
'----------------
Sub jj()
On Error Resume Next
nom = Application.InputBox("Sélectionner le nom à chercher", "Sélection",
Type:=8)
MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
End Sub
'---------------
--
Salutations
JJ
a écrit dans le message de news:
B Onjour,
voila le probleme de la journée.
je cherche a afficher le resultat d'une recherche ainsi que le nom
chercher dans une msgbox.
en detail
en colonne B le nom chercher
en colonne C ce que je dois afficher dans la msgbox
en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
rechercheer en colonne B) et j'aimerais avoir le contenue de la
cellule correspondante (la colonne C) dans une msgbox avec le nom de
la colone B sous le format
NOM
valeur colonne C
merci de votre aide.
bonne journée.
Bonjour,
Essaie comme ceci
'----------------
Sub jj()
On Error Resume Next
nom = Application.InputBox("Sélectionner le nom à chercher", "Sélection",
Type:=8)
MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
End Sub
'---------------
--
Salutations
JJ
<bastientot@gmail.com> a écrit dans le message de news:
7759bc7c-9b46-4d8a-973d-f516542aca7a@r15g2000prh.googlegroups.com...
B Onjour,
voila le probleme de la journée.
je cherche a afficher le resultat d'une recherche ainsi que le nom
chercher dans une msgbox.
en detail
en colonne B le nom chercher
en colonne C ce que je dois afficher dans la msgbox
en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
rechercheer en colonne B) et j'aimerais avoir le contenue de la
cellule correspondante (la colonne C) dans une msgbox avec le nom de
la colone B sous le format
NOM
valeur colonne C
merci de votre aide.
bonne journée.
Bonjour,
Essaie comme ceci
'----------------
Sub jj()
On Error Resume Next
nom = Application.InputBox("Sélectionner le nom à chercher", "Sélection",
Type:=8)
MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
End Sub
'---------------
--
Salutations
JJ
a écrit dans le message de news:
B Onjour,
voila le probleme de la journée.
je cherche a afficher le resultat d'une recherche ainsi que le nom
chercher dans une msgbox.
en detail
en colonne B le nom chercher
en colonne C ce que je dois afficher dans la msgbox
en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
rechercheer en colonne B) et j'aimerais avoir le contenue de la
cellule correspondante (la colonne C) dans une msgbox avec le nom de
la colone B sous le format
NOM
valeur colonne C
merci de votre aide.
bonne journée.
Ou Plus simplement
'----------
Sub jj()
On Error Resume Next
Set nom = Application.InputBox("Sélectionner le nom à chercher",
"Sélection", Type:=8)
MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0,
1).Value
End Sub
'--------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
> Bonjour,
> Essaie comme ceci
> '----------------
> Sub jj()
> On Error Resume Next
> nom = Application.InputBox("Sélectionner le nom à chercher", "S élection",
> Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> End Sub
> '---------------
> --
> Salutations
> JJ
> a écrit dans le message de news:
>
> B Onjour,
> voila le probleme de la journée.
> je cherche a afficher le resultat d'une recherche ainsi que le nom
> chercher dans une msgbox.
> en detail
> en colonne B le nom chercher
> en colonne C ce que je dois afficher dans la msgbox
> en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> rechercheer en colonne B) et j'aimerais avoir le contenue de la
> cellule correspondante (la colonne C) dans une msgbox avec le nom de
> la colone B sous le format
> NOM
> valeur colonne C
> merci de votre aide.
> bonne journée.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ou Plus simplement
'----------
Sub jj()
On Error Resume Next
Set nom = Application.InputBox("Sélectionner le nom à chercher",
"Sélection", Type:=8)
MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0,
1).Value
End Sub
'--------------
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
eu6UofydJHA.5...@TK2MSFTNGP05.phx.gbl...
> Bonjour,
> Essaie comme ceci
> '----------------
> Sub jj()
> On Error Resume Next
> nom = Application.InputBox("Sélectionner le nom à chercher", "S élection",
> Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> End Sub
> '---------------
> --
> Salutations
> JJ
> <bastien...@gmail.com> a écrit dans le message de news:
> 7759bc7c-9b46-4d8a-973d-f516542ac...@r15g2000prh.googlegroups.com...
> B Onjour,
> voila le probleme de la journée.
> je cherche a afficher le resultat d'une recherche ainsi que le nom
> chercher dans une msgbox.
> en detail
> en colonne B le nom chercher
> en colonne C ce que je dois afficher dans la msgbox
> en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> rechercheer en colonne B) et j'aimerais avoir le contenue de la
> cellule correspondante (la colonne C) dans une msgbox avec le nom de
> la colone B sous le format
> NOM
> valeur colonne C
> merci de votre aide.
> bonne journée.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ou Plus simplement
'----------
Sub jj()
On Error Resume Next
Set nom = Application.InputBox("Sélectionner le nom à chercher",
"Sélection", Type:=8)
MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0,
1).Value
End Sub
'--------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
> Bonjour,
> Essaie comme ceci
> '----------------
> Sub jj()
> On Error Resume Next
> nom = Application.InputBox("Sélectionner le nom à chercher", "S élection",
> Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> End Sub
> '---------------
> --
> Salutations
> JJ
> a écrit dans le message de news:
>
> B Onjour,
> voila le probleme de la journée.
> je cherche a afficher le resultat d'une recherche ainsi que le nom
> chercher dans une msgbox.
> en detail
> en colonne B le nom chercher
> en colonne C ce que je dois afficher dans la msgbox
> en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> rechercheer en colonne B) et j'aimerais avoir le contenue de la
> cellule correspondante (la colonne C) dans une msgbox avec le nom de
> la colone B sous le format
> NOM
> valeur colonne C
> merci de votre aide.
> bonne journée.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
.....se positionner sur la cellule du nom chercher ...
Ou Plus simplement
'----------
Sub jj()
On Error Resume Next
Set nom = Application.InputBox("Sélectionner le nom à chercher",
"Sélection", Type:=8)
MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0,
1).Value
End Sub
'--------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
> Bonjour,
> Essaie comme ceci
> '----------------
> Sub jj()
> On Error Resume Next
> nom = Application.InputBox("Sélectionner le nom à chercher",
> "Sélection",
> Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> End Sub
> '---------------
> --
> Salutations
> JJ
> a écrit dans le message de news:
>
> B Onjour,
> voila le probleme de la journée.
> je cherche a afficher le resultat d'une recherche ainsi que le nom
> chercher dans une msgbox.
> en detail
> en colonne B le nom chercher
> en colonne C ce que je dois afficher dans la msgbox
> en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> rechercheer en colonne B) et j'aimerais avoir le contenue de la
> cellule correspondante (la colonne C) dans une msgbox avec le nom de
> la colone B sous le format
> NOM
> valeur colonne C
> merci de votre aide.
> bonne journée.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
.....se positionner sur la cellule du nom chercher ...
Ou Plus simplement
'----------
Sub jj()
On Error Resume Next
Set nom = Application.InputBox("Sélectionner le nom à chercher",
"Sélection", Type:=8)
MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0,
1).Value
End Sub
'--------------
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
eu6UofydJHA.5...@TK2MSFTNGP05.phx.gbl...
> Bonjour,
> Essaie comme ceci
> '----------------
> Sub jj()
> On Error Resume Next
> nom = Application.InputBox("Sélectionner le nom à chercher",
> "Sélection",
> Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> End Sub
> '---------------
> --
> Salutations
> JJ
> <bastien...@gmail.com> a écrit dans le message de news:
> 7759bc7c-9b46-4d8a-973d-f516542ac...@r15g2000prh.googlegroups.com...
> B Onjour,
> voila le probleme de la journée.
> je cherche a afficher le resultat d'une recherche ainsi que le nom
> chercher dans une msgbox.
> en detail
> en colonne B le nom chercher
> en colonne C ce que je dois afficher dans la msgbox
> en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> rechercheer en colonne B) et j'aimerais avoir le contenue de la
> cellule correspondante (la colonne C) dans une msgbox avec le nom de
> la colone B sous le format
> NOM
> valeur colonne C
> merci de votre aide.
> bonne journée.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
.....se positionner sur la cellule du nom chercher ...
Ou Plus simplement
'----------
Sub jj()
On Error Resume Next
Set nom = Application.InputBox("Sélectionner le nom à chercher",
"Sélection", Type:=8)
MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0,
1).Value
End Sub
'--------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
> Bonjour,
> Essaie comme ceci
> '----------------
> Sub jj()
> On Error Resume Next
> nom = Application.InputBox("Sélectionner le nom à chercher",
> "Sélection",
> Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> End Sub
> '---------------
> --
> Salutations
> JJ
> a écrit dans le message de news:
>
> B Onjour,
> voila le probleme de la journée.
> je cherche a afficher le resultat d'une recherche ainsi que le nom
> chercher dans une msgbox.
> en detail
> en colonne B le nom chercher
> en colonne C ce que je dois afficher dans la msgbox
> en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> rechercheer en colonne B) et j'aimerais avoir le contenue de la
> cellule correspondante (la colonne C) dans une msgbox avec le nom de
> la colone B sous le format
> NOM
> valeur colonne C
> merci de votre aide.
> bonne journée.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re...
>>.....se positionner sur la cellule du nom chercher ...
'-----------
Sub jj()
On Error Resume Next
nom = InputBox("Entrer le nom du serveur", "Saisie")
If nom = "" Then Exit Sub
Application.Index([b:b], Application.Match(nom, [b:b], 0)).Select
' MsgBox "Serveur: " & nom & Chr(10) & "Resultat : " &
Application.Index([c:c], Application.Match(nom, [b:b], 0))
End Sub
'------------
--
Salutations
JJ
a écrit dans le message de news:
Bonjour,
désolé me suis mal exprimer dans la fenetre de recherche je dois
tapper le nom du serveur et non le selectionner.
merci de ton aide et est il possible apres validation de la fenetre
de recherche de se possitionner sur la cellule du nom chercher ?
bonne journée.
On 15 jan, 17:02, "Jacky" wrote:
> Ou Plus simplement
> '----------
> Sub jj()
> On Error Resume Next
> Set nom = Application.InputBox("Sélectionner le nom à chercher",
> "Sélection", Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0 ,
> 1).Value
> End Sub
> '--------------
> --
> Salutations
> JJ
> "Jacky" a écrit dans le message de news:
>
> > Bonjour,
> > Essaie comme ceci
> > '----------------
> > Sub jj()
> > On Error Resume Next
> > nom = Application.InputBox("Sélectionner le nom à chercher",
> > "Sélection",
> > Type:=8)
> > MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> > Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> > End Sub
> > '---------------
> > --
> > Salutations
> > JJ
> > a écrit dans le message de news:
> >
> > B Onjour,
> > voila le probleme de la journée.
> > je cherche a afficher le resultat d'une recherche ainsi que le nom
> > chercher dans une msgbox.
> > en detail
> > en colonne B le nom chercher
> > en colonne C ce que je dois afficher dans la msgbox
> > en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> > rechercheer en colonne B) et j'aimerais avoir le contenue de la
> > cellule correspondante (la colonne C) dans une msgbox avec le nom de
> > la colone B sous le format
> > NOM
> > valeur colonne C
> > merci de votre aide.
> > bonne journée.- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re...
>>.....se positionner sur la cellule du nom chercher ...
'-----------
Sub jj()
On Error Resume Next
nom = InputBox("Entrer le nom du serveur", "Saisie")
If nom = "" Then Exit Sub
Application.Index([b:b], Application.Match(nom, [b:b], 0)).Select
' MsgBox "Serveur: " & nom & Chr(10) & "Resultat : " &
Application.Index([c:c], Application.Match(nom, [b:b], 0))
End Sub
'------------
--
Salutations
JJ
<bastien...@gmail.com> a écrit dans le message de news:
bcf0070f-c354-4276-b513-1aef00af0...@n2g2000vbl.googlegroups.com...
Bonjour,
désolé me suis mal exprimer dans la fenetre de recherche je dois
tapper le nom du serveur et non le selectionner.
merci de ton aide et est il possible apres validation de la fenetre
de recherche de se possitionner sur la cellule du nom chercher ?
bonne journée.
On 15 jan, 17:02, "Jacky" <Dup...@marcel.fr> wrote:
> Ou Plus simplement
> '----------
> Sub jj()
> On Error Resume Next
> Set nom = Application.InputBox("Sélectionner le nom à chercher",
> "Sélection", Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0 ,
> 1).Value
> End Sub
> '--------------
> --
> Salutations
> JJ
> "Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
> eu6UofydJHA.5...@TK2MSFTNGP05.phx.gbl...
> > Bonjour,
> > Essaie comme ceci
> > '----------------
> > Sub jj()
> > On Error Resume Next
> > nom = Application.InputBox("Sélectionner le nom à chercher",
> > "Sélection",
> > Type:=8)
> > MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> > Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> > End Sub
> > '---------------
> > --
> > Salutations
> > JJ
> > <bastien...@gmail.com> a écrit dans le message de news:
> > 7759bc7c-9b46-4d8a-973d-f516542ac...@r15g2000prh.googlegroups.com...
> > B Onjour,
> > voila le probleme de la journée.
> > je cherche a afficher le resultat d'une recherche ainsi que le nom
> > chercher dans une msgbox.
> > en detail
> > en colonne B le nom chercher
> > en colonne C ce que je dois afficher dans la msgbox
> > en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> > rechercheer en colonne B) et j'aimerais avoir le contenue de la
> > cellule correspondante (la colonne C) dans une msgbox avec le nom de
> > la colone B sous le format
> > NOM
> > valeur colonne C
> > merci de votre aide.
> > bonne journée.- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re...
>>.....se positionner sur la cellule du nom chercher ...
'-----------
Sub jj()
On Error Resume Next
nom = InputBox("Entrer le nom du serveur", "Saisie")
If nom = "" Then Exit Sub
Application.Index([b:b], Application.Match(nom, [b:b], 0)).Select
' MsgBox "Serveur: " & nom & Chr(10) & "Resultat : " &
Application.Index([c:c], Application.Match(nom, [b:b], 0))
End Sub
'------------
--
Salutations
JJ
a écrit dans le message de news:
Bonjour,
désolé me suis mal exprimer dans la fenetre de recherche je dois
tapper le nom du serveur et non le selectionner.
merci de ton aide et est il possible apres validation de la fenetre
de recherche de se possitionner sur la cellule du nom chercher ?
bonne journée.
On 15 jan, 17:02, "Jacky" wrote:
> Ou Plus simplement
> '----------
> Sub jj()
> On Error Resume Next
> Set nom = Application.InputBox("Sélectionner le nom à chercher",
> "Sélection", Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0 ,
> 1).Value
> End Sub
> '--------------
> --
> Salutations
> JJ
> "Jacky" a écrit dans le message de news:
>
> > Bonjour,
> > Essaie comme ceci
> > '----------------
> > Sub jj()
> > On Error Resume Next
> > nom = Application.InputBox("Sélectionner le nom à chercher",
> > "Sélection",
> > Type:=8)
> > MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> > Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> > End Sub
> > '---------------
> > --
> > Salutations
> > JJ
> > a écrit dans le message de news:
> >
> > B Onjour,
> > voila le probleme de la journée.
> > je cherche a afficher le resultat d'une recherche ainsi que le nom
> > chercher dans une msgbox.
> > en detail
> > en colonne B le nom chercher
> > en colonne C ce que je dois afficher dans la msgbox
> > en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> > rechercheer en colonne B) et j'aimerais avoir le contenue de la
> > cellule correspondante (la colonne C) dans une msgbox avec le nom de
> > la colone B sous le format
> > NOM
> > valeur colonne C
> > merci de votre aide.
> > bonne journée.- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
....est il possible apres validation de la fenetre
de recherche de se possitionner sur la cellule du nom chercher ?
Re...
>>.....se positionner sur la cellule du nom chercher ...
'-----------
Sub jj()
On Error Resume Next
nom = InputBox("Entrer le nom du serveur", "Saisie")
If nom = "" Then Exit Sub
Application.Index([b:b], Application.Match(nom, [b:b], 0)).Select
' MsgBox "Serveur: " & nom & Chr(10) & "Resultat : " &
Application.Index([c:c], Application.Match(nom, [b:b], 0))
End Sub
'------------
--
Salutations
JJ
a écrit dans le message de news:
Bonjour,
désolé me suis mal exprimer dans la fenetre de recherche je dois
tapper le nom du serveur et non le selectionner.
merci de ton aide et est il possible apres validation de la fenetre
de recherche de se possitionner sur la cellule du nom chercher ?
bonne journée.
On 15 jan, 17:02, "Jacky" wrote:
> Ou Plus simplement
> '----------
> Sub jj()
> On Error Resume Next
> Set nom = Application.InputBox("Sélectionner le nom à chercher",
> "Sélection", Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0,
> 1).Value
> End Sub
> '--------------
> --
> Salutations
> JJ
> "Jacky" a écrit dans le message de news:
>
> > Bonjour,
> > Essaie comme ceci
> > '----------------
> > Sub jj()
> > On Error Resume Next
> > nom = Application.InputBox("Sélectionner le nom à chercher",
> > "Sélection",
> > Type:=8)
> > MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> > Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> > End Sub
> > '---------------
> > --
> > Salutations
> > JJ
> > a écrit dans le message de news:
> >
> > B Onjour,
> > voila le probleme de la journée.
> > je cherche a afficher le resultat d'une recherche ainsi que le nom
> > chercher dans une msgbox.
> > en detail
> > en colonne B le nom chercher
> > en colonne C ce que je dois afficher dans la msgbox
> > en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> > rechercheer en colonne B) et j'aimerais avoir le contenue de la
> > cellule correspondante (la colonne C) dans une msgbox avec le nom de
> > la colone B sous le format
> > NOM
> > valeur colonne C
> > merci de votre aide.
> > bonne journée.- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
....est il possible apres validation de la fenetre
de recherche de se possitionner sur la cellule du nom chercher ?
Re...
>>.....se positionner sur la cellule du nom chercher ...
'-----------
Sub jj()
On Error Resume Next
nom = InputBox("Entrer le nom du serveur", "Saisie")
If nom = "" Then Exit Sub
Application.Index([b:b], Application.Match(nom, [b:b], 0)).Select
' MsgBox "Serveur: " & nom & Chr(10) & "Resultat : " &
Application.Index([c:c], Application.Match(nom, [b:b], 0))
End Sub
'------------
--
Salutations
JJ
<bastien...@gmail.com> a écrit dans le message de news:
bcf0070f-c354-4276-b513-1aef00af0...@n2g2000vbl.googlegroups.com...
Bonjour,
désolé me suis mal exprimer dans la fenetre de recherche je dois
tapper le nom du serveur et non le selectionner.
merci de ton aide et est il possible apres validation de la fenetre
de recherche de se possitionner sur la cellule du nom chercher ?
bonne journée.
On 15 jan, 17:02, "Jacky" <Dup...@marcel.fr> wrote:
> Ou Plus simplement
> '----------
> Sub jj()
> On Error Resume Next
> Set nom = Application.InputBox("Sélectionner le nom à chercher",
> "Sélection", Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0,
> 1).Value
> End Sub
> '--------------
> --
> Salutations
> JJ
> "Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
> eu6UofydJHA.5...@TK2MSFTNGP05.phx.gbl...
> > Bonjour,
> > Essaie comme ceci
> > '----------------
> > Sub jj()
> > On Error Resume Next
> > nom = Application.InputBox("Sélectionner le nom à chercher",
> > "Sélection",
> > Type:=8)
> > MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> > Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> > End Sub
> > '---------------
> > --
> > Salutations
> > JJ
> > <bastien...@gmail.com> a écrit dans le message de news:
> > 7759bc7c-9b46-4d8a-973d-f516542ac...@r15g2000prh.googlegroups.com...
> > B Onjour,
> > voila le probleme de la journée.
> > je cherche a afficher le resultat d'une recherche ainsi que le nom
> > chercher dans une msgbox.
> > en detail
> > en colonne B le nom chercher
> > en colonne C ce que je dois afficher dans la msgbox
> > en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> > rechercheer en colonne B) et j'aimerais avoir le contenue de la
> > cellule correspondante (la colonne C) dans une msgbox avec le nom de
> > la colone B sous le format
> > NOM
> > valeur colonne C
> > merci de votre aide.
> > bonne journée.- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -
....est il possible apres validation de la fenetre
de recherche de se possitionner sur la cellule du nom chercher ?
Re...
>>.....se positionner sur la cellule du nom chercher ...
'-----------
Sub jj()
On Error Resume Next
nom = InputBox("Entrer le nom du serveur", "Saisie")
If nom = "" Then Exit Sub
Application.Index([b:b], Application.Match(nom, [b:b], 0)).Select
' MsgBox "Serveur: " & nom & Chr(10) & "Resultat : " &
Application.Index([c:c], Application.Match(nom, [b:b], 0))
End Sub
'------------
--
Salutations
JJ
a écrit dans le message de news:
Bonjour,
désolé me suis mal exprimer dans la fenetre de recherche je dois
tapper le nom du serveur et non le selectionner.
merci de ton aide et est il possible apres validation de la fenetre
de recherche de se possitionner sur la cellule du nom chercher ?
bonne journée.
On 15 jan, 17:02, "Jacky" wrote:
> Ou Plus simplement
> '----------
> Sub jj()
> On Error Resume Next
> Set nom = Application.InputBox("Sélectionner le nom à chercher",
> "Sélection", Type:=8)
> MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " & nom.Offset(0,
> 1).Value
> End Sub
> '--------------
> --
> Salutations
> JJ
> "Jacky" a écrit dans le message de news:
>
> > Bonjour,
> > Essaie comme ceci
> > '----------------
> > Sub jj()
> > On Error Resume Next
> > nom = Application.InputBox("Sélectionner le nom à chercher",
> > "Sélection",
> > Type:=8)
> > MsgBox "Recherhe pour: " & nom & Chr(10) & "Resultat : " &
> > Application.Index([c1:c2000], Application.Match(nom, [b1:b2000], 0))
> > End Sub
> > '---------------
> > --
> > Salutations
> > JJ
> > a écrit dans le message de news:
> >
> > B Onjour,
> > voila le probleme de la journée.
> > je cherche a afficher le resultat d'une recherche ainsi que le nom
> > chercher dans une msgbox.
> > en detail
> > en colonne B le nom chercher
> > en colonne C ce que je dois afficher dans la msgbox
> > en gros en lançant ma recherche par ctrl+f je saisi un nom ( a
> > rechercheer en colonne B) et j'aimerais avoir le contenue de la
> > cellule correspondante (la colonne C) dans une msgbox avec le nom de
> > la colone B sous le format
> > NOM
> > valeur colonne C
> > merci de votre aide.
> > bonne journée.- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -
- Afficher le texte des messages précédents -