Récupérer l'adresse de la cellule ou pointe la souris
4 réponses
keawee
Bonjour,
Je souhaiterais vous poser une question concernant les=20
fonctions dans excel. J'aimerais r=E9cup=E9rer dans une=20
variable range l'adresse de la cellule ou pointe ma souris=20
sous la forme range comme par exemple Range("A1"). Comment=20
faire ceci?.
J'avais commenc=E9 par ceci:
Function test()
Dim toto As Range
toto =3D ?
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour keawee,
Si tu veux obtenir ce que tu désires, tu dois sélectionner la cellule... et tu pourrais utiliser ceci, à placer dans le module feuille où l'action se déroule. Je te fais remarquer que tu peux obtenir la même chose en observant dans la case à extrême gauche de la barre des formules... l'adresse de la cellule active apparaît dans la case ! Cette procédure te donnera en plus, l'étendue de la plage sélectionnée ... pas seulement la cellule active .
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address(0, 0)
End Sub '------------------
Salutations!
"keawee" a écrit dans le message de news:d09d01c43998$f4f16710$
Bonjour,
Je souhaiterais vous poser une question concernant les fonctions dans excel. J'aimerais récupérer dans une variable range l'adresse de la cellule ou pointe ma souris sous la forme range comme par exemple Range("A1"). Comment faire ceci?.
J'avais commencé par ceci:
Function test() Dim toto As Range toto = ? End Function
Merci par avance
Keawee
Bonjour keawee,
Si tu veux obtenir ce que tu désires, tu dois sélectionner la cellule... et tu pourrais utiliser ceci, à placer dans le
module feuille où l'action se déroule.
Je te fais remarquer que tu peux obtenir la même chose en observant dans la case à extrême gauche de la barre des
formules... l'adresse de la cellule active apparaît dans la case ! Cette procédure te donnera en plus, l'étendue de la
plage sélectionnée ... pas seulement la cellule active .
'------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address(0, 0)
End Sub
'------------------
Salutations!
"keawee" <anonymous@discussions.microsoft.com> a écrit dans le message de news:d09d01c43998$f4f16710$a001280a@phx.gbl...
Bonjour,
Je souhaiterais vous poser une question concernant les
fonctions dans excel. J'aimerais récupérer dans une
variable range l'adresse de la cellule ou pointe ma souris
sous la forme range comme par exemple Range("A1"). Comment
faire ceci?.
J'avais commencé par ceci:
Function test()
Dim toto As Range
toto = ?
End Function
Si tu veux obtenir ce que tu désires, tu dois sélectionner la cellule... et tu pourrais utiliser ceci, à placer dans le module feuille où l'action se déroule. Je te fais remarquer que tu peux obtenir la même chose en observant dans la case à extrême gauche de la barre des formules... l'adresse de la cellule active apparaît dans la case ! Cette procédure te donnera en plus, l'étendue de la plage sélectionnée ... pas seulement la cellule active .
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address(0, 0)
End Sub '------------------
Salutations!
"keawee" a écrit dans le message de news:d09d01c43998$f4f16710$
Bonjour,
Je souhaiterais vous poser une question concernant les fonctions dans excel. J'aimerais récupérer dans une variable range l'adresse de la cellule ou pointe ma souris sous la forme range comme par exemple Range("A1"). Comment faire ceci?.
J'avais commencé par ceci:
Function test() Dim toto As Range toto = ? End Function
Merci par avance
Keawee
Keawee
Merci Jean-Mich,
J'ai trouvé une partie de la réponse mais j'ai encore u petit problème. Je récupére les coordonnées de la cellule ou ma j'ai cliqué ma souris mais maintenant je souhaite faire un OffSet de 2 lignes et 3 colonnes sur ma variable position en un mot me déplacer par le code et donc de passer d'une cellule à une autre puis intégrer l'ensemble dans un Worksheet("mafeuille").Range(Position).OffSet mais je ne sais pas comment faire.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Position As Variant Dim sh As Worksheet Dim titi As Variant Dim rg As Range
Position = Replace(Target.Address, Chr(36), "") Position = Position
End Sub
Merci
Keawee
-----Message d'origine----- Bonjour keawee,
Si tu veux obtenir ce que tu désires, tu dois sélectionner la cellule... et tu pourrais utiliser ceci, à
placer dans le
module feuille où l'action se déroule. Je te fais remarquer que tu peux obtenir la même chose en observant dans la case à extrême gauche de la barre des
formules... l'adresse de la cellule active apparaît dans la case ! Cette procédure te donnera en plus, l'étendue de
la
plage sélectionnée ... pas seulement la cellule active .
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address(0, 0)
End Sub '------------------
Salutations!
"keawee" a écrit dans le message de news:d09d01c43998$f4f16710
$
Bonjour,
Je souhaiterais vous poser une question concernant les fonctions dans excel. J'aimerais récupérer dans une variable range l'adresse de la cellule ou pointe ma souris sous la forme range comme par exemple Range("A1"). Comment faire ceci?.
J'avais commencé par ceci:
Function test() Dim toto As Range toto = ? End Function
Merci par avance
Keawee
.
Merci Jean-Mich,
J'ai trouvé une partie de la réponse mais j'ai encore u
petit problème. Je récupére les coordonnées de la cellule
ou ma j'ai cliqué ma souris mais maintenant je souhaite
faire un OffSet de 2 lignes et 3 colonnes sur ma variable
position en un mot me déplacer par le code et donc de
passer d'une cellule à une autre puis intégrer l'ensemble
dans un Worksheet("mafeuille").Range(Position).OffSet mais
je ne sais pas comment faire.
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Dim Position As Variant
Dim sh As Worksheet
Dim titi As Variant
Dim rg As Range
Position = Replace(Target.Address, Chr(36), "")
Position = Position
End Sub
Merci
Keawee
-----Message d'origine-----
Bonjour keawee,
Si tu veux obtenir ce que tu désires, tu dois
sélectionner la cellule... et tu pourrais utiliser ceci, à
placer dans le
module feuille où l'action se déroule.
Je te fais remarquer que tu peux obtenir la même chose en
observant dans la case à extrême gauche de la barre des
formules... l'adresse de la cellule active apparaît dans
la case ! Cette procédure te donnera en plus, l'étendue de
la
plage sélectionnée ... pas seulement la cellule active .
'------------------
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Range("A1") = Target.Address(0, 0)
End Sub
'------------------
Salutations!
"keawee" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:d09d01c43998$f4f16710
$a001280a@phx.gbl...
Bonjour,
Je souhaiterais vous poser une question concernant les
fonctions dans excel. J'aimerais récupérer dans une
variable range l'adresse de la cellule ou pointe ma souris
sous la forme range comme par exemple Range("A1"). Comment
faire ceci?.
J'avais commencé par ceci:
Function test()
Dim toto As Range
toto = ?
End Function
J'ai trouvé une partie de la réponse mais j'ai encore u petit problème. Je récupére les coordonnées de la cellule ou ma j'ai cliqué ma souris mais maintenant je souhaite faire un OffSet de 2 lignes et 3 colonnes sur ma variable position en un mot me déplacer par le code et donc de passer d'une cellule à une autre puis intégrer l'ensemble dans un Worksheet("mafeuille").Range(Position).OffSet mais je ne sais pas comment faire.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Position As Variant Dim sh As Worksheet Dim titi As Variant Dim rg As Range
Position = Replace(Target.Address, Chr(36), "") Position = Position
End Sub
Merci
Keawee
-----Message d'origine----- Bonjour keawee,
Si tu veux obtenir ce que tu désires, tu dois sélectionner la cellule... et tu pourrais utiliser ceci, à
placer dans le
module feuille où l'action se déroule. Je te fais remarquer que tu peux obtenir la même chose en observant dans la case à extrême gauche de la barre des
formules... l'adresse de la cellule active apparaît dans la case ! Cette procédure te donnera en plus, l'étendue de
la
plage sélectionnée ... pas seulement la cellule active .
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address(0, 0)
End Sub '------------------
Salutations!
"keawee" a écrit dans le message de news:d09d01c43998$f4f16710
$
Bonjour,
Je souhaiterais vous poser une question concernant les fonctions dans excel. J'aimerais récupérer dans une variable range l'adresse de la cellule ou pointe ma souris sous la forme range comme par exemple Range("A1"). Comment faire ceci?.
J'avais commencé par ceci:
Function test() Dim toto As Range toto = ? End Function
Merci par avance
Keawee
.
michdenis
Bonjour Keawee,
Je n'ai pas saisi ce que tu veux faire ... mais essaie ceci question de te donner des idées.
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Position As String, Rg As Range
Set Rg = Target.Address(0, 0).Offset(2, 3)
Position = Rg.Address(0,0)
End Sub '------------------
Salutations!
"Keawee" a écrit dans le message de news:cfff01c439b1$1d8470b0$ Merci Jean-Mich,
J'ai trouvé une partie de la réponse mais j'ai encore u petit problème. Je récupére les coordonnées de la cellule ou ma j'ai cliqué ma souris mais maintenant je souhaite faire un OffSet de 2 lignes et 3 colonnes sur ma variable position en un mot me déplacer par le code et donc de passer d'une cellule à une autre puis intégrer l'ensemble dans un Worksheet("mafeuille").Range(Position).OffSet mais je ne sais pas comment faire.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Position As Variant Dim sh As Worksheet Dim titi As Variant Dim rg As Range
Position = Replace(Target.Address, Chr(36), "") Position = Position
End Sub
Merci
Keawee
-----Message d'origine----- Bonjour keawee,
Si tu veux obtenir ce que tu désires, tu dois sélectionner la cellule... et tu pourrais utiliser ceci, à
placer dans le
module feuille où l'action se déroule. Je te fais remarquer que tu peux obtenir la même chose en observant dans la case à extrême gauche de la barre des
formules... l'adresse de la cellule active apparaît dans la case ! Cette procédure te donnera en plus, l'étendue de
la
plage sélectionnée ... pas seulement la cellule active .
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address(0, 0)
End Sub '------------------
Salutations!
"keawee" a écrit dans le message de news:d09d01c43998$f4f16710
$
Bonjour,
Je souhaiterais vous poser une question concernant les fonctions dans excel. J'aimerais récupérer dans une variable range l'adresse de la cellule ou pointe ma souris sous la forme range comme par exemple Range("A1"). Comment faire ceci?.
J'avais commencé par ceci:
Function test() Dim toto As Range toto = ? End Function
Merci par avance
Keawee
.
Bonjour Keawee,
Je n'ai pas saisi ce que tu veux faire ... mais essaie ceci question de te donner des idées.
'------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Position As String, Rg As Range
Set Rg = Target.Address(0, 0).Offset(2, 3)
Position = Rg.Address(0,0)
End Sub
'------------------
Salutations!
"Keawee" <anonymous@discussions.microsoft.com> a écrit dans le message de news:cfff01c439b1$1d8470b0$a401280a@phx.gbl...
Merci Jean-Mich,
J'ai trouvé une partie de la réponse mais j'ai encore u
petit problème. Je récupére les coordonnées de la cellule
ou ma j'ai cliqué ma souris mais maintenant je souhaite
faire un OffSet de 2 lignes et 3 colonnes sur ma variable
position en un mot me déplacer par le code et donc de
passer d'une cellule à une autre puis intégrer l'ensemble
dans un Worksheet("mafeuille").Range(Position).OffSet mais
je ne sais pas comment faire.
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Dim Position As Variant
Dim sh As Worksheet
Dim titi As Variant
Dim rg As Range
Position = Replace(Target.Address, Chr(36), "")
Position = Position
End Sub
Merci
Keawee
-----Message d'origine-----
Bonjour keawee,
Si tu veux obtenir ce que tu désires, tu dois
sélectionner la cellule... et tu pourrais utiliser ceci, à
placer dans le
module feuille où l'action se déroule.
Je te fais remarquer que tu peux obtenir la même chose en
observant dans la case à extrême gauche de la barre des
formules... l'adresse de la cellule active apparaît dans
la case ! Cette procédure te donnera en plus, l'étendue de
la
plage sélectionnée ... pas seulement la cellule active .
'------------------
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Range("A1") = Target.Address(0, 0)
End Sub
'------------------
Salutations!
"keawee" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:d09d01c43998$f4f16710
$a001280a@phx.gbl...
Bonjour,
Je souhaiterais vous poser une question concernant les
fonctions dans excel. J'aimerais récupérer dans une
variable range l'adresse de la cellule ou pointe ma souris
sous la forme range comme par exemple Range("A1"). Comment
faire ceci?.
J'avais commencé par ceci:
Function test()
Dim toto As Range
toto = ?
End Function
Je n'ai pas saisi ce que tu veux faire ... mais essaie ceci question de te donner des idées.
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Position As String, Rg As Range
Set Rg = Target.Address(0, 0).Offset(2, 3)
Position = Rg.Address(0,0)
End Sub '------------------
Salutations!
"Keawee" a écrit dans le message de news:cfff01c439b1$1d8470b0$ Merci Jean-Mich,
J'ai trouvé une partie de la réponse mais j'ai encore u petit problème. Je récupére les coordonnées de la cellule ou ma j'ai cliqué ma souris mais maintenant je souhaite faire un OffSet de 2 lignes et 3 colonnes sur ma variable position en un mot me déplacer par le code et donc de passer d'une cellule à une autre puis intégrer l'ensemble dans un Worksheet("mafeuille").Range(Position).OffSet mais je ne sais pas comment faire.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Position As Variant Dim sh As Worksheet Dim titi As Variant Dim rg As Range
Position = Replace(Target.Address, Chr(36), "") Position = Position
End Sub
Merci
Keawee
-----Message d'origine----- Bonjour keawee,
Si tu veux obtenir ce que tu désires, tu dois sélectionner la cellule... et tu pourrais utiliser ceci, à
placer dans le
module feuille où l'action se déroule. Je te fais remarquer que tu peux obtenir la même chose en observant dans la case à extrême gauche de la barre des
formules... l'adresse de la cellule active apparaît dans la case ! Cette procédure te donnera en plus, l'étendue de
la
plage sélectionnée ... pas seulement la cellule active .
'------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address(0, 0)
End Sub '------------------
Salutations!
"keawee" a écrit dans le message de news:d09d01c43998$f4f16710
$
Bonjour,
Je souhaiterais vous poser une question concernant les fonctions dans excel. J'aimerais récupérer dans une variable range l'adresse de la cellule ou pointe ma souris sous la forme range comme par exemple Range("A1"). Comment faire ceci?.
J'avais commencé par ceci:
Function test() Dim toto As Range toto = ? End Function
Merci par avance
Keawee
.
FxM
Bonjour,
Je ne saisis pas bien la nécessité d'une fonction test() qui ne renvoit rien en test=qq chose :o)
toto = activecell.address devrait aller (ça me parait bien simple quand même)
@+ FxM
keawee wrote:
Bonjour,
Je souhaiterais vous poser une question concernant les fonctions dans excel. J'aimerais récupérer dans une variable range l'adresse de la cellule ou pointe ma souris sous la forme range comme par exemple Range("A1"). Comment faire ceci?.
J'avais commencé par ceci:
Function test() Dim toto As Range toto = ? End Function
Merci par avance
Keawee
Bonjour,
Je ne saisis pas bien la nécessité d'une fonction test() qui ne
renvoit rien en test=qq chose :o)
toto = activecell.address devrait aller (ça me parait bien simple
quand même)
@+
FxM
keawee wrote:
Bonjour,
Je souhaiterais vous poser une question concernant les
fonctions dans excel. J'aimerais récupérer dans une
variable range l'adresse de la cellule ou pointe ma souris
sous la forme range comme par exemple Range("A1"). Comment
faire ceci?.
J'avais commencé par ceci:
Function test()
Dim toto As Range
toto = ?
End Function
Je ne saisis pas bien la nécessité d'une fonction test() qui ne renvoit rien en test=qq chose :o)
toto = activecell.address devrait aller (ça me parait bien simple quand même)
@+ FxM
keawee wrote:
Bonjour,
Je souhaiterais vous poser une question concernant les fonctions dans excel. J'aimerais récupérer dans une variable range l'adresse de la cellule ou pointe ma souris sous la forme range comme par exemple Range("A1"). Comment faire ceci?.
J'avais commencé par ceci:
Function test() Dim toto As Range toto = ? End Function
