Private Sub trav_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Long
If trav.ListIndex = -1 Then Exit Sub
If signa= 0 Then
for x = 2 to finf11
Next
Else
With DepTraitements
.machh = xhôtel(nohote)
.TypeSignalement = xSignalement(nohote) '.Cells(fin, 2) =
.TxtDate = .Cells(fin, 3)
.Réf = .Cells(fin, 4)
.DateSignalement = .Cells(fin, 5)
.Eché = .Cells(fin, 6)
.plate.Text = .Cells(fin, 7)
.Auteur = .Cells(fin, 8)
.Déscription = .Cells(fin, 9)
.Clé = .Cells(fin, 10)
.TxtNom = .Cells(fin, 11)
.DatePCh = .Cells(fin, 12)
.Commentaire = .Cells(fin, 14)
.Durée = .Cells(fin, 13)
.numchbre = .Cells(fin, 16)End With
DepTraitements.Show
End If
End Sub