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

Comment mettre en évidence une cellule ou une sélection active dans Excel?

Si vous avez une grande feuille de calcul, il vous sera peut-être difficile de trouver la cellule active ou la sélection active en un coup d'œil. Mais, si la cellule / section active a une couleur exceptionnelle, le découvrir ne sera pas un problème. Dans cet article, je parlerai de la façon de mettre en évidence automatiquement la cellule active ou la plage de cellules sélectionnée dans Excel.

Mettez en surbrillance la cellule ou la sélection active avec le code VBA

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
  • Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
  • Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Sort par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
  • Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

flèche bleue bulle droite Mettez en surbrillance la cellule ou la sélection active avec le code VBA


Le code VBA suivant peut vous aider à mettre en évidence la cellule active ou une sélection de manière dynamique, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

2. Alors choisi Ce classeur à partir de la gauche Explorateur de projets, double-cliquez dessus pour ouvrir le Module, puis copiez et collez le code VBA suivant dans le module vide:

Code VBA: mettre en évidence la cellule ou la sélection active

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Update 20140923
Static xLastRng As Range
On Error Resume Next
Target.Interior.ColorIndex = 6
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub

doc-highlight-active-cell-1

3. Ensuite, enregistrez et fermez ce code, puis revenez à la feuille de calcul, maintenant, lorsque vous sélectionnez une cellule ou une sélection, les cellules sélectionnées seront mises en surbrillance et elles seront déplacées dynamiquement à mesure que les cellules sélectionnées changeront.

Notes:

1. Si vous ne trouvez pas le Volet Explorateur de projet dans la fenêtre, vous pouvez cliquer Voir > Explorateur de projets à l' Fenêtre Microsoft Visual Basic pour Applications pour l'ouvrir.

2. Dans le code ci-dessus, vous pouvez modifier .ColorIndex = 6 couleur à une autre couleur que vous aimez.

3. Ce code VBA peut être appliqué à toutes les feuilles de calcul du classeur.

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.


Article connexe:

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


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 (16)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Génial! J'ai utilisé votre code pour mettre en surbrillance une cellule. Cela fonctionne parfaitement pour ce que je fais. Utilisation de centaines d'hyperliens pour se déplacer entre les feuilles de travail et les cahiers de travail. rend la traversée tellement plus facile. Merci pour votre petit script VBA.
Ce commentaire a été minimisé par le modérateur sur le site
Génial!! Mais que se passe-t-il si je ne veux pas perdre la couleur de cellule précédemment attribuée ? Ce serait mieux de savoir.
Ce commentaire a été minimisé par le modérateur sur le site
Oui, j'aimerais bien le savoir aussi. Comment garderiez-vous les cellules sélectionnées précédemment en surbrillance à des fins de suivi ?
Ce commentaire a été minimisé par le modérateur sur le site
Voir mon commentaire ci-dessus.
Ce commentaire a été minimisé par le modérateur sur le site
Au lieu de "ColorIndex" qui a un ensemble limité de 255 valeurs (ce qui signifie que toutes les couleurs personnalisées sont perdues), utilisez plutôt "Color". Vous devrez stocker l'ancienne valeur dans une nouvelle variable longue statique et également générer la couleur de surbrillance souhaitée avec la fonction RVB. Le seul problème avec ce code actif est que vous ne pouvez plus changer la couleur de la cellule active car elle redevient ce qu'elle était avant que vous ne cliquiez dessus. Je suggère que si vous avez besoin de changer les couleurs de surbrillance sur la feuille, faites-le avec les macros désactivées ou changez le sous-nom pendant une seconde afin qu'il ne se déclenche pas lorsque vous cliquez sur des cellules, puis renommez-le simplement en " le réactiver". Voici mon code :

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Statique xLastRng As Range
Statique xLastRngColor As Long

On Error Resume Next

