rechercher et colorer celulles identiques a cellule active

JCGL

XLDnaute Barbatruc

• 18 Février 2012

• #2

Re : rechercher et colorer celulles identiques a cellule active

Bonjour à tous,

Double-click sur une cellule

A + à tous

 

Pièces jointes

• JC Recherche doublons et couleur.xls

  25.5 KB · Affichages: 71

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Février 2012

• #3

Re : rechercher et colorer celulles identiques a cellule active

Bonjour Pascal21


Un petit exemple à voir ?

A+

 

Pièces jointes

• Copie de recherche doublons et couleur.xls

  33.5 KB · Affichages: 69

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 18 Février 2012

• #4

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

 

Dernière édition: 18 Février 2012

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Février 2012

• #5

Re : rechercher et colorer celulles identiques a cellule active

Bonjour
Mettez dans le module Feuil1:

VB:

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 18 Février 2012

• #6

Re : rechercher et colorer celulles identiques a cellule active

Bonjour, le Fil, le Forum,

Une autre suggestion :

Code:

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.

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 18 Février 2012

• #7

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Février 2012

• #8

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

Cliquez pour agrandir...

Bisous à 00 😱

A + à tous

 

Pièces jointes

• JC V2 Recherche doublons et couleur.xls

  21.5 KB · Affichages: 58

Dernière édition: 18 Février 2012

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 18 Février 2012

• #9

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é

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Février 2012

• #10

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

 

Dernière édition: 18 Février 2012

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Février 2012

• #11

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 .

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Février 2012

• #12

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

 

Dernière édition: 18 Février 2012

Vote positif 0 Vote négatif

Philippe68

XLDnaute Occasionnel

• 18 Février 2012

• #13

Re : rechercher et colorer celulles identiques a cellule active

néné06 à dit:

Bonjour à tous

@ JCGL :

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

Merci pour l'éclaircissement .

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Février 2012

• #14

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+

 

Vote positif 0 Vote négatif