Mise en forme conditionnel

Bonsoir le forum

j'ai besoin d'aide svp concernant la mise en forme conditionnel concernant une cellule contenant la référence exemple: CA 1850

je voudrais que la cellule se colorie si celle-ci apparait bien dans une autre feuil Excel

et si celle-ci n'y est pas la couleur de la cellule reste blanche

je vous remercie d'avance

Bonsoir,

Un début de réponse

Cdlt.

Public Sub Search()
Dim wsSearch As Worksheet, ws As Worksheet
Dim rCell As Range, rng As Range, c As Range

    Set wsSearch = Worksheets("Feuil1")
    Set rCell = wsSearch.[B2]
    For Each ws In Worksheets
        If ws.Name <> wsSearch.Name Then
            Set rng = ws.UsedRange
            Set c = rng.Find(rCell, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                rCell.Interior.Color = vbRed
                Exit For
            End If
        End If
    Next ws

    Set rng = Nothing: Set rCell = Nothing
    Set wsSearch = Nothing

End Sub

comme ceci

petite correction, j'avais inversé les arguments

code de la MFC

=NB.SI(Feuil2!$A:$A;A1)>0

Jean-Eric a écrit :

Bonsoir,

Un début de réponse

Cdlt.

Public Sub Search()
Dim wsSearch As Worksheet, ws As Worksheet
Dim rCell As Range, rng As Range, c As Range

    Set wsSearch = Worksheets("Feuil1")
    Set rCell = wsSearch.[B2]
    For Each ws In Worksheets
        If ws.Name <> wsSearch.Name Then
            Set rng = ws.UsedRange
            Set c = rng.Find(rCell, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                rCell.Interior.Color = vbRed
                Exit For
            End If
        End If
    Next ws

    Set rng = Nothing: Set rCell = Nothing
    Set wsSearch = Nothing

End Sub

Bonsoir Jean Eric

merci pour ton aide mais comment je fait puisque la macro ne prend que la cellule nommée ,alors que moi c'est plusieurs cellule dans la colonne exemple C ,encore merci pour le début de réponse

bonne soirée

Bonjour,

Voir fichier modifié.

Mais il serait préférable que tu joignes un fixchier représentatif de tes données.

Cdlt.

Option Explicit
Option Private Module

Public Sub Search()
Dim wsSearch As Worksheet, ws As Worksheet
Dim rngSearch As Range, rngData As Range
Dim rCell As Range, Result As Range

    Application.ScreenUpdating = False
    Set wsSearch = Worksheets("Feuil1")
    With wsSearch
        Set rngSearch = .Range("C2", .Range("C1").End(xlDown))
        rngSearch.Interior.Color = xlNone
        For Each rCell In rngSearch
            For Each ws In Worksheets
                If ws.Name <> wsSearch.Name Then
                    Set rngData = ws.UsedRange
                    Set Result = rngData.Find(rCell, _
                            LookIn:=xlValues, _
                            lookat:=xlWhole)
                    If Not Result Is Nothing Then
                        rCell.Interior.Color = vbRed
                        Exit For
                    End If
                End If
            Next ws
        Next rCell
    End With

    Set Result = Nothing: Set rCell = Nothing
    Set rngData = Nothing: Set rngSearch = Nothing
    Set wsSearch = Nothing

End Sub

ou bien sans macro ...

Bonjour

Merci à vous deux pour m'avoir donné ces différentes façons ,je pense utiliser les deux dans deux cas similaire, mais complémentaire

je pense que sans votre aide je serais encore entrain de ramer

encore merci et bonne journée

cordialement microice

Bonjour

Malgré plusieurs essai de mettre soit la formule soit la macro je n'arrive pas à faire fonctionner celle-ci

je redemande de l'aide cette fois si en ajoutant mes fichiers

d'avance merci à celui qui arrive à me remettre sur le bon chemin

Voici ce que je désire faire , Exemple le CA 1810 est dans le Tableau de suivi la case et blanche ,dés que celle-ci apparait dans la feuil 6

celle-ci se colorie en vert ou autre couleurs et ainsi de suite pour les autres CA de la feuille du tableau de suivi

merci à vous pour votre aide

cordialement

Il eut fallu mettre les fichiers de suite ... et ne pas les oublier cette fois-ci !

desolé

j'ai omis de les mettre

pardon

désolé

j'ai omis de mes mettre

merci de m'avoir informé

J'espère que celui-ci vas s'ajouter cela fait trois fois que je l'ajoute mon fichier

merci