Multi recherche

Bonjour,

Dans une feuille2 j'ai des résultats de serrage (Pour des moteurs) exemple (Il y a des centaines de lignes comme ça) :

A......B............C............D.....E.......F....G......H

34...32,3 ......35,7.........30....5.....120..0......0

24....37...........33..........29....4.....120..1......0

Sur ma feuille1 je voudrais mettre sur une ligne (et huit colonnes comme dans l'exemple) des chiffres, la macro devrait aller vérifier si une ligne en feuille2 existe déjà (sur la même ligne) et bien sur me l'afficher

Je pense à des boucles mais n’existe t-il pas une function plus simple ? parce que les boucles et moi

Exemple Je cherche

34 32,3 35,7 30 5 120 0 0

La réponse il peut la mettre sous n'importe quelle forme (MsgBox ou autre)

Merci pour votre aide (en espérant avoir été assez clair)

Bonjour,

peux-tu mettre cela sous forme de fichier excel ?

Bonjour,

Une piste en admettant que les données commencent en A1 de chaque feuille :

Sub Test()

    Dim Fe1 As Worksheet
    Dim Fe2 As Worksheet
    Dim Lig As Long
    Dim Col As Long
    Dim Rep As String

    Set Fe1 = Worksheets("Feuil1")
    Set Fe2 = Worksheets("Feuil2")

    For Lig = 1 To Fe1.Range("A1").CurrentRegion.Rows.Count
        For Col = 1 To Fe1.Range("A1").CurrentRegion.Columns.Count

             If Fe1.Cells(Lig, Col).Value <> Fe2.Cells(Lig, Col).Value Then Rep = Rep & Lig & vbCrLf: Exit For

    Next Col, Lig

    If Rep <> "" Then Rep = "Différence sur les lignes : " & vbCrLf & Rep Else Rep = "Aucune différence entre les lignes !"

    MsgBox Rep

End Sub

Bonjour,

Une fois de plus merci Theze

Ce n'est pas le nombre de ligne que je veux connaitre mais c'est comparer la ligne complète à vérifier si elle colle avec ce que je demande

En feuille A1

Je lui donne 6 nombre :

0,06 => 1,12 => 1,11 ==> 1,11 ==> 2,23 ==> 3,32

Et dans Feuilles 2 j'ai une longue liste de chiffres

Je voudrais qu'il aille voir en Feuille 2 (ligne par ligne) et vérifier si il retrouve les même chiffres que je lui ai demandé

Voici un exemple

Merci pour votre aide.