Bonjour Gibson StratoCaster ! le Forum
Rapidos, je te répondrai par une autre démo gérant ce genre de truc :
Lien supprimé
Et tu n'auras qu'à remplacer le code du CommandButton2 par celui-ci :
Private Sub CommandButton2_Click()
Dim LeTexte As String
Dim Container As Variant
Dim i As Byte
LeTexte = TextBox6
Container = Split(LeTexte, Chr(10)) 'NB Non Compatible Excel 97
For i = 0 To UBound(Container)
Sheets(1).Range('B' & i + 4) = Container(i)
Next
End Sub
Bon Aprèm
@+Thierry<br><br>Message édité par: _Thierry, à: 19/07/2005 16:15