XL 2019 Etirer vers la droite une recherche via VBA (macro)

sylvanu à dit:

Bonjour Jo Mortu,
En PJ un essai. La macro s'active lorsqu'on sélectionne la feuille "BDD finale".

VB:

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("BDD finale")
        For L = 2 To .Range("A65500").End(xlUp).Row
            If Not IsError(Application.Match(.Cells(L, "A"), Sheets("Source").Range("A:A"), 0)) Then
                IndexR = Application.Match(.Cells(L, "A"), Sheets("Source").Range("A:A"), 0)
                For C = 2 To 8
                    .Cells(L, C) = Sheets("Source").Cells(IndexR, C)
                Next C
            End If
        Next L
    End With
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Jo Mortu,
En PJ un essai. La macro s'active lorsqu'on sélectionne la feuille "BDD finale".

VB:

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("BDD finale")
        For L = 2 To .Range("A65500").End(xlUp).Row
            If Not IsError(Application.Match(.Cells(L, "A"), Sheets("Source").Range("A:A"), 0)) Then
                IndexR = Application.Match(.Cells(L, "A"), Sheets("Source").Range("A:A"), 0)
                For C = 2 To 8
                    .Cells(L, C) = Sheets("Source").Cells(IndexR, C)
                Next C
            End If
        Next L
    End With
End Sub

Bonsoir Sylvanu,

Je reviens vers vous pour vous remercier, çà fonctionne. C'est parfait.

J'ai adapté le code pour la faire fonctionner avec un bouton.

Merci beaucoup.

Bonne soirée

Cliquez pour agrandir...