selection pour un find

Bonjour,

Je souhaite faire un find sur une plage de cellule.
Je ne connait que la cellule de début de la plage (7,33) mais pas la fin.
En effet je peux avoir un nombre N de ligne et un nombre N de colonne par ligne.

Code:

---

result = Feuil1.Range(Feuil1.Cells(7, 33), Feuil1.Cells(Feuil1.Cells(Rows.Count, 4).End(xlUp).Row, colonnedefin)).Find(element, Feuil1.Cells(7, 33), xlValues, xlWhole)

---

j'ai la dernière ligne (avec "Feuil1.Cells(Rows.Count, 4).End(xlUp).Row") mais il me manque "colonnedefin". Je n'arrive pas à la trouver car il me faut la dernière colonne de la ligne la plus longue pour encadrer la plage.

Pouvez-vous m'aider ?

Bonjour,

si tu connais une cellule du tableau

Code:

---

1 2 3 4 5

Dim r as Range Cells(7, 33).select Set r = Selection.CurrentRegion.Find("Texte") MsgBox r.Address

---

Bon courage

ou

Code:

---

1 2 3 4 5 6

dim Feuil1 as worksheet Dim Plage As Range ... Set Plage = Feuil1.UsedRange Plage.Select 'Pour vérifier

---

bien sûr ça sélectionne toute la plage de A1 à la cellule d'intersection de la dernière ligne renseignée et à la dernière colonne renseignée.

la proposition de jfontaine fonctionne à la condition qu'aucune ligne ou colonne n'est vide dans la plage à selectionner

Bonjour à tous,

As-tu essayé avec :

Code:

---

CurrentRegion

---

Merci ! :ccool:

Le "currentregion" était bien ce qu'il me fallait.