Bonjour à tous,
Je lance une macro en cliquant sur un texte ( "Validation" pour ne pas le nommer). Lorsque je lance cette macro je souhaiterai récupérer les coordonnées de la cellule contenant ce texte.
Merci par avance pour vos solutions
Version imprimable
Bonjour à tous,
Je lance une macro en cliquant sur un texte ( "Validation" pour ne pas le nommer). Lorsque je lance cette macro je souhaiterai récupérer les coordonnées de la cellule contenant ce texte.
Merci par avance pour vos solutions
Bonjour.
Je pense que tu veux :
A+Code:activeCell.address
Merci beaucoup
A+
Ce que je voudrais maintenant, c'est initialiser une variable avec activeCell.address pour pouvoir l'utiliser dans une autre macro. Le souci c'est que la macro dans laquelle je récupère activeCell.address est de type Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal _Target As Range).
Et j'avoue qu'à la lecture des discussions sur le sujet, je suis perdu !
Merci encore d'abuser de votre aide
Bonjour,
Plutôt que l'adresse, il vaut mieux mémoriser la cellule, cela permet de retrouver la feuille à laquelle elle appartient (et si besoin le classeur).
Et il est préférable d'éviter ActiveCell, ça réserve souvent des surprises.
Par exemple, dans un module standard :
et dans le module du classeurCode:
1
2
3
4
5
6
7
8
9 Option Explicit Public MaCellule As Range Sub Test() If Not MaCellule Is Nothing Then MsgBox MaCellule.Parent.Name & " " & MaCellule.Address Else MsgBox "MaCellule n'est pas initialisée" End If End Sub
Code:
1
2
3
4 Option Explicit Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Set MaCellule = Target.Cells(1, 1) End Sub
Merci Patrick,
J'ai tout de même un souci, dans l'éditeur VBA je ne peux rien insérer avec un Sub ..() que celui-ci soit private ou non