C Cazinos XLDnaute Occasionnel 4 Mai 2008 #1 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
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é 4 Mai 2008 #2 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 Vote positif 0 Vote négatif
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
C Cazinos XLDnaute Occasionnel 4 Mai 2008 #3 Re : Macro à modifier ca fonctionne bien merci Vote positif 0 Vote négatif