Bonjour, j'ai un fichier (très gros) avec ce bout de macro dedans auquel j'y comprends rien.
Pourriez vous svp, m'expliquer ce que cela veut dire ou traduire ou m'aider à l'interpreter"?
Merci d'avance
Cells.Find(What:="Grand Total:", after:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, -3).Select
ActiveCell.Value = "STOP"
Range("A1").Select
Do Until ActiveCell = "STOP"
If ActiveCell.Value <> "STOP" Then ActiveCell.FormulaR1C1 = _
"=IF(LEFT(RC[11],1)=""9"",""YES"",IF(ISNA(VLOOKUP(RC[11],Suppl_data!C:C[8],8,FALSE)),""NO"",""YES""))"
Selection.Offset(1, 0).Select
Loop
Range("D1").Select
Pourriez vous svp, m'expliquer ce que cela veut dire ou traduire ou m'aider à l'interpreter"?
Merci d'avance
Cells.Find(What:="Grand Total:", after:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, -3).Select
ActiveCell.Value = "STOP"
Range("A1").Select
Do Until ActiveCell = "STOP"
If ActiveCell.Value <> "STOP" Then ActiveCell.FormulaR1C1 = _
"=IF(LEFT(RC[11],1)=""9"",""YES"",IF(ISNA(VLOOKUP(RC[11],Suppl_data!C:C[8],8,FALSE)),""NO"",""YES""))"
Selection.Offset(1, 0).Select
Loop
Range("D1").Select