Option Compare Text
Dim nomtableau
Private Sub UserForm_Initialize()
nomtableau = "Client"
If Range(nomtableau).Item(1, 1) <> "" Then n = Range(nomtableau).Rows.Count + 1 Else n = 1
Me.enreg = n
Me.Id = Application.Max(Range(nomtableau & "[id]")) + 1
Tbl = Range(nomtableau).Value
Tri Tbl, LBound(Tbl), UBound(Tbl), 2
Me.Recherche.List = Tbl
End Sub
Private Sub Recherche_Change()
Me.enreg = Application.Match(Val(Me.Recherche), Range(nomtableau & "[id]"), 0)
Me.Id = Me.Recherche
Me.Nom = Range(nomtableau & "[nom]").Item(enreg, 1)
Me.Rue = Range(nomtableau & "[rue]").Item(enreg, 1)
Me.Ville = Range(nomtableau & "[ville]").Item(enreg, 1)
Me.CodePostal = Range(nomtableau & "[codepostal]").Item(enreg, 1)
Me.Tph = Range(nomtableau & "[tph]").Item(enreg, 1)
Me.Portable = Range(nomtableau & "[portable]").Item(enreg, 1)
Me.Email = Range(nomtableau & "[email]").Item(enreg, 1)
Me.Remarques = Range(nomtableau & "[remarques]").Item(enreg, 1)
End Sub
Private Sub B_valid_Click()
enreg = Me.enreg
Range(nomtableau & "[id]").Item(enreg, 1) = Val(Me.Id)
Range(nomtableau & "[nom]").Item(enreg, 1) = Me.Nom
Range(nomtableau & "[rue]").Item(enreg, 1) = Me.Rue
Range(nomtableau & "[ville]").Item(enreg, 1) = Me.Ville
Range(nomtableau & "[codepostal]").Item(enreg, 1) = Me.CodePostal
Range(nomtableau & "[tph]").Item(enreg, 1) = Me.Tph
Range(nomtableau & "[portable]").Item(enreg, 1) = Me.Portable
Range(nomtableau & "[email]").Item(enreg, 1) = Me.Email
Range(nomtableau & "[remarques]").Item(enreg, 1) = Me.Remarques
End Sub
Sub raz()
Me.Nom = ""
Me.Rue = ""
Me.Ville = ""
Me.CodePostal = ""
Me.Tph = ""
Me.Portable = ""
Me.Email = ""
Me.Remarques = ""
End Sub