selection pour un find

**zandru** · 29/10/2009, 11h19

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

    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 ?

**jfontaine** · 29/10/2009, 12h01

Bonjour,

si tu connais une cellule du tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bon courage

**mercatog** · 29/10/2009, 12h19

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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