XL 2016 VBA – Rechercher valeurs dans un tableau et les transférer dans un autre tableau

[rounil09]

Malgré mes essais à partir de code récupéré, je n’arrive pas à construire une macro qui fonctionne.

Quelqu’un peut-il me venir en aide ? Explications détaillées dans fichier joint

 

[laurent3372]

Bonjour,

Voici une solution:

Option Explicit

Sub MiseAJour()
    Dim wsPortF As Worksheet, wsMaj As Worksheet
    Dim rLabelPortF As Range, rLabelMaj As Range
    Dim rng As Range
    Dim iMatch As Variant
    
    Set wsPortF = Worksheets("PORTF")
    Set wsMaj = Worksheets("MAJ")
    
    With wsPortF: Set rLabelPortF = .Range(.[B2], .Cells(Rows.Count, "B").End(xlUp)): End With
    With wsMaj: Set rLabelMaj = .Range(.[B2], .Cells(Rows.Count, "B").End(xlUp)): End With
    
    For Each rng In rLabelPortF
        iMatch = Application.Match(rng, rLabelMaj, 0)
        If IsError(iMatch) Then
            MsgBox "La valeur " & rng & " ne se trouve pas dans la liste de mise à jour", vbInformation + vbOKOnly, "Mie à Jour"
        Else
            rng.EntireRow.Resize(, 8).Value = wsMaj.[A1:H1].Offset(iMatch).Value
        End If
    Next rng
 End Sub

Bonne chance,
--
LR

 

[rounil09]

Un grand merci et bonne journée Laurent, ça fonctionne nickel.

 

[laurent3372]

Marquer comme résolu ?