[Macro excel]selectionner une ligne à partir d'une recherche

Bonjour à tous,

Je galère depuis se matin sur un petit truc mais pas moyen de trouver.

J'ai un grand tableau, 65 colonnes et x lignes.
Il y a deux colonnes (7et8) qui sont rayon et référence.
J'ai fait un userform qui permette à un individu de rentrer le rayon et la référence afin que la macro la trouve dans la tableau.
J'ai réussi à faire la macro pour trouver les lignes, j'ai même le nombre de ligne ou se trouve cette réf et ce rayon.
Mais mon but c'est de sélectionner qu'une ligne afin de prendre quelque donnée qui se trouve sur ces lignes.

Si quelqu'un me m'aider svp

Code:

---

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

'Permet de trouver le nombre de ligne à partir de la colonne 7   Cells(2, 7).Select Ligne = Range(Selection, Selection.End(xlDown)).Rows.Count + 1   'Cherche dans le tableau dans la colonne 7 et 8 le rayon et la référence   compteur = 0 For i = 2 To Ligne   If Cells(i, 7).Value & Cells(i, 8).Value = RechercheRef.Ray.Value & RechercheRef.Ref.Value Then compteur = compteur + 1   End If   Next

---

Bonjour,
alors perso j'ai pas tout compris
Ton utilisateur entre une valeur pour le rayon et la référence, et ensuite tu veux trouver La ligne qui a le mm rayon et la meme référence? ou il peut yen avoir plusieurs et peu importe celle que tu sélectionnes
Si je comprend bien en fait ce que tu veux c'est faire la copie une seule fois et non pas à chaque fois qu'il trouve la paire de valeur choisie
J'imagine que par contre tu souhaites garder le compteur.
Je te conseillerais donc de rajouter un test à l'intérieur de ton test sur ton compteur du style:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

compteur = 0 For i = 2 To Ligne   If Cells(i, 7).Value & Cells(i, 8).Value = RechercheRef.Ray.Value & RechercheRef.Ref.Value Then If compteur=0 then 'la les actions que tu veux effectuer (copie de cellule...) end if compteur = compteur + 1   End If   Next

---

est-ce ca que tu voulais ou suis-je à coté de la plaque
rémi

merci de m'aider

Si t'as bien compris ce que je voulais faire!!!
Mais le compteur j'en ai pas besoin je l'avais utilisé pour faire un essai.
Mon but c'est que si ma recherche me trouve plusieurs lignes (elles seront pareil), je veux juste le numéro de ligne d'une d'elle.

OK
alors dans ce cas je te propose de ne pas faire une boucle for mais une boucle While:

Code:

---

1 2 3 4

i = 1 While Cells(i, 7).Value & Cells(i, 8).Value <> RechercheRef.Ray.Value & RechercheRef.Ref.Value i = i + 1 Wend

---

La boucle s'arrete dès qu'elle trouve ton doublet et la valeur de taligne est alors stockée dans i
rémi

En faite j'ai réussi avec le compteur comme tu m'as expliqué.
Car ça me suffit d'en trouver qu'une.

Code:

---

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

'Permet de trouver le nombre de ligne à partir de la colonne 7   Cells(2, 7).Select Ligne = Range(Selection, Selection.End(xlDown)).Rows.Count + 1   'Cherche dans le tableau dans la colonne 7 et 8 le rayon et la référence   compteur = 0 For i = 2 To Ligne   If Cells(i, 7).Value & Cells(i, 8).Value = RechercheRef.Ray.Value & RechercheRef.Ref.Value Then compteur = compteur + 1 If compteur = 1 Then pays = Cells(i, 10).Value End If End If   Next   MsgBox (pays)

---

oui je sais bien que ca marche mais avec la boucle while tu vas plus vite parceque tu t'arretes dès que tu as trouvé une ligne qui marche et tu parcours plus tous le tableau
en plus ca te permet d'enlenver ta ligne

Code:

---

Ligne = Range(Selection, Selection.End(xlDown)).Rows.Count + 1

---

il faut juste que tu mettes une petite sécu pour pouvoir sortir de ta boucle au cas ou elle trouverais pas de ligne du style:

Code:

---

1 2 3 4 5

i = 1 While Cells(i, 7).Value<>RechercheRef.Ray.Value and Cells(i, 8).Value & i <> RechercheRef.Ref.Value and i<>5000 i = i + 1 Wend if i=5000 then msgbox("La recherche a échouée")

---

par ailleur attention au & dans ton code c'est dangereux
utilise plus des And en énumérant les conditions
rémi

attention erreur dans mon test de sécu:

Code:

---

1 2 3 4 5

i = 1 While Cells(i, 7).Value<>RechercheRef.Ray.Value and Cells(i, 8).Value & i <> RechercheRef.Ref.Value or i<>5000 i = i + 1 Wend if i=5000 then msgbox("La recherche a échouée")

---

avec un or et pas un And pour la dernière condition
dsl:oops: