[XL-2003] fonction qui renvoit les coordonnées d'une cellule (As Range) [Résolu]

[hallscar]

Bonjour,

Je souhaite programmer une fonction qui me renvoit les coodonnées d'une cellule trouvée:

Code :

Sub Test () As Range

Le problème est que je n'arrive pas à faire le renvoi de la cellule trouvée.

Une méthode?

@+

[LouiMz]

Bonjour,

Vous avez la méthode Adress qui vous renvoie les coordonnées d'une cellule:

Attention les coordonnées renvoyées sont de la forme "$A$4"

Par exemple :

Code :

1
2
3
4
5
6
7
8
9
Sub test()
 
Dim i As String
 
i = ActiveCell.Address
 
Range(i).Select
 
End Sub

De ce fait vous pouvez renvoyer un String avec votre fonction.

[Ormonth]

Bonjour,

Attention les coordonnées renvoyées sont de la forme "$A$4"

Lire l'aide VBA

Envoyé par Aide VBA

Range.Address, propriété

expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)

RowAbsolute Facultatif Variante Il a la valeur True pour renvoyer la section de la ligne dans la référence sous la forme d'une référence absolue. La valeur par défaut est True.
ColumnAbsolute Facultatif Variante Il a la valeur True pour renvoyer la colonne de la ligne dans la référence sous la forme d'une référence absolue. La valeur par défaut est True.

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

[Qwazerty]

Salut

Il faut créer une fonction pas une procedure(Sub)

Code :

1
2
3
4
5
Function Teste() As range
 
Set Teste = ActiveCell
 
End Function

Et si tu ne veux que les coordonnées (j'ai pas trop compris ce que tu voulais exactement)

Code :

1
2
3
4
5
Function Teste2() As String
 
Teste2 = ActiveCell.Address
 
End Function

++
Qwaz

[hallscar]

Merci pour votre aide.

J'ai créé une fonction qui recherche une valeur dans une plage de données et renvoi la valeur de la cellule trouvée.

La cellule trouvée correspond en fait au titre d'une colonne. Connaissant la colonne, je souhaite ensuite faire des modifications sur cette colonnes (ce qui nécessite de connaitre la colonne exacte).
(Je veux néanmoins un code générique, car je souhaite pouvoir faire la même chose avec des lignes par la suite)

Peu être qu'une méthode permet de retranscrire le String "$C$35" en Range (en considérant que $ est un séparateur?)

@+

[Qwazerty]

Salut

Je ne comprend pas bien ce que tu cherches à faire, je serais toi, je développerai un peu plus mon besoin.
Certains de tes propos me laisse à penser qu'une partie du travail pourrait être réalisé avec des fonctions existantes, comme par exemple la recherche de l'adresse d'une cellule en fonction de sont contenu.

Pour interpréter la chaîne "$B$25" comme tant l'adresse d'une cellule dans une formule, il te faut utiliser la fonction Indirect().

++
Qwaz