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

Comment changer la couleur de la cellule lorsque la cellule est cliquée ou sélectionnée dans Excel?

Cet article vous montrera quelques méthodes pour changer la couleur d'une cellule en cliquant sur une cellule et changer la couleur en surbrillance tout en sélectionnant une plage de cellules dans Excel.

Changer la couleur de la cellule lorsque l'utilisateur clique sur la cellule avec le code VBA
Changer la couleur en surbrillance lorsque les cellules sont sélectionnées avec le code VBA
Mettez en surbrillance toute la ligne et la colonne de la cellule active avec Kutools for Excel


Changer la couleur de la cellule lorsque l'utilisateur clique sur la cellule avec le code VBA

Ici, vous pouvez modifier la couleur d'arrière-plan d'une cellule en double-cliquant dessus ou en cliquant dessus avec le code VBA suivant.

1. Dans la feuille de calcul, vous changerez la couleur de la cellule en cliquant dessus, faites un clic droit sur l'onglet de la feuille et cliquez sur Voir le code dans le menu contextuel.

2. dans le Microsoft Visual Basic pour applications , veuillez copier et coller le code VBA ci-dessous dans le Code fenêtre.

VBA: changez la couleur de la cellule en cliquant dessus

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbRed
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbGreen
End Sub

3. presse autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

Ensuite, lorsque vous double-cliquez sur une cellule, elle sera colorée en rouge. Et lorsque vous faites un clic droit sur une cellule, elle sera colorée en vert. Voir la capture d'écran:


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

Kutools pour Excel's Disposition de lecture L'utilitaire vous aide à mettre en surbrillance rapidement 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)


Changer la couleur en surbrillance lorsque les cellules sont sélectionnées avec le code VBA

Par défaut, lors de la sélection d'une plage de cellules, la couleur en surbrillance est le gris. Si vous souhaitez rendre la plage sélectionnée plus remarquable, vous pouvez changer sa couleur en surbrillance pour celle dont vous avez besoin. Veuillez faire comme suit.

1. Cliquez avec le bouton droit de la souris sur l'onglet de la feuille dont vous souhaitez modifier la couleur en surbrillance de la plage sélectionnée, puis cliquez sur Voir le code dans le menu contextuel.

2. dans le Microsoft Visual Basic pour applications , veuillez copier et coller le code VBA ci-dessous dans le Code fenêtre.

Code VBA: changez la couleur en surbrillance de la plage sélectionnée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , "TRUE"
        .FormatConditions(1).Interior.Color = vbYellow
    End With
End Sub

3. presse autre + Q clés en même temps pour fermer le Microsoft Visual Basic pour applications fenêtre.

À partir de maintenant, la couleur en surbrillance de la plage ou de la cellule sélectionnée devient jaune. Lorsque vous cliquez sur une autre cellule ou plage de cellules, les cellules sont automatiquement colorées.


Mettez en surbrillance toute la ligne et la colonne de la cellule active avec Kutools for Excel

Si vous avez affaire à une feuille de calcul volumineuse, il est nécessaire de mettre en évidence toute la ligne et la colonne de la cellule active afin de faciliter la lecture. Ici le Disposition de lecture utilité de Kutools pour Excel peut vous aider.

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

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.

Notes: Vous pouvez modifier les paramètres de mise en page de lecture en fonction de vos besoins, comme illustré ci-dessous.

  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.


