Ajouter une ligne

[apdf]

Bonjour,

Voila mon code qui parlera mieux que moi, il sagit de mettre une option bouton et un textbox dans une même celullle (E9) ex. Madame Dupont Je chercher a ajouter une ligne aprés chaque validation.

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub OptionButton1_Change()
Cells(9, 5) = "Monsieur " & TextBox1.Value
End Sub
Private Sub OptionButton2_Change()
Cells(9, 5) = "Madame " & TextBox1.Value
End Sub
Private Sub OptionButton3_Change()
Cells(9, 5) = "Mademoiselle " & TextBox1.Value
End Sub
Private Sub TextBox1_Change()
Dim Ctrl As Control
For Each Ctrl In Frame1.Controls
If Ctrl.Object.Value = True Then
Cells(9, 5) = Ctrl.Caption & " " & TextBox1.Value
End If
Next Ctrl
End Sub
Private Sub UserForm_Initialize()
Dim monNom As String
monNom = Cells(1, 1).Value
If Left(monNom, 9) = "Monsieur " Then monNom = Right(monNom, Len(monNom) - 9): OptionButton1.Value = True
If Left(monNom, 7) = "Madame " Then monNom = Right(monNom, Len(monNom) - 7): OptionButton2.Value = True
If Left(monNom, 13) = "Mademoiselle " Then monNom = Right(monNom, Len(monNom) - 13): OptionButton3.Value = True
TextBox1 = monNom
End Sub

merci d'avance.
Cordialement
Max

 

[youky(BJ)]

Re : Ajouter une ligne

Salut apdf,
je suis pas sur d'avoir compris mais si tu veux inserer une ligne. . .

Private Sub OptionButton1_Change()
Rows(9).Insert
Cells(9, 5) = "Monsieur " & TextBox1.Value
End Sub

 

[apdf]

Re : Ajouter une ligne

Bonjour ,

Je te remerci super Cordialement
Max