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 Recherche de nom... Résultats inprécis

Recherche de nom... Résultats inprécis

7 réponses
Avatar
Jean Pierre Belfort
Bonjour,

J'ai créer une base de donnée avec les noms de mes petites amies, puis j'ai
créer un bouton permetant d'aller directement sur la ligne de la personne ou
le cas échéant dire qu'elle n'existe pas!

Voici le code :

Sub cherche2()
nomCherche = InputBox("Nom cherché ?")
Set result = Sheets("Noms").Range("A10:A10000").Find(What:=nomCherche,
LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Nom inconnu"
Else
Sheets("Noms").Select
Range(result, result.End(xlToRight)).Select
End If
End Sub

Il marchait très bien jusqu'a ce que je me rends compte que si je cherche
juste une lettre, il va me selectionner le premier nom qui commence par cette
lettre,

Voyez vous une solution ?
JPB
Signaler un problème avec ce contenu

7 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
Avatar
lSteph
Bonsoir Jean Pierre ,
en parametre de Find (regarde l'aide pour plus de détails)
LookAt:=xlWhole

Cordialement.

lSteph
"Jean Pierre Belfort" a écrit
dans le message de news:

Bonjour,

J'ai créer une base de donnée avec les noms de mes petites amies, puis
j'ai
créer un bouton permetant d'aller directement sur la ligne de la personne
ou
le cas échéant dire qu'elle n'existe pas!

Voici le code :

Sub cherche2()
nomCherche = InputBox("Nom cherché ?")
Set result = Sheets("Noms").Range("A10:A10000").Find(What:=nomCherche,
LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Nom inconnu"
Else
Sheets("Noms").Select
Range(result, result.End(xlToRight)).Select
End If
End Sub

Il marchait très bien jusqu'a ce que je me rends compte que si je cherche
juste une lettre, il va me selectionner le premier nom qui commence par
cette
lettre,

Voyez vous une solution ?
JPB


Avatar
jps
bonsoir jean-pierre
je pense qu'il faille que tu regardes du côté des diverses possiblités
offertes par le LookIn
je ne suis pas très fortiche mais je crois me souvenir qu'il y a Part ou un
truc de ce genre pour chercher à l'intérieur d'une chaîne...
si j'ai juste, n'hésite pas à m'envoyer ton fichier!!!!!
jps

"Jean Pierre Belfort" a écrit
dans le message de news:

Bonjour,

J'ai créer une base de donnée avec les noms de mes petites amies, puis
j'ai
créer un bouton permetant d'aller directement sur la ligne de la personne
ou
le cas échéant dire qu'elle n'existe pas!

Voici le code :

Sub cherche2()
nomCherche = InputBox("Nom cherché ?")
Set result = Sheets("Noms").Range("A10:A10000").Find(What:=nomCherche,
LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Nom inconnu"
Else
Sheets("Noms").Select
Range(result, result.End(xlToRight)).Select
End If
End Sub

Il marchait très bien jusqu'a ce que je me rends compte que si je cherche
juste une lettre, il va me selectionner le premier nom qui commence par
cette
lettre,

Voyez vous une solution ?
JPB


Avatar
jps
tu veux le fichier, toi aussi, LSteph?
il n'a pas dit qu'il y avait les adresses jean-pierre
jps

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

Bonsoir Jean Pierre ,
en parametre de Find (regarde l'aide pour plus de détails)
LookAt:=xlWhole

Cordialement.

lSteph
"Jean Pierre Belfort" a
écrit dans le message de news:

Bonjour,

J'ai créer une base de donnée avec les noms de mes petites amies, puis
j'ai
créer un bouton permetant d'aller directement sur la ligne de la personne
ou
le cas échéant dire qu'elle n'existe pas!

Voici le code :

Sub cherche2()
nomCherche = InputBox("Nom cherché ?")
Set result = Sheets("Noms").Range("A10:A10000").Find(What:=nomCherche,
LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Nom inconnu"
Else
Sheets("Noms").Select
Range(result, result.End(xlToRight)).Select
End If
End Sub

Il marchait très bien jusqu'a ce que je me rends compte que si je cherche
juste une lettre, il va me selectionner le premier nom qui commence par
cette
lettre,

Voyez vous une solution ?
JPB






Avatar
Clément Marcotte
J'espère que tu l'as bien crypté sur ton disque ou qu'aucune de ces madames
n'a d'accès trop facile à ton ordi. ;-)


"Jean Pierre Belfort" a écrit
dans le message de news:

Bonjour,

J'ai créer une base de donnée avec les noms de mes petites amies, puis
j'ai
créer un bouton permetant d'aller directement sur la ligne de la personne
ou
le cas échéant dire qu'elle n'existe pas!

Voici le code :

Sub cherche2()
nomCherche = InputBox("Nom cherché ?")
Set result = Sheets("Noms").Range("A10:A10000").Find(What:=nomCherche,
LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Nom inconnu"
Else
Sheets("Noms").Select
Range(result, result.End(xlToRight)).Select
End If
End Sub

Il marchait très bien jusqu'a ce que je me rends compte que si je cherche
juste une lettre, il va me selectionner le premier nom qui commence par
cette
lettre,

Voyez vous une solution ?
JPB


Avatar
lSteph
;o))))

Lokin formulas or values

lSteph
(Tu disais "pieds dans le plat", d'ici j'aperçois des mains "en
surface",z'ont encore mis du Beaujolais là dedans )
"jps" a écrit dans le message de news:

bonsoir jean-pierre
je pense qu'il faille que tu regardes du côté des diverses possiblités
offertes par le LookIn
je ne suis pas très fortiche mais je crois me souvenir qu'il y a Part ou
un truc de ce genre pour chercher à l'intérieur d'une chaîne...
si j'ai juste, n'hésite pas à m'envoyer ton fichier!!!!!
jps

"Jean Pierre Belfort" a
écrit dans le message de news:

Bonjour,

J'ai créer une base de donnée avec les noms de mes petites amies, puis
j'ai
créer un bouton permetant d'aller directement sur la ligne de la personne
ou
le cas échéant dire qu'elle n'existe pas!

Voici le code :

Sub cherche2()
nomCherche = InputBox("Nom cherché ?")
Set result = Sheets("Noms").Range("A10:A10000").Find(What:=nomCherche,
LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Nom inconnu"
Else
Sheets("Noms").Select
Range(result, result.End(xlToRight)).Select
End If
End Sub

Il marchait très bien jusqu'a ce que je me rends compte que si je cherche
juste une lettre, il va me selectionner le premier nom qui commence par
cette
lettre,

Voyez vous une solution ?
JPB






Avatar
jps
lookin, lookat, c'est synagogue, non?
jps (qui n'a qu'une grosse machette pour défricher)


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

;o))))

