Parametrer optionbutton pour client

Question

Dans le classeur d'ajout client qui suit et qui fonctionne bien, je n'arrive pas a paramétrer les option buttons pour le type de clients merci par avance de vos idées Pascal...

sam20102 · Answer

Voici une solution a t on problème. Cordialement...

sam20102 · Answer

Désolé tu as raison le fichier ne veut pas ce joindre alors voici le code a mettre en lieu place de ton code sur ton fichier

Private Sub Ajout_cli_Click()

With Sheets("client")

i = .Range("B65536").End(xlUp).Row

If OptionButton1.Value = True Then

.Range("A" & i + 1).Value = OptionButton1.Caption

End If

If OptionButton2.Value = True Then

.Range("A" & i + 1).Value = OptionButton2.Caption

End If

If OptionButton3.Value = True Then

.Range("A" & i + 1).Value = OptionButton3.Caption

End If

.Range("C" & i + 1).Value = ComboBox1.Value

.Range("B" & i + 1).Value = ACNUMCLIENT

.Range("D" & i + 1).Value = ACNOM

.Range("E" & i + 1).Value = ACPRENOM

.Range("F" & i + 1).Value = ACADRESSE

.Range("G" & i + 1).Value = ACCOMPLEMENT

.Range("H" & i + 1).Value = cboCP

.Range("I" & i + 1).Value = Lstville

.Range("J" & i + 1).Value = ACTELEPHONNE

.Range("K" & i + 1).Value = ACPORTABLE

.Range("L" & i + 1).Value = ACFAX

.Range("M" & i + 1).Value = ACMAIL

End With

ComboBox1.Value = ""

ACNUMCLIENT.Value = ""

ACNOM.Value = ""

ACPRENOM.Value = ""

ACADRESSE.Value = ""

cboCP.Value = ""

Lstville.Value = ""

ACTELEPHONNE.Value = ""

ACPORTABLE.Value = ""

ACFAX.Value = ""

ACMAIL.Value = ""

'ici on vire le userform pas la peine de le garder en memoire

Unload Me

End Sub