A
Agm
Guest
Bonjour,
Je souhaite afficher dans un formulaire une plage de resultats provenant du même classeur excel. Voilà seulement avec mon code les résultats s'affiche tous sur la même ligne, or je voudrais quelle soit sur plusiuer lignes. voci le code :
Private Sub CommandButton1_Click()
Sheets('Temps de passage').Range('B1').Value = TextBox1.Value
Sheets('Temps de passage').Range('B2').Value = TextBox2.Value
Dim msg As String, i As Long
With Sheets('Temps de passage')
For i = 6 To 58
msg = msg & .Range('A' & i) & ' ---> ' & Format(.Range('B' & i), 'hh:mm:ss') & vbCrLf
Next i
End With
'MsgBox msg, vbOKOnly, 'Temps de passage'
TextBox3.Value = msg
End Sub
Quelqu'un peut m'aider à modifier l'affichage.
En bref, je veux afficher les cellules A6 à B58.
Merci
Je souhaite afficher dans un formulaire une plage de resultats provenant du même classeur excel. Voilà seulement avec mon code les résultats s'affiche tous sur la même ligne, or je voudrais quelle soit sur plusiuer lignes. voci le code :
Private Sub CommandButton1_Click()
Sheets('Temps de passage').Range('B1').Value = TextBox1.Value
Sheets('Temps de passage').Range('B2').Value = TextBox2.Value
Dim msg As String, i As Long
With Sheets('Temps de passage')
For i = 6 To 58
msg = msg & .Range('A' & i) & ' ---> ' & Format(.Range('B' & i), 'hh:mm:ss') & vbCrLf
Next i
End With
'MsgBox msg, vbOKOnly, 'Temps de passage'
TextBox3.Value = msg
End Sub
Quelqu'un peut m'aider à modifier l'affichage.
En bref, je veux afficher les cellules A6 à B58.
Merci