Excel VBA

[agm]

Bonjour je suis debutant en excel et vba, Je souhaiterais afficher dans un message box les valeurs provenant de A6:B56. La colonne B contient des temps de type hh:mm:ss et lma colonne A des distances.

Voici le code que j'utilise mais ca marche pas :

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 Range
Set Msg = Sheets('Temps de passage').Range('A6:B58').Value
MsgBox Msg
End Sub

Merci de votre aide

 

[mutzik]

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

 

[Agm]

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 ?

 

[mutzik]

re,

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

 

[Agm]

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.

 

[mutzik]

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