Excel VBA

bonjour agm

mets le code suivant à la place de dim msg as range ...

dim msg as string, i as long
with Sheets('Temps de passage')
for i = 6 to 58
msg = msg & .Range('A' & i) & ' ' & .Range('B' & i) & vbcrlf
next i
end with
msgbox msg

Super ca marche merci.

Mais j'ai un autre petit problème c'est que la colonne B est affiche sous forme de hh:mm:ss dans mon tableau excel, Mais dans le message box il apprait sous forme de décimal, comment faire pour modifier le format d'affichage ?

re,

tu remplaces .Range('B' & i) par format(.Range('B' & i);'hh:mm:ss')
ou le format que tu veux ...

Encore merci Bertrand,

Ca marche, voici le code modifié :

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
End Sub

Est ce qu'il y a la possibilté de generer un fichier .txt a partir de ces données et d'eventuellement les afficher sous forme de MsgBox. Ceci afin de facilité ensuite l'impression des données.

Merci.

Re,

générer fichier texte : oui mais dans quel but
afficher sous forme de msgbox : c'est déja fait dans le code que tu donnes
impression : je vois pas ou est le prob :
- tu nommes ton range a6:b58 'datas' (ou ce que tu veux)
- ensuite tu appelles cette range datas par la méthode atteindre
- zone d'impression
- imprimer

... et hop, ça roule