Note: The other languages of the website are Google-translated. Back to English

Comment mettre en évidence automatiquement la ligne et la colonne de la cellule active dans Excel?

Lorsque vous affichez une feuille de calcul volumineuse contenant de nombreuses données, vous souhaiterez peut-être mettre en surbrillance la ligne et la colonne de la cellule sélectionnée afin de pouvoir lire facilement et intuitivement les données pour éviter de les mal interpréter. Ici, je peux vous présenter quelques astuces intéressantes pour mettre en évidence la ligne et la colonne de la cellule actuelle, lorsque la cellule est modifiée, la colonne et la ligne de la nouvelle cellule sont mises en évidence automatiquement comme les captures d'écran suivantes:

Mettre en évidence automatiquement la ligne et la colonne de la cellule sélectionnée avec le code VBA
Un clic pour mettre en évidence la ligne et la colonne de la cellule sélectionnée


Mettre en évidence automatiquement la ligne et la colonne de la cellule sélectionnée avec le code VBA

Le code VBA suivant peut vous aider à mettre automatiquement en évidence toute la colonne et la ligne de la cellule actuelle dans la feuille de calcul, veuillez suivre les étapes suivantes:

1. Ouvrez la feuille de calcul, vous mettrez en évidence automatiquement la ligne et la colonne de la cellule active, cliquez avec le bouton droit sur l'onglet de la feuille et sélectionnez Voir le code dans le menu contextuel.

2. Ensuite, copiez et collez le code VBA suivant dans la fenêtre de code vide:

Code VBA: mise en évidence automatique de la ligne et de la colonne de la cellule sélectionnée

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20200430
Static xRow
Static xColumn
If xColumn <> "" Then
    With Columns(xColumn).Interior
        .ColorIndex = xlNone
    End With
    With Rows(xRow).Interior
        .ColorIndex = xlNone
    End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
With Rows(pRow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
End Sub

3. Puis appuyez sur autre + Q touches ensemble pour revenir à la feuille de calcul, maintenant, lorsque vous sélectionnez une cellule, la ligne et la colonne entières de cette cellule ont été mises en surbrillance. Et il sera déplacé dynamiquement à mesure que la cellule sélectionnée change.

doc-lecture-layout4

Notes:

  • 1. Dans le code ci-dessus, vous pouvez modifier .ColorIndex = 6 couleur à une autre couleur que vous aimez.
  • 2. Ce code VBA s'applique uniquement à la feuille de calcul que vous choisissez à l'étape 2 ci-dessus.
  • 3. Si vous ne souhaitez pas mettre à nouveau en surbrillance la colonne et la ligne de la cellule sélectionnée, vous devez supprimer le VBA ci-dessus et ne définir aucun remplissage sur la ligne et la colonne sélectionnées en cliquant sur Accueil > La couleur de remplissage > Aucun remplissage.
  • 4. S'il y a des cellules colorées dans votre feuille de calcul, la couleur sera perdue lorsque vous cliquez sur la cellule, puis passez à une autre cellule.

Mettre en évidence automatiquement la ligne et la colonne de la cellule sélectionnée avec Kutools for Excel

Si vous êtes un novice de VBA, recommandez ici le Kutools pour Excel's Disposition de lecture utilitaire. Cet utilitaire permet de mettre facilement en évidence la ligne et la colonne de la cellule sélectionnée dans Excel, comme le montre la démonstration ci-dessous. Téléchargez et essayez-le maintenant! (Parcours gratuit de 30 jours)

Voyons comment appliquer le Kutools pour Excel's Disposition de lecture pour mettre en évidence des lignes et des colonnes entières d'une plage de cellules.

1. Cliquez Kutools > Disposition de lecture. Voir la capture d'écran:

Ensuite, la mise en page de lecture est activée, vous pouvez voir la ligne et la colonne de la cellule active sont mises en surbrillance immédiatement. Et il sera déplacé dynamiquement à mesure que les cellules sélectionnées changent.

Notes:

  • 1. Vous pouvez modifier les paramètres de mise en page de lecture en fonction de vos besoins, comme illustré ci-dessous.
  • 2. Vous pouvez annuler cet utilitaire en décochant la case Disposition de lecture sous Lecture la liste déroulante.
  • 3. Cette Affichage de la disposition de lecture La fonctionnalité est appliquée à toutes les feuilles de calcul de votre classeur.
  • 4. Cette Affichage de la disposition de lecture La fonctionnalité sera désactivée lorsque vous lancerez le classeur la prochaine fois.

  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.


Un clic pour mettre en évidence la ligne et la colonne de la cellule sélectionnée


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éeplus
  • 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 gammesplus
  • 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 cellulesplus
  • 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 PDFplus
  • 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
Commentaires (51)
Noté 5 hors 5 · évaluations 1
Ce commentaire a été minimisé par le modérateur sur le site
Salut, le code donné fonctionne bien pour mettre en évidence la ligne et la colonne de la cellule active. mais la couleur de la cellule d'origine ainsi que les paramètres de couleur des colonnes et des lignes sont perdus. Comment surmonter cela?
Ce commentaire a été minimisé par le modérateur sur le site
Voici ma version pour mettre en évidence la ligne actuelle (de A à AK). Pour éviter d'effacer la coloration des cellules, j'utilise plutôt une bordure rouge ... en plus, cela restaure ma bordure préférée sur la ligne juste à gauche. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lRow As Long, lCol As Long Static lPrevRow As Long 'Restaurer la ligne active précédente sur... ligne pointillée bleu clair If lPrevRow > 0 Then Range("A" & lPrevRow, "AK" & lPrevRow).BorderAround Weight:=xlHairline, Color:=RGB(162, 200, 255) End If 'Surligner la ligne actuelle avec une bordure rouge lRow = Target.Row Range("A" & lRow, "AK" & lRow) .BorderAround Weight:=xlThin, Color:=RGB(255, 0, 0) lPrevRow = lRow End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Oh! mec, fonctionne comme un charme !!! génial
Ce commentaire a été minimisé par le modérateur sur le site
vous êtes un génie maintenant, qu'en est-il des lignes et des colonnes ?
Ce commentaire a été minimisé par le modérateur sur le site
SALUT J'AI LE MÊME PROBLÈME AVEC SURESH POUVEZ-VOUS ME FOURNIR TOUT LE CODE MODIFIÉ POUR NE PAS EFFACER LA COULEUR ORIGINALE DE LA CELLULE J'UTILISE CECI : Sub Worksheet_SelectionChange (ByVal Target As Excel.Range) 'Update 20140318 Static xRow Static xColumn If xColumn "" Alors avec des colonnes (xColumn).Interior .ColorIndex = xlNone Fin avec des lignes (xRow).Interior .ColorIndex = xlNone Fin avec End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns( pColumn).Interior .ColorIndex = 6 .Pattern = xlSolid End With With Rows(pRow).Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Impossible de faire fonctionner cela - s'il vous plaît aidez-moi, merci :-)
Ce commentaire a été minimisé par le modérateur sur le site
"Aide s'il vous plaît" - attendez-vous une réponse avec une demande aussi vague et aucun effort pour expliquer le problème ?
Ce commentaire a été minimisé par le modérateur sur le site
Je vous remercie!
Ce commentaire a été minimisé par le modérateur sur le site
C'est le code parfait merci !!!!! aucun problème pour passer d'une cellule à l'autre et laisser une trace de reflets et de contours derrière.
Ce commentaire a été minimisé par le modérateur sur le site
j'utilise un tableau d'insertion pour mes données et cela ne change pas la coloration d'origine
Ce commentaire a été minimisé par le modérateur sur le site
Cette option est désormais disponible pour les non-codeurs en 2010 tant que vous avez l'onglet Développeur. Sous Développeur, cliquez sur Propriétés. Définissez EnableOutlining sur True. Limitation : Cela semble ne s'appliquer qu'à une seule feuille de calcul à la fois, bien qu'il soit facile de la définir pour d'autres feuilles de calcul en cliquant sur les onglets en bas (tout en laissant la boîte de dialogue Propriétés ouverte). Pourquoi Excel ne le rend pas disponible sous Options, eh bien, c'est Microsoft.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, après avoir mis le code, la fonction "annuler" ne fonctionne plus. Quelqu'un peut-il aider?
Ce commentaire a été minimisé par le modérateur sur le site
Salut! J'aime beaucoup ce code mais comme l'a dit Suresh, il supprime les couleurs de cellule d'origine ! Comment puis-je conserver mes couleurs de cellule d'origine ?? S'il vous plaît répondez, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne à merveille. Existe-t-il un moyen de ne pas l'afficher à l'impression ?
Ce commentaire a été minimisé par le modérateur sur le site
Exactement ce que je cherchais. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Pour conserver la couleur de votre cellule, vous devrez créer un formatage conditionnel pour les cellules.
Ce commentaire a été minimisé par le modérateur sur le site
Avez-vous l'intention d'ajouter des fonctionnalités Mac pour Kutools ?
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je changer les couleurs des barres ? Merci pour cette excellente solution. Cordialement, Ton
Ce commentaire a été minimisé par le modérateur sur le site
comment puis-je l'arrêter si je veux qu'il s'arrête ??
Ce commentaire a été minimisé par le modérateur sur le site
Voici le code que j'ai utilisé uniquement pour la ligne (surbrillance grise): Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow If xRow "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Copier et coller votre code n'a pas fonctionné correctement, mais après avoir corrigé les erreurs de syntaxe, cela a fonctionné à merveille ! Merci. Voici le code de travail pour surligner (jaune) la ligne uniquement : Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow If xRow "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow).Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bravo..exactement ce que je cherchais.....merci beaucoup!!
Ce commentaire a été minimisé par le modérateur sur le site
Lorsque je rouvre mon classeur, la colonne en surbrillance de la session précédente reste - et change lorsque je me déplace dans la feuille de calcul dans une nouvelle session. Existe-t-il un moyen "d'effacer" la session précédente à chaque fois que le classeur est ouvert ?
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne si vous n'avez pas de couleurs non mises en forme conditionnelles. Ajoutez simplement deux autres avec des boucles. Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow Static xColumn If xColumn "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow) .Interior .ColorIndex = 6 .Pattern = xlSolid End With Rows(pRow - 1).Interior .ColorIndex = 0 .Pattern = x1Solid End With With Rows(pRow + 1).Interior .ColorIndex = 0 .Pattern = x1Solid End With Sous-titre de fin
Ce commentaire a été minimisé par le modérateur sur le site
COMMENT PUIS-JE LE RENDRE POSSIBLE SI UNE FEUILLE QUI EST DÉJÀ COLORÉE.
Ce commentaire a été minimisé par le modérateur sur le site
Excellent article!. Sauveur de vie pour moi. Et si vous voulez que la cellule réelle soit mise en surbrillance en jaune et la ligne/les cellules en gris, voici le code : Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Then With Columns(xColumn ).Interior .ColorIndex = xlNone Se termine par avec des lignes (xRow).Interior .ColorIndex = xlNone Se termine par End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Corrigez le code comme suit : Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Then With Columns(xColumn).Interior .ColorIndex = xlNone End With Rows(xRow).Interior .ColorIndex = xlNone Terminer par End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With With Rows(pRow).Interior .ColorIndex = 15 . Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End Sub [quote]Excellent article !. Sauveur de vie pour moi. Et si vous voulez que la cellule réelle soit mise en surbrillance en jaune et la ligne/les cellules en gris, voici le code : Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Then With Columns(xColumn ).Interior .ColorIndex = xlNone Se termine par avec des lignes (xRow).Interior .ColorIndex = xlNone Se termine par End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End SubPar Vicente[/ Quote]
Ce commentaire a été minimisé par le modérateur sur le site
Salut. Comment puis-je mettre en surbrillance toute la ligne si l'une des cellules est fusionnée. Je vois que kutool peut faire une ligne à travers une cellule de fusion. Pl aidez-moi cette solution
Ce commentaire a été minimisé par le modérateur sur le site
J'ai changé votre code de la mise en évidence de l'intérieur à la création de bordures rouges.
.BorderAround Weight :=xlThick, Color :=vbRed
Je sélectionne une cellule, les bordures deviennent rouges. Génial. Je copie, sélectionne une autre cellule, ces bordures deviennent rouges, mais le presse-papiers s'efface. Je n'arrive pas à comprendre comment utiliser les bordures et conserver la fonctionnalité copier/coller.
Des suggestions?
Ce commentaire a été minimisé par le modérateur sur le site
pouvez-vous partager tout le code ?
Ce commentaire a été minimisé par le modérateur sur le site
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

'Mise à jour 20192021
xRow statique
Si xRow <> "" Alors
Lignes(xRow).BorderAround Weight:=xlThin, Color:=vbBlack
Si fin
pLigne = Sélection.Ligne
xLigne = pLigne
Lignes(pRow).BorderAround Weight:=xlThick, Color:=vbRed
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
comment empêcher la suppression des boutons Annuler et Rétablir avec cette macro n'utilisant pas Kutools
Ce commentaire a été minimisé par le modérateur sur le site
Good Day,
Désolé pour ça. Le problème d'annulation et de rétablissement dans la macro ne peut pas être résolu.
Ce commentaire a été minimisé par le modérateur sur le site
Le VBA pour mettre en évidence une seule cellule fonctionne mais celui-ci ne fonctionne pas.
Ce commentaire a été minimisé par le modérateur sur le site
Merci d'avoir posté ceci! C'est très utile pour le rapprochement des chèques via un tableur.
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés