Rechercher : dans
Par :

[Excel Macro] ptite macro de recherche simple

Dernière réponse le 18 fév 2008 à 12:07:06 LeMarquis, le 18 avr 2007 à 11:48:22 
 Signaler ce message aux modérateurs

Bonjour j'ai un petit problème sous excel. Je suis débutant en macro. Ce que je souhaite faire c'est rechercher dans une colonne (par exemple la colone B où j'ai des noms), si le nom "tartampion" existe. Si oui je souhaite récupérer le numéro de la ligne où se trouve tartampion, si le nom n'exite pas je souhaite donc aller à la dernière ligne.

Merci, pour votre aide!

Cordialement

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « [Excel Macro] ptite macro de recherche simple » dans :
Eviter les doublons dans Excel VoirEviter les doublons lors d'un encodage dans un colonne de feuille excel: prendre le format conditionnel sur le première cellule sous les titres (par ex A2) choisir la formule suivante : =NB.SI($A$2:$A$21;A2)>1 mettre là la couleur de fond...
Listes déroulantes simples avec Excel VoirDans votre tableau, vous souhaitez insérer un texte ou une valeur choisi dans une liste (déroulante). vous créez votre liste, ligne aprés ligne, sur votre feuille en cours ou sur une autre feuille du classeur en cours. vous la nommez : INSERTION...
PHP - Créer un moteur de recherche VoirIdée générale Le moteur de recherche ci-dessous ne correspond qu'à une idée possible de moteur de recherche simple, ne gérant qu'un seul mot clé. Le concept du fonctionnement de ce moteur est de créer une base de donnée contenant les mots clés de...

1

bafariac, le 18 avr 2007 à 12:15:51

Si tu cherches un nom sous excel,
La commande que tu cherches est Vlookup

Sous VB, tu es obligé de faire une boucle:
Je ne suis pas très bon mais ça marche qd même....

Sub recherche()

Message = "Entre le nom à chercher"
Title = "Recherche d'une nom"
MyValue = InputBox(Message, Title, Default)
Range("A1").Select 'entre la première cellule de la colonne des noms
For I = 1 To xxx 'max de ligne dans ta colonne
If ActiveCell.Value = MyValue Then GoTo Fin
If ActiveCell.Value = "" Then GoTo Fin
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Fin:
End Sub

Répondre à bafariac

2

LeMarquis, le 18 avr 2007 à 13:52:59
  • +2

Résolu. Merci. c'est bon ça marche. (je sais pas comment il faut faire pour dir eque le prob est résolu)

Répondre à LeMarquis

3

slolo2000, le 18 avr 2007 à 14:16:22

Au début de ton message tu as la possibilité de dire si ton problème est résolu ou pas via des radios boutons et un bouton de validation.

Répondre à slolo2000

4

Cameron 52, le 5 jun 2007 à 19:10:16
  • +1

Désolé mais quand je fais cette manipulation, la recherche ne se fais pas il m'envoie en A1

Répondre à Cameron 52

5

 poupie, le 18 fév 2008 à 12:07:06
  • +2

Salut, pourkoi tu n'utilise pas plutôt les fonctions Index et Equiv.

Répondre à poupie
Collection CommentÇaMarche.net