Insérer les coordonnées de la cellule active dans une cellule

Résolu/Fermé

pierreasse43240 - 25 sept. 2017 à 13:51
pierreasse43240 - 25 sept. 2017 à 23:47

Bonjour,

Je pense que mon titre est assez clair.
Par exemple supposons que dans le cellule D4 il y ait marqué C5. J'aimerais faire en sorte que dans la cellule C5 il y soit marqué les coordonnées de la cellule active, donc "D4"
Je ne parviens pas a trouver une syntaxe avec localaddress, range et activecell. C'est pourtant simple, mais je n'y arrive pas. Help

A voir également:

Vba coordonnées cellule active
Coordonnées gps - Guide
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Aller à la ligne dans une cellule excel - Guide
Si cellule contient texte alors ✓ - Forum Excel

4 réponses

Réponse 1 / 4

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
Modifié le 25 sept. 2017 à 14:40

Bonjour,

Exemple type :

Public Sub Test()

    Range("D5").Select
    Range("C5").Value = AdresseDeCellule(ActiveCell)
    
End Sub

Private Function AdresseDeCellule(ByVal pCible As Range) As String

    AdresseDeCellule = ""
    If Not (pCible Is Nothing) Then
        AdresseDeCellule = pCible.Address
    End If
    
End Function

note. L'instruction [.Address ] renvoie une adresse absolue (i.e. [ $C$5 ].

K

Réponse 3 / 4

pierreasse43240 Messages postés 2 Date d'inscription vendredi 25 septembre 2015 Statut Membre Dernière intervention 25 septembre 2017
25 sept. 2017 à 20:58

En faite je suis parvenu à afficher un texte aux coordonnées présentes dans la cellule active, par exemple :

Sub test()
Range(ActiveCell) = "affichertexte"
End Sub

Je pensais simplement à modifier la partie de droite (car en théorie on veut toujours afficher quelque chose aux coordonnées présentes dans la cellule active. C'est juste que cette fois je veux afficher les coordonées de cette cellule active. J'avais pensé :

Sub test()
Range(ActiveCell) = ActiveCell.AddressLocal
End Sub

Le seul pb, c'est qu'il y a le symbole $ devant la ligne et la colonne afichée. J'y suis presque ...

François
25 sept. 2017 à 23:14

Nouveau code VBA :


Sub test()
  Range(ActiveCell) = ActiveCell.Address(0, 0)
End Sub

François

Discussions similaires

remonter valeurs si cellule vide sans supprimer colonne

Afficher toutes les lignes masquées excel

supprimer lignes vides automatiquement excel

Erreur 1004 - Erreur définie par l'application ou par l'objet

Projet ou bibliothèque introuvable

extraction données web/excel VBA

Discussions similaires

Newsletters