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 à 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 : Sélectionner tout - Visualiser dans une fenêtre à part activeCell.address
Vous voulez une réponse rapide et efficace à vos questions téchniques ?
Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.
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 classeur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Cordialement,
Patrice
Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur
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
Cordialement,
Patrice
Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager