Comparer 2 feuilles

[jeanphi]

bonjour le forum


dans un classeur je souhaite faire la comparaison de 2 feuilles
les conditions sont les suivantes:
si un numéro de série de la colonne E de la feuille "OSIA" correspond à un numéro de série de la colonne H de la feuille "Liste des biens" et si en plus le prix de la colonne V ou X de la feuille "OSIA" divisé par 12 correspond au prix de la colonne Q ou R de la feuille "Liste des biens", alors je souhaite que la ligne correspondant à ces critères dans la feuille "Liste des biens" soit colorée en rouge
Y'a t'il un pro qui pourrait m'aider à faire cela????
Merci

 

[bqtr]

Re : Comparer 2 feuilles

Bonsoir jeanphi,

Test ce code :

Sub recherch()

Dim c As Range
Dim cell As Range

For Each cell In Sheets("OSIA").Range("E2:E" & Sheets("OSIA").Range("E65536").End(xlUp).Row)
    With Sheets("Liste des biens").Range("H2:H" & Sheets("Liste des biens").Range("H65536").End(xlUp).Row)
       Set c = .Find(cell, LookIn:=xlValues)
           If Not c Is Nothing Then
              If c.Offset(0, 9) Or c.Offset(0, 10) = cell.Offset(0, 17) / 12 Or cell.Offset(0, 19) / 12 Then
                 c.Interior.ColorIndex = 3
              End If
           End If
    End With
Next

End Sub

Le principe :

Pour chaque cellule de la colonne E de la feuille OSIA (For each .../...)
Dans la feuille Liste des biens, colonne H (with sheets("Liste .../...)
Recherche de la valeur (Set c = .find .../...)
Si trouvée (If not c .../...)
Test des valeurs ( if c.Offset .../...)
Si OK la cellule passe en rouge ( C.Interior .../...)

Bon test, car c'est pas facile avec des références pareils

Bonne soirée

 

[jeanphi]

Re : Comparer 2 feuilles

bonjour PO et merci pour ton aide


Je vais tester tout cela et je te tiens au courant!!!
merci
bonne journée

 

[jeanphi]

Re : Comparer 2 feuilles

PO

je souhaite apporter encore deux petites modif:
je souhaite que la ligne de la feuille OSIA soit elle aussi coloriée en rouge
par ailleurs avec ton code j ai la ligne H3 de la feuille liste des biens qui se colore meme si elle ne correspond pas aux criteres de recherche
comment faire pr éviter cela???
MERCI encore!!!

 

[Monique]

Re : Comparer 2 feuilles

Bonjour,

Par une mise en forme conditionnelle,
en donnant un nom aux 3 plages de la feuille « Osia » et aux 3 plages de la feuille des listes

Formule de la Mefc pour la feuille des listes :
=SOMMEPROD((NoOsia=$H2)*((PxSgOsia/12=$Q2)*($Q2<>"")+(PxHgOsia/12=$R2)*($R2<>"")))

Pour la feuille « Osia »
=SOMMEPROD((NoList=$E3)*((PxSgList=$V3/12)*($V3<>"")+(PxHgList=$X3/12)*($X3<>"")))

Les plages nommées dans la feuille « Osia » :
=DECALER(OSIA!$E$2;;;EQUIV("zz";OSIA!$E:$E)-1)
Equiv() pour avoir la position de la dernière cellule non vide de la colonne E
Decaler(Réf ; 0 ligne ; 0 colonne ; Hauteur par Equiv ; Largeur 1 omis)

Dans la feuille des listes :
=DECALER('Liste des biens'!$H$2;;;NBVAL('Liste des biens'!$H:$H)-1)

Et puis pas rouge, je tiens à garder ma vue intacte

 

[bqtr]

Re : Comparer 2 feuilles

Re, bonjour Monique

Le code modifié.

Sub recherch()

Dim c As Range
Dim cell As Range

Application.ScreenUpdating = False

For Each cell In Sheets("OSIA").Range("E2:E" & Sheets("OSIA").Range("E65536").End(xlUp).Row)
    With Sheets("Liste des biens").Range("H2:H" & Sheets("Liste des biens").Range("H65536").End(xlUp).Row)
       Set c = .Find(cell, LookIn:=xlValues)
           If Not c Is Nothing Then
              If c.Offset(0, 9) = cell.Offset(0, 17) / 12 And c.Offset(0, 9) <> 0 And cell.Offset(0, 17) / 12 <> 0 Then
                 c.Interior.ColorIndex = 3
                 cell.Interior.ColorIndex = 3
               End If
                 If c.Offset(0, 10) = cell.Offset(0, 19) / 12 And c.Offset(0, 10) <> 0 And cell.Offset(0, 19) / 12 <> 0 Then
                    c.Interior.ColorIndex = 3
                    cell.Interior.ColorIndex = 3
                 End If
           End If
    End With
Next

Application.ScreenUpdating = True

End Sub

Un jour il faudra que je me mette aux formules

Bonne soirée

 

[jeanphi]

Re : Comparer 2 feuilles

bonjour monique et merci


je préfère le faire en VB mais je vais tout de meme analyser tes formules car c 'est bien pratique aussi!!!
bonne journée

 

[jeanphi]

Re : Comparer 2 feuilles

bonjour PO



et encore merci à toi
je viens d etester la macro, rien ne se produit mais je vais vérifier si les adresses de colonne sont exactes
bonne journée
jphi