Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment obtenir l'adresse de la cellule active dans Excel?

Lorsque vous utilisez Microsoft Excel, vous pouvez facilement obtenir l'emplacement de la cellule actuellement sélectionnée dans la zone de nom qui répertorie à gauche de la barre de formule. Mais si la cellule est nommée, vous ne pouvez pas examiner son emplacement en fonction de l'affichage sur la zone de nom. Et si vous souhaitez afficher directement l'adresse complète de la cellule active, ou afficher l'adresse de la cellule active dans une cellule spécifiée, que feriez-vous? Dans ce tutoriel, nous allons vous montrer comment obtenir facilement l'adresse de la cellule active avec la formule et les méthodes VBA.

Obtenir l'adresse de la cellule active avec la formule
Obtenir l'adresse de la cellule active avec le code VBA
Afficher l'adresse de la cellule active dans une cellule spécifiée avec le code VBA
Afficher dynamiquement l'adresse de la cellule active avec un outil incroyable


Obtenir l'adresse de la cellule active avec la formule

Dans cette section, nous vous fournirons une formule pour obtenir facilement l'adresse de la cellule active.

1. Sélectionnez une cellule pour la rendre active.

2. Entrez la formule ci-dessous, puis appuyez sur la touche Entrer clé.

=ADDRESS(ROW(),COLUMN())

Ensuite, vous pouvez voir l'adresse de la cellule actuellement sélectionnée s'affiche dans la cellule immédiatement.

Notes: Si vous sélectionnez une autre cellule, l'adresse ne changera pas automatiquement. Pour obtenir une adresse dynamique lors de la sélection de différentes cellules, veuillez appliquer les méthodes ci-dessous.

Afficher dynamiquement l'adresse de la cellule active:

En XNUMX, le Barre d'édition améliorée utilité de Kutools pour Excel aide à afficher l'adresse de la cellule active de manière dynamique dans la feuille de calcul dans Excel. En outre, vous pouvez afficher et modifier le contenu de la cellule sélectionnée directement dans la fenêtre, comme illustré ci-dessous.
Téléchargez et essayez-le maintenant! (Parcours gratuit de 30 jours)


Obtenir l'adresse de la cellule active avec le code VBA

Vous pouvez également obtenir l'adresse de la cellule active avec le code VBA. Veuillez faire comme suit.

1. appuie sur le autre + F11 simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez sur le nom de la feuille de calcul en cours d'utilisation dans le volet gauche pour ouvrir l'éditeur de code, puis copiez et collez le code VBA ci-dessous dans l'éditeur de code.

Code VBA: obtenir l'adresse de la cellule active

Sub selectRange()
	MsgBox ActiveCell.Address
End Sub

3. Puis cliquez sur le course bouton pour exécuter le code.

4. Ensuite, une boîte de dialogue apparaîtra avec l'adresse de la cellule active répertoriée à l'intérieur.


Afficher l'adresse de la cellule active dans une cellule spécifiée avec le code VBA

Dans une autre situation, vous souhaitez que l'adresse de la cellule active soit affichée dans une cellule spécifiée. Chaque fois que vous passez d'une cellule à une autre, l'adresse de la cellule sera automatiquement modifiée et affichée dans la cellule spécifiée. Veuillez faire comme suit.

1. Veuillez ouvrir le Microsoft Visual Basic pour applications fenêtre en appuyant sur autre + F11 en même temps.

2. Double-cliquez sur le nom de la feuille dans le volet gauche pour ouvrir l'éditeur de code, puis copiez et collez le code ci-dessous.

Code VBA: affiche l'adresse de la cellule active dans une cellule spécifiée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
	Range("A1").Value = ActiveCell.Address
End Sub

Notes: A1 est la cellule dans laquelle vous souhaitez placer l'adresse de la cellule active, vous pouvez la remplacer par la cellule spécifiée pour vos propres besoins.

3. Puis clique Déposez le > Fermer et revenir à Microsoft Excel Pour quitter le Microsoft Visual Basic pour applications fenêtre.

Vous pouvez voir l'adresse des affichages de cellules actives sur la cellule A1, et l'adresse changera automatiquement en fonction du changement de la cellule active. Voir la capture d'écran:


Afficher dynamiquement l'adresse de la cellule active avec un outil incroyable

Si vous souhaitez afficher dynamiquement l'adresse de la cellule active dans la feuille de calcul, je recommande vivement le Barre d'édition améliorée outil de Kutools pour Excel. Voyons comment cet outil peut afficher dynamiquement l'adresse de la cellule active dans la feuille de calcul.

Avant d'appliquer Kutools pour Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Cliquez Kutools > Afficher et masquer > Barre d'édition améliorée pour activer la fonctionnalité.

À partir de maintenant, chaque fois que vous cliquez sur une cellule, la fenêtre Barre d'édition améliorée apparaîtra. Et l'adresse de la cellule ative sera affichée en bas de la fenêtre.
Conseils: Vous pouvez directement afficher et modifier le contenu de la cellule directement dans la fenêtre.

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.



Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    RichEO · 2 years ago
    The first example does not display the address of the active cell but of the cell containing the formula. If you were to select a different cell the address would not change.
    Actually this is probably more useful information than gathering the active cell's address and harder to find if you need it. I was looking how to do this using VBA and could not find it for a while so I will include it here:

    Application.Caller.Address

    That will give you the address of the cell calling the function and not the active cell, useful for relative references.
  • To post as a guest, your comment is unpublished.
    schipper1947 · 4 years ago
    Hello,

    Displaying the active cell reference is helpful. But how do I actually use that value? I'm reading exams, and have six columns (of which two will get filled in). The student name is in column A; I can extract the family name: LEFT(A7,(FIND(",")A7)-1))) [where A7 is the current address]. I can use the code for displaying the current active cell address provided above:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1").Value = ActiveCell.Address
    End Sub

    But what I really want to do is have the cursor being somewhere in the current row (C3:H3), and extract the family name of the current student. Example:

    A B C D E F G H
    1 Name ID 1 2 3 4 5 6

    2 Smith, John 1234567

    When the active cell is between C1 and H1, I want to extract the student name from A2 ("Smith, John") [using LEFT(A2,(FIND(",")A2)-1)))], but with the values for the address supplied from the code above.

    Any suggestions would be welcome.


    Bill
    • To post as a guest, your comment is unpublished.
      crystal · 4 years ago
      Dear Bill,
      If you want to use the cell reference of active cell, please apply below VBA code.
      (The active cell reference will be displayed in cell A1. Then you can copy the cell reference directely in A1 or do other operations as you need.)

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      On Error Resume Next
      If (Target.Count = 1) And (Intersect(Target, Range("A1")) Is Nothing) Then
      Range("A1").Value = ActiveCell.Address
      End If
      End Sub