Private Sub UserForm_Initialize()
Dim I As Integer
Set CLCPVil = New ComboBoxLiés
'CLCPVil.Plage Feuil3.[A2]
CLCPVil.Plage Fcpville.[A2]
CLCPVil.CouleurSympa &H80000005, &HDDFF&, &H80000005, &H80000005
CLCPVil.Add Me.CBcp, "B"
CLCPVil.Add Me.CBville, "C"
ExécutionIntempestive = True
CLCPVil.Actualiser
ExécutionIntempestive = False
Set CL = New ComboBoxLiés
CL.CouleurSympa
CL.Plage Fclient.[B2] ' feuil4=feuille clients dans la base
CL.Add Me.CBcivil, "C"
CL.Add Me.CBnom, "D"
CL.Add Me.CBprenom, "E"
CL.Actualiser
End Sub[CODE]
et
[CODE]Private Sub BtnValider_Click()
If BtnValider.Caption = "Devis" Then
Dim VCol(1 To 6, 1 To 1), L As Long
Mettre VCol, L, VLgn(1, 3) & " " & VLgn(1, 4)
Mettre VCol, L, VLgn(1, 5)
Mettre VCol, L, VLgn(1, 6), Devant:="À l'attention de : "
Mettre VCol, L, VLgn(1, 7)
Mettre VCol, L, VLgn(1, 8)
Mettre VCol, L, VLgn(1, 9) & " " & VLgn(1, 10)
Fclient.[A1:A6].Value = VCol
Else
If LCou = 0 Then
LCou = CL.PlgTablo.Rows.Count
With CL.PlgTablo.Rows(LCou): .Copy: .Insert: End With
LCou = LCou + 1: End If
VLgn(1, 6) = Me.TBattention.Text
VLgn(1, 7) = Me.TBadresse.Text
VLgn(1, 8) = Me.TBcomplement.Text
VLgn(1, 9) = Me.CBcp.Text
VLgn(1, 10) = Me.CBville.Text
VLgn(1, 11) = Me.TBtele.Text
VLgn(1, 12) = Me.TBport.Text
VLgn(1, 13) = Me.TBfax.Text
VLgn(1, 14) = Me.TBmail.Text
CL.PlgTablo.Rows(LCou).Resize(, 14).Value = VLgn
CL.Actualiser
HabiliterBoutons
End If
End Sub