Mettez en surbrillance toute la ligne et la colonne de la cellule active avec Kutools for 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 (28)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Merci, merci beaucoup. Je vous remercie pour cela.
Ce commentaire a été minimisé par le modérateur sur le site
J'aime la facilité avec laquelle le formatage de ma feuille de calcul, le code pour "changer la couleur de la cellule en cliquant dessus" rendrait mon travail quotidien ! Je tombe sur un hic cependant. Lorsque je copie ma feuille vierge avec le code entré comme décrit, j'obtiens une erreur. Il fonctionne très bien jusqu'à ce que je crée de nouvelles feuilles. Je suis novice en codage et je travaille à partir de manuels et d'Internet. J'apprécie toute aide que vous offrirez!
Ce commentaire a été minimisé par le modérateur sur le site
Chère Michèle,
J'ai suivi les étapes décrites, mais le code a également fonctionné dans mon cas. Pouvez-vous m'indiquer votre version d'Office ?
Merci pour votre commentaire.
Ce commentaire a été minimisé par le modérateur sur le site
salut. juste un petit avertissement. j'utilise office 2007.
J'ai essayé votre code, et bien qu'il ait fonctionné, ce n'était pas ce que je cherchais. donc j'ai juste supprimé le code complètement. mais la dernière cellule sélectionnée/active avant la suppression du code est toujours verte (j'ai changé la couleur de vbYellow à vbGreen), et la couleur ne disparaîtra pas. il n'est pas non plus affecté par la couleur de remplissage.
la solution la plus simple que j'ai trouvée était de simplement supprimer la cellule. copier et coller ne fonctionnera pas, il copiera également la couleur.
je pensais juste vous le faire savoir. vous pourriez trouver une autre solution/dépannage pour cela, en plus de la suppression et de la saisie manuelle. encore, merci ! Je confirme que le code fonctionne :)
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de l'appliquer simplement à certaines cellules tout en laissant d'autres cellules disponibles pour la saisie de nombres?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé l'option "Modifier la couleur en surbrillance lorsque les cellules sont sélectionnées avec le code VBA" et enregistré mon Excel en tant que feuille de calcul activée par macro. Désormais, les dernières cellules sélectionnées sont mises en surbrillance et ne mettront pas en surbrillance les autres cellules lorsqu'elles seront sélectionnées. J'ai supprimé le code et réentré et enregistré, mais toujours aucun changement. Je ne peux pas non plus supprimer le surlignage précédent. Je ne sais pas quoi faire.
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
Le code fonctionne bien dans mon cas après avoir enregistré le classeur en tant que classeur Excel compatible avec les macros.
Pouvez-vous me dire votre version d'Excel?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai un problème.
Je veux changer la couleur d'un lien hypertexte s'il était lié à un PDF en ROUGE et s'il n'avait pas de lien avec un PDF, la couleur BLEUE s'affichera.
Comment puis-je faire maintenant?
Ce commentaire a été minimisé par le modérateur sur le site
Bonne journée,
Désolé, je ne peux pas vous aider. Merci d'avoir commenté.
Ce commentaire a été minimisé par le modérateur sur le site
Salam...
sy sudah installer kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya?trimakasih
Ce commentaire a été minimisé par le modérateur sur le site
td muncul=tidak muncul
Ce commentaire a été minimisé par le modérateur sur le site
trimakasih
Ce commentaire a été minimisé par le modérateur sur le site
Salut les gars, donc j'avais l'habitude de d'abord coder pour changer la couleur de la cellule en vert/rouge sur doubleclick/rightclick. Je voudrais cependant que ce code fonctionne uniquement sur une plage spécifique de cellules, dans mon cas D9: P9. quelqu'un peut-il m'aider sur la façon de faire cela? Je suis nouveau chez VBA
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
Le code VBA ci-dessous peut vous rendre service, veuillez essayer. Merci pour votre commentaire.

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
Si (Not Application.Intersect(Target, Me.Range("D9:P9")) N'est rien) Alors
Annuler = Vrai
Target.Interior.Color = vbRed
Si fin
End Sub
Private Sub Worksheet_BeforeRightClick (ByVal Target As Range, Cancel As Boolean)
Si (Not Application.Intersect(Target, Me.Range("D9:P9")) N'est rien) Alors
Annuler = Vrai
Target.Interior.Color = vbGreen
Si fin
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'essaie de comprendre comment changer la couleur d'une cellule, en fonction d'une sélection dans une liste déroulante. Par exemple, HIGH=rouge, MEDIUM=jaune, LOW=vert.

Tous les conseils que vous pouvez fournir sont grandement appréciés. Merci
Ce commentaire a été minimisé par le modérateur sur le site
hi
la grille fonctionne mais je veux que la couleur ne soit que lorsque la cellule est sélectionnée et lorsque je sélectionne autre chose, la première cellule que j'ai sélectionnée ne doit pas être colorée
pouvez-vous m'aider svp merci
Ce commentaire a été minimisé par le modérateur sur le site
J'avais exactement la même question! J'espère que quelqu'un te répondra ! La raison pour laquelle je cherche cela est que j'ai une feuille de calcul que j'utilise quotidiennement et que je mets beaucoup d'informations dans des cellules individuelles. Il devient difficile de voir les valeurs (visuellement, cela se heurte à des informations dans d'autres cellules), et ce serait une fonctionnalité intéressante si je pouvais changer la couleur de la cellule en cours d'édition - uniquement pendant qu'elle est en cours d'édition. La solution la plus simple à laquelle je peux penser est que la valeur de la cellule serait remise à ce qu'elle était avant d'être cliqué - mais je ne sais pas comment faire cela.
Ce commentaire a été minimisé par le modérateur sur le site
Merci. Bon travail
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
est-il possible d'avoir un code pour "changer la couleur de la cellule en cliquant dessus" de manière à ce qu'il ne modifie pas les cellules déjà formatées avec une autre couleur, s'il vous plaît ?
Après avoir appliqué votre code, tout mon formatage (couleurs) est parti. Merci. Véronique
Ce commentaire a été minimisé par le modérateur sur le site
Le code fonctionne tant que je ne protège pas la feuille de calcul. Une fois que j'ai protégé la feuille de calcul, car j'ai une mise en forme conditionnelle sur des cellules verrouillées, le code ne fonctionnera pas. Comment puis-je changer cela pour qu'il fonctionne sur une feuille de calcul verrouillée où l'utilisateur peut sélectionner des cellules déverrouillées ?
Ce commentaire a été minimisé par le modérateur sur le site
Comment mettre en surbrillance la cellule (avec des données) pour mettre automatiquement en surbrillance les autres cellules (données liées à d'autres données dans une cellule précédente) en cliquant sur la cellule.Puis-je le faire. Y a-t-il un moyen de le faire.
Ce commentaire a été minimisé par le modérateur sur le site
alguien que moi ayude solo quiero que al hacerle click a una celda se ponga de un color y que se mantenga ese color y si le vuelvo hacer click regrese el color original que tenia
Ce commentaire a été minimisé par le modérateur sur le site
Salut, j'essaie d'utiliser l'option double-clic pour changer une cellule en vert mais je veux aussi que cette cellule revienne à aucun remplissage ou blanc si je double-clique dessus alors qu'elle est verte. Est-ce possible? 
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, le code fonctionnait pendant un certain temps, mais maintenant il ne fonctionne plus. Que peut-il y avoir de mal ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Rens Borburgh, Il y a deux codes fournis dans le message, lequel avez-vous utilisé ? Avez-vous reçu une invite d'erreur ?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé les deux en même temps. Après l'avoir copié sur une clé USB, cela ne fonctionnait plus.
Ce commentaire a été minimisé par le modérateur sur le site
Salut Rens Borburgh, je ne comprends pas très bien ce que tu veux dire. Les codes doivent être utilisés dans la fenêtre de code de feuille et non dans la fenêtre de module. Ou pouvez-vous fournir une capture d'écran de votre fenêtre de code ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai construit un tableau de bord avec 37 feuilles de calcul, chacune avec un tableau. Tous sont des panneaux de verrouillage car ils sont trop grands et j'ai besoin de connaître le numéro et le nom de l'étudiant pour lequel je saisis des données. Malgré cela, je dois garder mon doigt sur le côté gauche de l'écran pour identifier les noms et les numéros auxquels se réfèrent les données saisies. Donc, j'ai besoin d'identifier les deux premières cellules de la ligne, dans les colonnes "I" et "J".
Le code que j'ai pris sur Internet et que je n'ai pas pu modifier pour les deux cellules des colonnes "I" et "J" était :

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

Tous les tableaux commencent dans des rangées différentes. Cet exemple commence en 16 lignes mais je mets le code dans toutes les pages et je m'adapte aux besoins du numéro de ligne spécifique. 
J'ai déjà essayé de changer le code de EntireRow en Range ("I16: J43") mais les cellules étaient dans la gamme sont devenues toutes peintes avec la couleur du code.
Essayez déjà une manière différente à travers la "mise en forme conditionnelle" avec la formule =E($I16<>"";LIN()=CÉL("lin")) dans la plage $I16:$J43, et dans la "feuille de calcul" du développeur ", avec "Application.Calculate" et ça marche. Je change dans les 37 feuilles de calcul mais je copiais et les données du fichier précédent vers ce nouveau et j'ai remarqué que les options pour coller des "valeurs", etc, disparaissent de mon tableau de bord. Le code doit exécuter quelque chose qui, comme cliquer sur la cellule, ne la laisse plus coller. Une seule option consistait à coller avec CTRL + V.
Si quelqu'un peut m'aider avec le code, je supprimerai le VBA "Application.Calculate" pour revenir aux options de collage disponibles.
Merci pour votre aide.

Luis Lopes
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