Sub Yellow_SubMarine_TributeA(Optional TEST_1)
Dim r, c$, x$
générer_EX
q = InputBox("Quoi?, Où?", "Test 1", "Staple,3")
r = Split(q, ","): x = r(0): c = Choose(r(1), "A:A", "B:B", "C:C", "A:C")
gribouille x, c
End Sub
Sub Yellow_SubMarine_TributeB(Optional TEST_2)
Dim r, c$, x$
générer_EX
q = InputBox("Quoi?, Où?", "Test 2", "Staple,4")
r = Split(q, ","): x = r(0): c = Choose(r(1), "A:A", "B:B", "C:C", "A:C")
gribouille x, c
End Sub
Sub Yellow_SubMarine_TributeC(Optional TEST_3)
Dim r, c$, x$
générer_EX
q = InputBox("Quoi?, Où?", "Test 3", "Staple,2")
r = Split(q, ","): x = r(0): c = Choose(r(1), "A:A", "B:B", "C:C", "A:C")
gribouille x, c
End Sub
Private Sub gribouille(mot As String, c As String)
Application.ReplaceFormat.Interior.Color = vbYellow
Columns(c).Replace _
What:=mot, Replacement:=mot, LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
End Sub
Private Sub générer_EX()
[A1:C27].Clear
[A1:C27].FormulaR1C1 = "=REPT(""Staple"",MOD(RANDBETWEEN(1,9),5)=3)"
[A1:C27] = [A1:C27].Value
End Sub