Macro à modifier

Cazinos

XLDnaute Occasionnel
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

XLDnaute Impliqué
Re : Macro à modifier

Bonjour Cazinos,

En espérant que BDD soit une plage de cellules,
Code:
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
 

Discussions similaires

Réponses
1
Affichages
229

Statistiques des forums

Discussions
312 017
Messages
2 084 631
Membres
102 620
dernier inscrit
Sonic4429