Copier valeur identique dans autre feuille- Excel VBA

Salu les experts

Je souhaiterais trouver un code qui me permet de copier et transférer des donnés si elle sont les même dans deux feuille differente ,

Les données qui sont dans la feuille "Source" , je voudrais quelle soit comparer avec la feuille « Compte », avec le nomclient ou compteclient qui se trouve en colonne a et B.

Si ce sont les même valeur,, j aimerais que les lignes correspondante au numero de compte ou nom client soit copier dans la feuille « Résultat »

Petite précision, le nombre de ligne qui se trouvent dans la feuille "source" et "compte" peuvent variés.

Merci pour votre aide

Trouver ci joint mon fichier exemple.

Cdt

lgvba

bonjour

un essai ; ce sera du direst sans bouton

cordialement

Bonsoir,

A mettre dans un module standard et affecter cette macro au bouton (clic droit > affecter une macro...) :

Sub Trouver()

    Dim PlgSource As Range
    Dim PlgCompte As Range
    Dim CelSource As Range
    Dim CelCompte As Range
    Dim Adr As String

    With Worksheets("SOURCE")

        'à partir de B2
        Set PlgSource = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))

    End With

    With Worksheets("Compte")

        'à partir de B2
        Set PlgCompte = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))

    End With

    'boucle la plage de la feuille "Compte" et cherche chaque valeur
    'en correspondance exacte dans la plage de la feuille "Source"
    For Each CelCompte In PlgCompte

        Set CelSource = PlgSource.Find(CelCompte, , xlValues, xlWhole)

        'si trouvée :
        If Not CelSource Is Nothing Then

            'mémorise l'adresse de la 1ère cellule
            Adr = CelSource.Address

            'puis boucle sur toutes les valeurs et les colles dans la feuille "Resultat"
            Do

                With Worksheets("Resultat")

                    CelSource.EntireRow.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)

                End With

                Set CelSource = PlgSource.FindNext(CelSource)

            Loop While Adr <> CelSource.Address

        End If

    Next CelCompte

End Sub

Hervé.

Bonjour,

@Theze,

Bien ta soluce, perso je cherche depuis ce matin.

sauf que : si on clic une 2ème fois après ajout de données dans compte, on recopie les mm item + ajouts donc doublon.

Perso je cherche mm item + ajouts sans doublon. j'en ai mal à la T

EDIT

_________________________

Touvé sur le net et modifié:

http://boisgontierjacques.free.fr/index2.htm

En "K2"

=SOMMEPROD((SOURCE!A2=Compte!A1:A2000)*(SOURCE!B2=Compte!B1:B2000))>0

Dans un module

Sub ExtraitResultat()
  Sheets("SOURCE").[A1:F2000].AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=[k1:k2], CopyToRange:=[A1:F1]
End Sub
End Sub

merci messieurs pour vour votre pertinente reponse

bonjour,

je ne suis pas vraiment fortiche en VBA et je pense que ce que je cherche a faire ne peut pas être fait autrement.

j'ai un fichier avec plusieurs feuilles:

1 avec le nom: Sommaire

1 avec le nom: Exploitation

1 avec le nom: listing

1 avec le nom: feuil formules

lorsque je remplie les cellules de mon listing par une formule Excel le résultat s'inscrit dans ma feuil formules pour cela la formule est dans la cellule G7 de la feuil formule mais si en G8 de cette même feuille je désir mettre une forme conditionnel je ne peux pas car la formule étant dans G7 Excel ne considère pas que ma cellule est vide. en faite je voudrais que lorsque G7 est vide G8 soit vide et si G7 a le résultat de ma feuille listing alors la cellule G8 de la feuil formule devienne grise

pour ce faire on m'a dit que cela devais passer par un code VBA

et que le résultat inscrit en G7 de la feuil formules devait aller s'inscrire dans la feuille (Exploitation en G7)

et vue que la feuil Exploitation G7 serait vide alors je pourrais

mais je ne réussi pas cette manipe de code

je vous joins mon fichier si quelque un pouvait m'aider vous seriez super sympa y appliquer tout les forme de condition que je veux!

Bonjour,

2 remarques:

1- tu dois ouvrir ton propre post et pas te greffer sur un que tu as déterré de 2012:)

2- tu devrais dire si c'est absolument du VBA ou bien si des formules te conviendront ?

P.

ps: je débroussaille pour mes petits camarades, pas le temps de regarder à ton problème et pas certain que pouvoir t'aider

ok je veux bien ouvrir mon propre poste mais comment faire ???