recupérer adresse cellule

[flamel]

Bonjour.

Comment récupérer en VBA l'adresse d'une cellule sélectionner dans une feuille ?

Merci.

 

[Eric C]

Bonjour le forum
Bonjour flamel

Une solution :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A1:N40')) Is Nothing Then
MsgBox 'Click on ' & Target.Address
End If
End Sub

Ici j'ai utilisé la plage visible sur mon écran. A adapter.

Bon dimanche à toutes & à tous

 

[flamel]

Merci Eric C

Ca ne marche pas, je n'arrive pas à ouvrir msgbox.
Je suis en panne et je ne vois pas ce qui se passe, ni ce qu'il ma manque.

 

[coco_lapin]

Bonjour à tous;

Ma méthode:

'pour récuperer adresse
Adresse = ActiveCell.Address

'pour récuperer numéro de ligne et colonne
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column


Tiens donc, bonjour Eric C, mais il me semble connaître une de tes connaissances. Non?

Message édité par: coco_lapin, à: 15/01/2006 10:09

 

[flamel]

Merci coco_lapin et bonjour à tous.

Je récupère bien Ligne et Colonne, mais en passant par un bouton installé sur la feuille.

Je souhaiterais récupérer l'adresse simplement par un clic sur une cellule de la feuille. Est-ce possible ?

Merci pour les aides.

 

[excalibur]

bonjour tous le monde tu peus un truc comme cela double clic sur une cell au niveau de l evenement Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox ActiveCell.Address
End Sub' a adapter salutations

 

[didier09]

Bonjour le fil,
le code fournit par Eric C fonctionne bien chez moi. j'utilise Excel 2003 et Win Xp.
Cette macro est à copier dans le code de la feuille et pas dans un module.
Bon dimanche
Didier

 

[flamel]

Merci didier09.

Ca marche.
Je n'avais pas mis les instruction dans le code de la feuille !

Et maintenant, je pense pouvoir récupérer les données dans une procédure.

Merci beaucoup

 

[Carthman]

Re : recupérer adresse cellule

Bonsoir !

Voilà je me sers de ce topic, mais j'ai une question très bête (désolé !)

Voilà je voudrais faire un test : si la cellule active est A1, alors j'arrete le sub.

If activecell = A10 then
Exit sub

Cela ne marche pas je ne sais pas comment m'y prendre !

Merci

 

[Cousinhub]

Re : recupérer adresse cellule

Bonsoir,
Et félicitations pour ta recherche

Essaye :

If ActiveCell.Address = "$A$10" Then Exit Sub

 

[Carthman]

Re : recupérer adresse cellule

Ahhh merci beaucoup !!!

Je cherchais depuis un bon moment, je voyais beaucoup de Activecell, mais pas avec un = derrière donc je pouvais pas vraiment voir comment trouver la cellule en fonction de son adresse !

Et pourquoi félicitations ? Parce-que j'ai cherché au lieu de faire un nouveau topic ?

En tous cas merci beaucoup, c'était très bête, mais je suis débutant, et c'est avec des gens comme toi qu'on y arrive !
Encore merci

 

[Carthman]

Re : recupérer adresse cellule

C'est encore moi !!!
Je reposte sur ce message, car mon nouveau problème est un peu du même ordre.

Je cherche à connaitre comment on peut nommer une cellule dont la ligne est variable ?

Je m'explique : pour l'affichage d'une base de données, j'ai fai en sorte que suivant l'enregistrement qu'on consulte, la ligne de cet enregistrement est sélectionnée. Suivant si on va à l'enregistrement d'avant ou d'après, la valeur de la ligne à sélectionner est mofidiée avec l'incrémentation d'une variable (Rows("21" + comptdeca).Select avec comptdeca qui est la variable).

Je cherche maintenant à modifier cette ligne, Je copie une plage de cellule que je veux coller sur cette ligne. Problème : la première colonne n'est pas utilisée ! Comment dire alors que je veux copier à partir de la colonne B jusqu'à la colonne X de la ligne " "21" + comptdeca " ???

Je bloque sur des petits trucs comme ça qui sont surement trrès simples, mais bon.

Merci de votre aide

 

[cbea]

Re : recupérer adresse cellule

Bonjour Carthman,

Que contient "comptdeca" ? Un nombre de lignes ?

Merci

 

[Carthman]

Re : recupérer adresse cellule

Bah plus ou moins.
En fait c'est plus la position par rapport à la ligne 21 de la ligne en consultation.
La consultation marche nickel, c'est juste la modification qui bloque car je colle les nouvelles valeurs à l'endroit de la ligne en consultation, qui est 21+comptdeca.
La colonne A est masquée donc en fait si je sélectionne la ligne 21+comptdeca, ça copie pas comme il faut en commençant par A.
Il me faudrait soit la méthode pour désignée la cellule en B, soit la méthode pour coller en décallant de 1 case vers la droite.

Merci de votre attention

 

[cbea]

Re : recupérer adresse cellule

re,

Cela peut être comme cela :

Worksheets("Feuil1").Range("B21:M" & 21 + comptdeca).Copy _
    Destination:=Worksheets("Feuil2").Range("A2")