localiser une cellule

Bonjour tout le monde

Désoler mon titre est peut être mal choisie mais pas facile de trouver plus explicite

J'ai une feuille de calcule toute simple avec en colonne A, une liste de personne

ex:
A1 = toto
A2 = tata
A3 = arthur
.
.
.
A25 = jinnette
.
.
.
(on ne c'est pas combien il y a de ligne a parcourir)

comment faire pour parcourir toute les ligne de la colonne A a la recherche de jinnette et récupéré dans une variable, la ligne ou se trouve jinnette.

Petite complication , ma liste de personne ne commence en réalité qu'a partir de la ligne 16

merci de votre aide

Bonjour,

Penches toi sur l'instruction Find qui devrait faire ton bonheur

je n'est pas réussi a comprendre la fonction Find mais je me suis débrouiller différament.

ma méthode consiste a compter combien j'ai de ligne dans ma feuille de calcul et stocker se nombre dans une variable

avec une boucle "pour" de la ligne 1 a la derniere ligne je recherche le nom de mon choix

des que je le trouve je regarde dans ma boucle a quel ligne je suis est je stock dans une variable

je donne l'extrait du code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim compteur_ligne As Integer Dim nb_ligne_total As Integer Dim start As Integer Dim nom_feuille As String   nom_feuille = ActiveSheet.Name 'recupere le nom de la feuille Worksheets(nom_feuille).Activate 'active la feuille (rend accecible les cellule de cette feuille) nb_ligne_total = (Cells(Rows.Count, 1).End(xlUp).Row) + 1   With ActiveSheet For compteur_ligne = 1 To nb_ligne_total 'If .Cells(compteur_ligne, 1) = "JANVIER" or "AVRIL" or "JUILLET" or "OCTOBRE" then If .Cells(compteur_ligne, 1) = "OCTOBRE" Then start = compteur_ligne End If Next compteur_ligne End With

---

par contre dans mon code j'ai un petit sousi

je voudrais stocker la ligne de la boucle si dans ma cellule je lis janvier,avril,juillet ou octobre

mais mon IF n'accepte pas les OR !!!

c'est quoi mon erreur??

j'ai consience que si dans la boucle il en rencontre 2, la ligne du deuxieme écrasera la ligne du premier mais c'est normal :mouarf:

merci de votre aide

Salut teen6517;

Alors je te propose quelque chose et tu modifieras selon ton gout et ton application

Code:

---

1 2 3 4 5 6 7 8 9

With Range("A16",Range("A16").End(xlDown)) Set c=.Find("jinnette",LookIn:=xlValues,LookAt:=xlWhole) If Not c Is Nothing Then '..... ' ..... Else 'Prénom non trouvé End If End With

---

Tu peux enlever "LookAt:=xlWhole" si tes cellules contiennent le nom + prénom

Je reste à ta disposition.

+++
LabChNe

Voici comment utiliser l'instruction find

Code:

---

1 2 3 4 5 6

Dim rg As Range   Set rg = Range("A:A").Find("jinnette")   MsgBox rg.Address

---

Merci a tous les deux

Désolé labchne mais trop de mot inconnue a mon gout dans ta solution je suis pas une terreur du VB c'est plutot lui qui me fait peur ^^:aie:

Jfontaine tes ligne son plus claire
je vais tester se qui se trouve dans la variable rg mais j'apréande la réponce car a mon avie c'est pas un numéro de ligne :?


petit edit pour pas faire du multi postage
jpcheck si tu repasse sur se sujet tu peus remetre le code de labchne sur plusieur ligne, je c'est pas se que ta fait en voulent le metre dans la balise "code" mais la il est devenu ilisible
merci

rg étant une variable de type cellule (Range), elle se comporte de la meme façon.

Pour avoir le numero de ligne

Code:

---

rg.Row

---

Merci sa marche niquel ;)