Macro à modifier

[Cazinos]

Bonjour le forum,

Je cherche de l'aide pour modifier cette macro
si(droite(g2;4)="4444";remplacer le contenu de g2 par VLOOKUP(RC[6],BDD,3,FALSE);"")

merci

Sub test()

Sheets("BX").Select

On Error Resume Next
Dim c As Range
For Each c In Range("G:G")
If UCase(Right(c, 4)) = "4444" Then ' =VLOOKUP(RC[6],BDD,3,FALSE)"

Next cel
End If
Next
End Sub

 

[cbea]

Re : Macro à modifier

Bonjour Cazinos,

En espérant que BDD soit une plage de cellules,

Sub test()
    
    Sheets("BX").Select
    
    Dim c As Range
    
    For Each c In Range("G:G")
        If UCase(Right(c, 4)) = "4444" Then
            c.FormulaR1C1 = "=VLOOKUP(RC[6],BDD,3,FALSE)"
        End If
    Next c
End Sub

 

[Cazinos]

Re : Macro à modifier

ca fonctionne bien merci