Liste de valeurs à rechercher

Bonjour à tous,

Je viens ici parce que je n'arrive pas à transcrire en VBA ma demande.

J'ai un fichier excel avec deux feuilles (jusque-là tout va bien : ô)

Dans une première feuille (feuil1) j'ai un grand nombre de lignes et 4 colonnes qui représente ma base de travail.

Dans la seconde feuille (Feuil2) j'ai seulement 2 colonnes et 36 lignes qui représente les valeurs que je souhaite rechercher dans ma base de travail.

Mon souhait de recherche : pour chaque valeur de la colonne A de feuil2 parcourir Feuil1 colonne D et si c'est égal comparer les valeurs de la colonne B de feuil2 avec la colonne E de feuil1 et si elles sont différentes alors je mets la ligne en rouge.

Mon document étant assez sensible. Je préfère ne pas le mettre en pj.

Merci par avance pour votre aide.

Bonjour Costan le forum

bah oui c'est possible, mais sans fichier il faudra que tu le fasses tout seul

a+

Papou

Bonjour Costan, bonjour le forum,

Moi aussi je suis assez sensible, à ce genre de ...

Rien ne t'empêche de créer un fichier bidon reprenant la structure de ton original. Mais si tu as la flemme, imagine moi alors !...

[Édition]

Arf !... Salut Papou.

Bonjour ThauThème et Paritec,

Je viens de mettre un exemple en pj.

Ce n'est pas une question de flemme...

Avec une bonne explication pas besoin de fichier

Re,

Avec une bonne explication pas besoin de fichier

Désolé mais moi pour tester ma réponse avant de te l'envoyer j'en ai besoin...

Re,

Peut-être comme ça :

Sub Macro1()
Dim R As Worksheet
Dim V As Worksheet
Dim TR As Variant
Dim TV As Variant

Set R = Worksheets("Feuil2")
Set V = Worksheets("Feuil1")
TR = R.Range("A1").CurrentRegion
TV = V.Range("D1").CurrentRegion
For I = 1 To UBound(TR, 1)
    For J = 1 To UBound(TV, 1)
        If TR(I, 1) = TV(J, 1) And TR(I, 2) = TV(J, 2) Then
            Exit For
        End If
        If TR(I, 1) = TV(J, 1) And TR(I, 2) <> TV(J, 2) Then
            R.Rows(I).Interior.ColorIndex = 3
            V.Rows(J).Interior.ColorIndex = 3
            Exit For
        End If
    Next J
Next I
End Sub

Bonjour Robert costan le forum

Avec une bonne explication pas besoin de fichier

bah oui c'est certain mais pourquoi donc ne le fais-tu pas toi même ????

Ah Robert ces demandeurs qui ne veulent plus rien faire c'est pénible

bonne journée

a+

Papou

EDIT: Robert c'est quoi ta macro?? même pas commentée de A à Z ??? Toi aussi tu fainéantes!!!!

Re,

Ben oui Papou ! Quand je vois certaines réactions, je ne me casse plus la tête à commenter les codes...

Un grand merci ThauThème pour ton code.

Je viens de le tester et il y a juste une inversion de feuille mais c'est corrigé.

Pas besoin de commentaires pour une macro aussi simple même quand on ne connait pas ou peu le VBA. Le reste c'est de la logique.

Paritec qu'entends tu pars :

paritec a écrit :

bah oui c'est certain mais pourquoi donc ne le fais-tu pas toi même ????

Bonne fin d'après-midi.

Bonjour Robert Costan le forum

Pas besoin de commentaires pour une macro aussi simple

Tu vois Robert pas d'inquiétude, tu fais des choses tellement simple!!!

Mais pourquoi demande t'il de l'aide, c'est si simple??

a+

papou

Bonjour à tous,

Dis-moi paritec à part critiquer tous les posts que tu lis tu sers à quelque chose sur le forum ?

Re Costan le forum

Quand tu seras capable d'aider autant que moi sur le forum on reparlera, monsieur je sais tout

a+

papou

Bonjour le fil, le forum,

Comme j'ai tendance à être grossier, voire vulgaire dans ce genre de situation, je me garderai bien de te répondre Costan. C'est pour cela que je m'adresse à Papou que je connais (virtuellement) depuis déjà pas mal d'années et je lui dis merci pour tout ce qu'il a fait ici et ailleurs...

Je n'ai aucunement prétendu tout savoir paritec.

Dans un Forum, selon moi, il y a les acteurs et les demandeurs.

Sur celui-ci, je suis clairement demandeur.

Nous avons chacun nos domaines de compétences que nous pouvons mettre au service de tous. Comme vient de le faire ThauThème gentiment pour moi.

Alors paritec tu es surement très doué dans ce que tu fais mais en tout cas tu ne le montres pas tout le temps...

Sur chaque post de ce thread tu as critiqué mes propos donc je suis désolé mais à un moment ca devient agaçant.

Merci encore et bonne journée.

Re,

Costan, relis tes posts !... Depuis le début, c'est ton arrogance qui nous a agacé. Tes petites phrases :

Mon document étant assez sensible. Je préfère ne pas le mettre en pj.

Oui mais après tu nous as fourni un fichier, non ?

Avec une bonne explication pas besoin de fichier

C'est pas faux. Mais c'est à nous de recréer ton environnement pour tester le code. Un comble non ?!

Pas besoin de commentaires pour une macro aussi simple même quand on ne connait pas ou peu le VBA. Le reste c'est de la logique.

Là tu te la pètes grave et ta réponse est assez dédaigneuse à mon égard...

Et pour finir, la cerise sur le gâteau :

Dis-moi paritec à part critiquer tous les posts que tu lis tu sers à quelque chose sur le forum ?

Avec 4 post a ton actif, tu exagères ?

Tu sais quand on pratique souvent un forum, on retrouve les mêmes contributeurs. On apprend à se connaître et, au fil des fils (si j'ose dire) un respect mutuel s'établit. Dès lors, quand quelqu'un s'en prend à l'un d'entre nous il se retrouve avec la communauté pour prendre sa défense... Je n'ai rien contre toi mais je ne peux pas rester muets à propos de tes attaques. Un peu plus d'humilité et d'humour te rendront bien plus sympathique ici et ailleurs...