Lokin formulas or values

lSteph
(Tu disais "pieds dans le plat", d'ici j'aperçois des mains "en
surface",z'ont encore mis du Beaujolais là dedans )
"jps" a écrit dans le message de news:

bonsoir jean-pierre
je pense qu'il faille que tu regardes du côté des diverses possiblités
offertes par le LookIn
je ne suis pas très fortiche mais je crois me souvenir qu'il y a Part ou
un truc de ce genre pour chercher à l'intérieur d'une chaîne...
si j'ai juste, n'hésite pas à m'envoyer ton fichier!!!!!
jps

"Jean Pierre Belfort" a
écrit dans le message de news:

Bonjour,

J'ai créer une base de donnée avec les noms de mes petites amies, puis
j'ai
créer un bouton permetant d'aller directement sur la ligne de la
personne ou
le cas échéant dire qu'elle n'existe pas!

Voici le code :

Sub cherche2()
nomCherche = InputBox("Nom cherché ?")
Set result =
Sheets("Noms").Range("A10:A10000").Find(What:=nomCherche,
LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Nom inconnu"
Else
Sheets("Noms").Select
Range(result, result.End(xlToRight)).Select
End If
End Sub

Il marchait très bien jusqu'a ce que je me rends compte que si je
cherche
juste une lettre, il va me selectionner le premier nom qui commence par
cette
lettre,

Voyez vous une solution ?
JPB










Avatar
Jean Pierre Belfort
Merci à tous pour vos réponses,

Mais aujourd'hui le code marche normalement... Ah!! les programmes...
La Solution de ISteph marche aussi,

Merci
JPB