Discussion :

[Ledobs]

Bonjour à tous.

Je suis tout "neuf" en VBA et j'aimerais améliorer une formule trouvé sur le site de Microsoft.

J'ai un fichier Excel qui comporte deux feuilles. Dans ces deux feuilles deux colonnes correspondent. La macro que j'ai trouvé me permet de trié sur une troisième colonne les valeurs qui sont présentent dans l'autre par contre j'aimerais qu'en plsu de me retourner ce résultat qu'elle transfert l'information de la case à côté d'elle.

Voic la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Set CompareRange equal to the range to which you will
    ' compare the selection.
    Set CompareRange = Worksheets("NUMR_UTILS").Range("A1:A180")
    ' NOTE: If the compare range is located on another workbook
    ' or worksheet, use the following syntax.
    ' Set CompareRange = Workbooks("Book2"). _
    '   Worksheets("Sheet2").Range("C1:C5")
    '
    ' Loop through each cell in the selection and compare it to
    ' each cell in CompareRange.
    For Each x In Selection
        For Each y In CompareRange
            If x = y Then x.Offset(0, 1) = x
        Next y
    Next x
End Sub

Dans le fond j'aimerais ajouter quelques chose du genre : si x = y alors retourner la valeur de la colonne B de la ligne de y dans la feuille NUMR_UTILS.

Est-ce que quelqu'un peut m'éclairer svp.

En P.J. un exemple de mon fichier