Help !!! Noter un n° de reference en comparant 2 feuilles

[judes]

Bonjour a tous ce que je veux faire c'est très simple mais je n'y arrive pas 🙂

je voudrais lancer une macro qui insère dans la colonne A de la feuil1 la valeur de la cologne A de la feuil2 uniquement si les valeurs des colonne B C D E F G H J sont idem pour les 2 feuilles

ci joint mon fichier excel

 

[FROLLINDE]

Re : Help !!! Noter un n° de reference en comparant 2 feuilles

Bonsoir,

Pourquoi une macro...

A2=SI(B13&C13&D13&E13&F13&G13&H13&I13&J13=Feuil2!B13&Feuil2!C13&Feuil2!D13&Feuil2!E13&Feuil2!F13&Feuil2!G13&Feuil2!H13&Feuil2!I13&Feuil2!J13;Feuil2!A13;"")


Sinon avec une macro à optimiser..

Sub remplirnumfeuil1()
Y = 2
X = 2
While Range("B" & Y) <> ""
concat1 = ""
concat2 = ""
While Sheets(1).Cells(Y, X).Value <> ""
concat1 = concat1 & Sheets(1).Cells(Y, X).Value
concat2 = concat2 & Sheets(2).Cells(Y, X).Value
X = X + 1
Wend
If concat1 = concat2 Then
valeur = Sheets(2).Cells(Y, 1).Value
Sheets(1).Cells(Y, 1) = valeur
Else
Sheets(1).Cells(Y, 1) = ""
End If
Y = Y + 1
X = 2
Wend
End Sub

François,

 

[Bebere]

Re : Help !!! Noter un n° de reference en comparant 2 feuilles

bonsoir Judes
bienvenue
rmq:les cellules sont au format texte

Sub Comparaison()
    Dim tbl, Cel As Range, i As Long, a, b

    Application.ScreenUpdating = False
    
    tbl = Feuil7.UsedRange
    With Feuil2
        For i = 2 To UBound(tbl, 1)
            For Each Cel In .Range("A2:A" & .Range("B65536").End(xlUp).Row)
                a = Cel.Offset(, 1) & Cel.Offset(, 2) & Cel.Offset(, 3) & Cel.Offset(, 4) & Cel.Offset(, 5) & Cel.Offset(, 6) & Cel.Offset(, 7) & Cel.Offset(, 9)
                b = tbl(i, 2) & tbl(i, 3) & tbl(i, 4) & tbl(i, 5) & tbl(i, 6) & tbl(i, 7) & tbl(i, 8) & tbl(i, 10)
                If a = b Then
                    Cel = tbl(i, 1)
                    Exit For
                End If
            Next Cel
        Next i
    End With

    Application.ScreenUpdating = True

End Sub

edit:bonsoir Frollinde

 

[judes]

Re : Help !!! Noter un n° de reference en comparant 2 feuilles

Bonjour j'ai inserer le code dans un bouton mais ca ne fonctionne pas :-( , en fait dans la feuille 2 c'est une liste qui sera importer a chaque fois avec des codes differents je joint mon fichier modifié

 

[Bebere]

Re : Help !!! Noter un n° de reference en comparant 2 feuilles

bonjour Judes
la feuille feuilSource où tu mets tes données
la feuille FeuilDest qui reçoit le résultat du code
le code est dans module comparaison