Private Sub UserForm_Initialize()
' cboOnglet
With cboOnglet
.Style = fmStyleDropDownList
.AddItem "Bon_Reservation"
.AddItem ""
End With
With cboRace ' Race
.AddItem "Westie"
.AddItem "Cavalier C.K.C "
.AddItem "Lévrier "
.AddItem "Yorkshire "
End With
With cboSexe 'Sexe
.AddItem "F"
.AddItem "M"
End With
With cboCouleur ' couleur
.AddItem "Blenheim"
.AddItem "Rubis "
.AddItem "Noir & Feu "
.AddItem "Tricolore "
.AddItem "Bleu acier foncé "
End With
With cboReglement 'Réglement
.AddItem "Espèce"
.AddItem "Chèque"
.AddItem "Carte"
End With
With cboPuce 'Puce
.AddItem "Oui"
.AddItem "Nom"
End With
With cboVaccine 'Vaccine
.AddItem "Oui"
.AddItem "Nom"
End With
With cboVisite 'Visite
For i = 1 To 12
.AddItem i
Next i
End With
IniLabelID
End Sub
Sub IniLabelID()
With Sheets("Entrer")
LabelID = Application.CountA(.Range("A1:A" & .Range("A65000").End(xlUp).Row)) 'mettre la lettre de la colonne pour le N°du LabelID
End With
End Sub
'Ajouter
Private Sub btnOK_Click()
Dim Ctrl As Control
For Each Ctrl In Frame1.Controls
If Ctrl.Object.Value = True Then
With Sheets("Entrer")
L = .Range("A65000").End(xlUp).Row + 1
' With cboOnglet
' If .ListIndex <> -1 Then
' If .Value = "1" Then
' Sheets ("Entrer") 'code alimentation feuille 1
' End With
'Else
' Sheets ("Bon_Reservation") 'code alimentation feuille 2
'End If
'End If
With Sheets("Entrer")
.Cells(L, 2).Value = T3
.Cells(L, 3).Value = cboRace.Value
.Cells(L, 10).Value = cboCouleur.Value
.Cells(L, 5).Value = T5
.Cells(L, 4).Value = cboSexe.Value 'Sexe
.Cells(L, 11).Value = T11
.Cells(L, 12).Value = T12
.Cells(L, 7).Value = T7
.Cells(L, 6).Value = T6 'Taille
.Cells(L, 21).Value = Ctrl.Caption & " " & T21.Value
.Cells(L, 22).Value = T22
.Cells(L, 23).Value = T23
.Cells(L, 27).Value = T28
.Cells(L, 1).Value = "N° " & LabelID
.Cells(L, 24).Value = T24
.Cells(L, 8).Value = T8 'Tatouage
.Cells(L, 9).Value = T9 'Puce
.Cells(L, 13).Value = T13 'N° lof Parents
.Cells(L, 14).Value = Format(T14, "0.00 €") 'Prix
.Cells(L, 15).Value = T15 'Date
.Cells(L, 16).Value = Format(T16, "0.00 €") 'Acompte
.Cells(L, 17).Value = T17 'Date
.Cells(L, 18).Value = Format(T18, "0.00 €") 'Acompte
.Cells(L, 19).Value = Format(T19, "0.00 €") 'Solde
.Cells(L, 20).Value = cboReglement 'Reglement
.Cells(L, 25).Value = T25 'Département
.Cells(L, 26).Value = T26 & "@" & T27 'Email
.Cells(L, 28).Value = T29 'Mobile
.Cells(L, 29).Value = T30 'Fax
.Cells(L, 30).Value = cboVisite 'Nbre visite
.Cells(L, 31).Value = T31 'Date Modif
.Hyperlinks.Add .Cells(L, 26), Address:="mailto:" & "T26 & T27" 'Email actif sur la feuille
With Sheets("Bon_Reservation")
.Range("B14").Value = T3 'Nom
.Range("B15").Value = cboRace.Value 'Race
.Range("B16").Value = cboCouleur.Value 'Couleur
.Range("B17").Value = T5 'Date de naissance
.Range("B18").Value = T11 'pere
.Range("B19").Value = T12 'mere
.Range("B20").Value = T7 'N° LOF
.Range("B21").Value = cboPuce.Value 'Puce
.Range("D21").Value = cboVaccine.Value 'Vaccine
.Range("B3").Value = Ctrl.Caption & " " & T21.Value 'Nom propriétaire
.Range("B4").Value = T22 'Adresse
.Range("B5").Value = T23 'CP
.Range("B6").Value = T24 'Ville
.Range("B7").Value = T28 'Tel
.Range("C23").Value = Format(T14, "0.00 €") 'Prix
.Range("B27").Value = Format(T16, "0.00 €") 'Acompte
End With
'
IniLabelID
End With
End With
End If
Next Ctrl
End Sub