Staple1600
XLDnaute Barbatruc
[VBA] Elvis, Excel, la musique , le midi
Bonsoir
Je vous demande, svp, de tester ce code pour vérifier si votre Excel n' a pas été marabouté car je viens d'essayer ce code sur mon PC.
Et la STUPEUR !!
Même Excel connait le .....
Bonne soirée à tous.
PS: Vous pouvez tester ce code VBA, sans autre danger (que peut-être) , avoir une pensée émue pour ...
Bonsoir
Je vous demande, svp, de tester ce code pour vérifier si votre Excel n' a pas été marabouté car je viens d'essayer ce code sur mon PC.
Et la STUPEUR !!
Code:
Sub la_macro_ultime()
Dim VRAIMENT_TRES_IDIOT(): Dim i As Byte
Dim INCROYABLE As String: Dim XY As Long
Dim LE_NOMBRE_INTERDIT As Long
LE_NOMBRE_INTERDIT = (57 * 100): XY = 52000
'/////////////////////////////////////////////////
C_EST_IDIOT = Split("70/77/87/74/84/75/85", "/")
For i = LBound(C_EST_IDIOT) To UBound(C_EST_IDIOT)
ReDim Preserve VRAIMENT_TRES_IDIOT(i)
VRAIMENT_TRES_IDIOT(i) = C_EST_IDIOT(i)
Next i
INCROYABLE = Chr(VRAIMENT_TRES_IDIOT(0) - 1) _
& Chr(VRAIMENT_TRES_IDIOT(1) - 1) _
& Chr(VRAIMENT_TRES_IDIOT(2) - 1) _
& Chr(VRAIMENT_TRES_IDIOT(3) - 1) _
& Chr(VRAIMENT_TRES_IDIOT(4) - 1) _
& Chr(32) & Chr(VRAIMENT_TRES_IDIOT(5) - (1 + 1)) _
& Chr(VRAIMENT_TRES_IDIOT(6) - (1 + 1)) & Chr(32) & Hex(5 + (LE_NOMBRE_INTERDIT + XY - 700))
MsgBox INCROYABLE, vbYesNo + vbCritical, "Incroyable, non?"
End Sub
Bonne soirée à tous.
PS: Vous pouvez tester ce code VBA, sans autre danger (que peut-être) , avoir une pensée émue pour ...
Dernière édition: