Discussion :

[hallscar]

Bonjour,

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

Code :

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

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 :

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

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.

[Didier Gonard]

Bonjour,

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

Lire l'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 :

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

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 :

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

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

++
Qwaz