(Optimisation) Range sur une cellule variable

Bonjour à tous,

J'imagine que j'aurais une réponse rapide au vu de la simplicité de la question, mais je n'ai pas trouvé de réponse facile, claire et propre...

J'ai une cellule variable ("M9" par exemple) et je souaite passer par référence cette cellule dans une fonction.

Cette fonction doit ensuite exécuter une recherche sur la colonne entière de la cellule variable.

J'ai actuellement :

Code:

---

.Range(Pos_comp, Pos_comp.Offset(65635 - Pos_comp.Row, 0))

---

Avec "Pos_comp" = position de comparaison de type Range.

Y a-t-il une façon "plus simple" d'y parvenir ?
Merci ! =)

Bonjour,

Citation:

---

J'ai une cellule variable ("M9" par exemple) et je souaite passer par référence cette cellule dans une fonction.

Cette fonction doit ensuite exécuter une recherche sur la colonne entière de la cellule variable.

---

Il faut en premier lieu récupérer le No de la colonne de cette cellule

Code:

---

1 2	NoCol = ActiveCell.Column

---

et ensuite définir la plage de recherche sur la colonne
______________
Cordialement

Cela me pose un problème :

Quand je fais une recherche sur une colonne j'emploie la formule suivante (pour la colonne B par exemple) :

Code:

---

Worksheets("wkst").Range("B:B").Find(search, LookIn:=xlFormulas, lookat:=xlWhole)

---

Or, ce que tu me proposes retourne le numéro de la colonne. Comment puis-je, avec cela faire une recherche sur une colonne complète ?

Merci ! =)

Bonjour,

Premier point
En fait, tu definis ta plage avec une cellule de départ (Pos_comp) et une cellule d'arrivée (dernière cellule de la colonne qui contient Pos_comp).
Pour la cellule d'arrivée, son numéro de colonne est Pos_comp.column et son numéro de ligne est rows.count.
Tu peux donc définir ta plage simplement avec la formule suivante :

Code:

---

.Range(Pos_comp, .Cells(.Rows.Count, Pos_comp.Column))

---

Tu peux également composer avec d'autres formulations :
Avec le décalage (c'est cette propriété qui est utilisée dans ta formule)

Code:

---

.Range(Pos_comp, Pos_comp.Offset(.Rows.Count - Pos_comp.Row, 0))

---

Avec le redimensionnement

Code:

---

Pos_comp.Resize(.Rows.Count - Pos_comp.Row + 1, 1)

---

etc.

Deuxième point

Citation:

---

Worksheets("wkst").Range("B:B").Find(search, LookIn:=xlFormulas, lookat:=xlWhole)

---

Comment tu définis search?
Et tu en fais quoi de cette formule ?

Cordialement.

Ok, je me suis mal exprimé.

Mon but est de faire une recherche sur la colonne entière de ma cellule variable "Pos_comp".
- Soit à partir de la cellule en question, jusqu'en bas de la page
- Soit sur la colonne entière

Donc, pour ce faire, j'ai appliqué la formule suivante :

Code:

---

Worksheets("wkst").Range(Pos_comp, Pos_comp.Offset(65635 - Pos_comp.Row, 0)).Find(search, LookIn:=xlFormulas, lookat:=xlWhole)

---

wkst est le nom de mon onglet
search est une String

Je voulais donc savoir s'il y avait une possibilité de remplacer ".Range(Pos_comp, Pos_comp.Offset(65635 - Pos_comp.Row, 0))" par quelque chose de plus simple.

C'est simplement pour chipoter un peu... Désolé de vous faire perdre votre temps...

Pour autant, à quoi sert ".Rows.Count" ?

Bref, merci, en espérant avoir été plus clair cette fois-ci ! :oops:

Voici un exemple d'utilisation.
La feuille est nommée "wkst".
La variable Search est de type String et sa valeur est "Toto".
On recherche dans la colonne B la cellule qui contient "Toto" et on attribue la référence de cette cellule à la variable Pos_comp.
Si cette cellule existe, on définit "MaPlage" qui correspond à la plage qui débute à Pos_comp et finit à la derniere cellule de la colonne.

Code:

---

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

Option Explicit Sub Test() Dim Pos_comp As Range, MaPlage As Range Dim Search As String Search = "Toto" With Worksheets("wkst") Set Pos_comp = .Range("B:B").Find(Search, LookIn:=xlFormulas, lookat:=xlWhole) If Not Pos_comp Is Nothing Then Set MaPlage = .Range(Pos_comp, .Cells(.Rows.Count, Pos_comp.Column)) End If MsgBox "Plage : " & MaPlage.Address End With Set MaPlage = Nothing: Set Pos_comp = Nothing End Sub

---

Citation:

---

Pour autant, à quoi sert ".Rows.Count" ?

---

Rows.count indique le nombre de lignes de ta feuille.
Il est préférablede l'utiliser plutôt que d'indiquer "en dur" le nombre de ligne (65635 dans ton cas) car ce nombre est différent suivant la version XL.


Cordialement.

Ok super, j'ai pigé !

Code:

---

.Range(Pos_comp, .Cells(.Rows.Count, Pos_comp.Column))

---

=> Pos_comp = position initiale
=> .Cells(.Rows.Count, Pos_comp.Column) est la cellule qui se situe en "dernière ligne de l'onglet" (.Rows.Count) et "à la colonne de Pos_comp" (Pos_comp.Column).

Je ne sais pas si c'est plus "optimisé" mais tu as répondu à ma question !

Merci bcp ! =)

Bien à toi !