Dim fin As Long
Dim haute As Integer
Verif1
If deja = True Then Exit Sub
fin = finf11 + 1
haute = trans.Cells(nohote, 1)
Feuil11.Cells(fin, 1) = CDate(Now): Feuil11.Cells(fin, 1).NumberFormat = "dd/mm/yyyy"
Feuil11.Cells(fin, 2) = nohote
Feuil11.Cells(fin, 3) = CDate(TxtDate): Feuil11.Cells(fin, 3).NumberFormat = "dd/mm/yyyy"
Feuil11.Cells(fin, 4) = Réf
Feuil11.Cells(fin, 5) = TypeSignalement.List(TypeSignalement.ListIndex, 0)
Feuil11.Cells(fin, 6) = plate.List(plate.ListIndex, 0)
Feuil11.Cells(fin, 7) = Auteur
Feuil11.Cells(fin, 8) = TxtNom
Feuil11.Cells(fin, 9) = Clé
Feuil11.Cells(fin, 10) = NbAdultes
Feuil11.Cells(fin, 11) = Nbenfants
Feuil11.Cells(fin, 12) = Total.Caption
Feuil11.Cells(fin, 13) = Capacité
Feuil11.Cells(fin, 14) = numchbre
Feuil11.Cells(fin, 15) = ""
Feuil11.Cells(fin, 16) = surr.Caption
Feuil11.Cells(fin, 17) = Déscription
Feuil11.Cells(fin, 19) = TyppologieMe.List(TyppologieMe.ListIndex, 0)
Feuil11.Cells(fin, 20) = StatutDemande.List(StatutDemande.ListIndex, 0)
Feuil11.Cells(fin, 21) = StatutInter.List(StatutInter.ListIndex, 0)
Feuil11.Cells(fin, 22) = TypeInterv.List(TypeInterv.ListIndex, 0)
If TypeSignalement.ListIndex = 1 Then
Feuil11.Cells(fin, 18) = TeamVer
Else
If TypeSignalement.ListIndex = 2 Then
Feuil11.Cells(fin, 18) = TeamMe
End If
If DateVisite = Not Empty Then
Feuil11.Cells(fin, 23) = CDate(DateVisite): Feuil11.Cells(fin, 23).NumberFormat = "dd/mm/yyyy"
End If
Unload Me
End If