rechercher et colorer celulles identiques a cellule active

[pascal21]

bonjour le forum
afin d'avoir une meilleur vision d'un tableau j'aimerais que les cellules identiques à la cellule active soient colorées et ceci pour une zone bien définie par exemple a10:c30
je clic sur une cellule de la colonne A et ça cherche et colorie en col B et en col C
col A b et c contiennent une formule
merci pour votre aide

 

[JCGL]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour à tous,

Double-click sur une cellule

A + à tous

 

[néné06]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour Pascal21


Un petit exemple à voir ?

A+

 

[pascal21]

Re : rechercher et colorer celulles identiques a cellule active

bonjour et merci jcgl
l'idée du double clic j'adore je n'y avais pas pensé
bonjour nene j'avais pas raffraichi

 

[Dranreb]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour
Mettez dans le module Feuil1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As Variant, L As Long
If Target.Column <> 1 Or Target.Row < 10 Or Target.Count <> 1 Then Exit Sub
Me.[A10].Resize(65527, 3).Interior.ColorIndex = xlColorIndexNone
Valeur = Target.Value
Target.Interior.Color = RGB(255, 255, 0)
For L = 10 To 65536
   If Cells(L, 2).Value = "" Then Exit For
   If Cells(L, 2).Value = Valeur Then Cells(L, 2).Interior.Color = RGB(255, 255, 0)
   Next L
For L = 10 To 65536
   If Cells(L, 3).Value = "" Then Exit For
   If Cells(L, 3).Value = Valeur Then Cells(L, 3).Interior.Color = RGB(255, 255, 0)
   Next L
End Sub

Cordialement

 

[DoubleZero]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour, le Fil, le Forum,

Une autre suggestion :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = 0
Dim c As Range
Cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, Range("A10:A30")) Is Nothing Then ActiveCell.Interior.ColorIndex = 6
Set plage = Range("b10:C30")
  For Each c In plage
    If c = ActiveCell Then c.Interior.ColorIndex = ActiveCell.Interior.ColorIndex
  Next
Application.ScreenUpdating = -1
End Sub

Deux bises pour JCGL 🙂🙂

A bientôt.

 

[pascal21]

Re : rechercher et colorer celulles identiques a cellule active

re bonjour à tous
le sujet vous inspire ce matin
sans avoir essayé les autres codes
est'il possible qu'avec le code de JCGL
il soit possible d'enlever la couleur si je clic normal dans une cellule
au final ça concerne les colonnes B G L Q
merci

 

[JCGL]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour à tous,
Salut 00,

Dans le module de la feuille :

Option Explicit


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Feuil1.Range("A1") = ActiveCell
End Sub




Private Sub Worksheet_selectionChange(ByVal Target As Range)
Feuil1.Range("A1") = ""
End Sub

Bisous à 00 😱

A + à tous

 

[pascal21]

Re : rechercher et colorer celulles identiques a cellule active

merci jcgl c'est encore une fois parfait
mais ce code, j'aurais du le trouver tout seul, ce n'était pas bien compliqué

 

[JCGL]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour à tous,

Le plus difficile n'est pas de coder... Mais d'avoir l'idée de ce que l'on veut faire...

A + à tous

 

[néné06]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour à tous

@ JCGL :

Bravo pour ce code que je ne saisi pas bien !!!
Comment est fixé la couleur de remplissage ??

Merci pour l'éclaircissement .

 

[JCGL]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour à tous,
Salut Néné,

Une MeFC basée sur $A$1...
Elle pourrait être incluse dans le code comme vos propositions.
Je préfère toujours les solutions simples et efficaces.

A++
A + à tous

Edition : Salut Philippe

 

[Philippe68]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour à tous

@ JCGL :

Bravo pour ce code que je ne saisi pas bien !!!
Comment est fixé la couleur de remplissage ??

Merci pour l'éclaircissement .

Edit : Je suis à la ramasse, JC m'a grillé pour répondre, lol

 

[néné06]

Re : rechercher et colorer celulles identiques a cellule active

Bonjour à tous

Je n'avais pas pensé à la MFC.
Il est vrai que je cherche toujours "Compliqué" alors que "Simple" fait l'affaire.
J'ai toujours du mal avec les formules Excel, alors que (c'est une opinion qui n'engage que moi) le VBA me paraît plus facile à la lecture.


A+