Continue longtemps, c'est un régal...
Bravo à 00 pour le bonhomme de chemin parcouru.
Tu fais souvent l'âne mais tu as souvent une réponse adaptée.
Continue,longtemps, à braire sur XLD
Merci pour ce que tu apportes ici, même si pour ma part je ne comprends pas tout.
elle porte son bât du matin au soir et du soir au matin, sans rechigner (mais qu'est-ce qu'elle peut braire!
Ah non, tu ne vas pas faire comme Modeste et vider les stocks des pharmacies environnantes !Merci, mais… à quel prix ! Ma consommation d’acide acétylsalicylique fait le bonheur des laboratoires et pharmacies
Ça s'arrange pas tes problèmes de mémoire, hein ?En tous cas, nous on a une héroïne de plus, et accro... (Brigitte a vendu la mèche, tu serais une fifille ?)
Sub DoubleZero()
Dim I As Integer, Msg1 As String, Msg2 As String, Tablo
Tablo = Array(48, 48, 44, 10, 66)
Msg1 = Décode(Tablo)
Tablo = Array(105, 115, 111, 117, 115, 44, 32, 98)
Msg2 = Décode(Tablo)
For I = 1 To 100
Msg1 = Msg1 & Msg2
Next I
Msg1 = Left(Msg1, Len(Msg1) - 3) & " !"
MsgBox Msg1
End Sub
Function Décode(Tablo) As String
Dim I As Byte
For I = LBound(Tablo) To UBound(Tablo)
Décode = Décode & Chr(Tablo(I))
Next I
End Function