xLastRng.Interior.Color = xLastRngColor
xLastRngColor = Target.Interior.Color
Target.Interior.Color = RGB(255, 255, 0) 'composer la couleur de surbrillance que vous voulez avec les valeurs RVB, j'utilise le jaune ici
Définir xLastRng = Cible

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
travail.... super...
Ce commentaire a été minimisé par le modérateur sur le site
Utilisez un format conditionnel sur les cellules que vous souhaitez protéger.
Ce commentaire a été minimisé par le modérateur sur le site
Solution parfaite car j'ai toujours tendance à perdre la trace de la cellule en surbrillance lors de l'opération "Rechercher et sélectionner". Merci beaucoup.
Ce commentaire a été minimisé par le modérateur sur le site
Mais je ne parviens pas à annuler l'option et à perdre également la couleur de cellule précédemment attribuée.
Veuillez fournir une solution
Ce commentaire a été minimisé par le modérateur sur le site
Merci, mais utilisez-le avec prudence. Il a le contre-effet indésirable de ne pas se laisser défaire. Y a-t-il une solution pour ça?
Ce commentaire a été minimisé par le modérateur sur le site
Quoi qu'il en soit, vous pouvez mettre en surbrillance la cellule adjacente de gauche au lieu de la cellule active ? Ou une plage de cellules autour de la cellule active ?
Ce commentaire a été minimisé par le modérateur sur le site
C'était super utile, merci.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé votre macro en la copiant et en la collant dans mon fichier Excel. J'ai cependant changé une chose dans la macro. J'ai changé l'indice de couleur de 6 à 24 (en une couleur différente des couleurs que j'utilise actuellement dans ma macro). Cela a très bien fonctionné et je l'ai beaucoup aimé, mais a ensuite commencé à me poser un problème. J'ai beaucoup de cellules remplies de couleurs dans mon Excel. La macro a commencé à supprimer le remplissage de couleur de chaque cellule touchée. Je ne sais pas comment arrêter ce comportement étrange de la macro. Je n'avais pas d'autre choix que de supprimer la macro de mon fichier. J'aime toujours utiliser cette macro si quelqu'un peut m'aider à le réparer.
Ce commentaire a été minimisé par le modérateur sur le site
Je sais que vous avez proposé une solution, mais la solution s'accompagne d'un autre problème, comme vous l'avez décrit ci-dessous : "Le seul problème d'avoir ce code actif est que vous ne pouvez plus changer la couleur de la cellule active car elle redevient ce qu'elle était avant que vous cliquiez Je suggère que si vous avez besoin de changer les couleurs de surbrillance sur la feuille, faites-le avec les macros désactivées ou changez le sous-nom pendant une seconde afin qu'il ne se déclenche pas lorsque vous cliquez sur des cellules". Ce n'est pas une alternative acceptable pour moi. J'ai besoin de pouvoir changer les couleurs dans les cellules lorsque la macro est active. Avez-vous une solution à ce problème. Si vous trouvez une solution à ce problème, veuillez republier votre macro corrigée dans la nouvelle macro dans son intégralité (plutôt que de proposer des correctifs à votre macro d'origine car je suis techniquement mis au défi en ce qui concerne les macros).
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, si quelqu'un peut m'aider... Je récupère ce code sur internet (excuses auprès du propriétaire). Il fait presque ce dont j'ai besoin mais ce code sélectionne toute la ligne. Ce dont j'ai besoin, c'est d'un changement permettant de sélectionner uniquement les deux premières cellules de la rangée des cellules actives. Lorsque je clique dans la cellule, j'ai besoin que la cellule de la colonne "$I16" et "$J16" (16 est la première ligne de mon tableau) de cette ligne devienne la couleur intérieure (=9359529). Le code est celui-ci : 
Atténuer la cible en tant que plage

Private Sub Worksheet_SelectionChange (Cible ByVal en tant que plage)

Si Target.Row >= 16 Alors

Si non, la cible n'est rien, alors

lTarget.EntireRow.Interior.ColorIndex = 0
Si fin

Target.EntireRow.Interior.Color = 9359529

Définir lCible = Cible
Si fin
End Sub

Pouvez-vous m'aider? J'ai essayé de changer ce code mais la seule chose que je peux faire est de sélectionner la couleur intérieure de la cellule cible et non la colonne "$I" et "$J" dans cette ligne spécifique. Merci pour votre aide.
Louis Lopes
Ce commentaire a été minimisé par le modérateur sur le site
J'ai eu le même problème, lisez toute la page et les commentaires. En pensant l'appliquer ou non, je cliquais simplement au hasard sur des chiffres et des lettres pour sélectionner toute la colonne et les lignes. Puis, soudainement, la surbrillance de la fonction de cellule sélectionnée est revenue :)
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés