VBA copier/coller sur une autre feuille avec condition

[Laetitia1664]

Bonjour tout le monde,

Dans le cadre de mon travail, je dois automatiser un fichier mais je galère un peu.
je souhaiterais copier /coller les valeurs du mois précédent en fonction des references du mois actuel.
Je vous joins le fichier exemple.
Merci d'avance pour votre aide

 

[DoubleZero]

Re : VBA copier/coller sur une autre feuille avec condition

Bonjour, Laetitia1664, le Forum,

Un essai avec ce code placé dans un module... si j'ai bien compris le besoin.

Option Explicit
Sub Rechercher()
    Application.ScreenUpdating = False
    Sheets("moi actuel").Activate
    With Range("A2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Offset(, 1).FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-1],'mois précédent'!C[-1]:C[2],2,0)),"""",VLOOKUP(RC[-1],'mois précédent'!C[-1]:C[2],2,0))"
        .Offset(, 2).FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-2],'mois précédent'!C[-2]:C[1],3,0)),"""",VLOOKUP(RC[-2],'mois précédent'!C[-2]:C[1],3,0))"
        .Offset(, 3).FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-3],'mois précédent'!C[-3]:C,4,0)),"""",VLOOKUP(RC[-3],'mois précédent'!C[-3]:C,4,0))"
    End With
    Columns("B:B").NumberFormat = "m/d/yyyy"
    Cells.EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