Discussion :

[Kimy_Ire]

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 :

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

.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 ! =)

[Sogestion]

Bonjour,

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 :

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

1
2
 
NoCol = ActiveCell.Column

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

[Kimy_Ire]

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 :

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

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 ! =)

[gFZT82]

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 :

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

.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 :

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

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

Avec le redimensionnement

Code :

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

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

etc.

Deuxième point

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.

[Kimy_Ire]

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 :

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

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 !

[gFZT82]

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 :

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

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

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.

[Kimy_Ire]

Ok super, j'ai pigé !

Code :

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

.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 !