En VBA pour Excel, probléme de modification de données

Bonjour,

J'ai réalisé l'essai suivant (voir fichier). Les explications sont dans l'userform.

Ce qui ne fonctionne pas c'est quand je veux modifier plus d'une donnes de la ligne sélectionnée, et je ne comprends pas pourquoi.

Est-ce que quelqu'un peut m'aider ?

Cordialement

comment intégrer mon fichier, je ne trouve pas ?

Je sais pas si on peut mais mes nous simplement les codes

re bonjour,

Voir la sub modif :

Private Sub CommandButton1_Click()
Load UserForm2
UserForm2.Show
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub ListBox1_Click()
Dim NuméroLigne As Integer

NuméroLigne = ListBox1.Value
NuméroLigne = NuméroLigne + 1

TextBox1.Value = Cells(NuméroLigne, 2)
TextBox2.Value = Cells(NuméroLigne, 3)
TextBox3.Value = Cells(NuméroLigne, 1)
ComboBox1.Value = Cells(NuméroLigne, 4)

End Sub

Private Sub modif_Click()
Dim NuméroLigne As Integer

'Bouton modification
If OptionButton2 = False Then Exit Sub

NuméroLigne = ListBox1.Value
NuméroLigne = NuméroLigne + 1

If TextBox3.Value <> Cells(NuméroLigne, 1) Then Cells(NuméroLigne, 1) = Me.TextBox3

If TextBox1.Value <> Cells(NuméroLigne, 2) Then Cells(NuméroLigne, 2) = Me.TextBox1

If TextBox2.Value <> Cells(NuméroLigne, 3) Then Cells(NuméroLigne, 3) = Me.TextBox2

If ComboBox1.Value <> Cells(NuméroLigne, 4) Then Cells(NuméroLigne, 4) = Me.ComboBox1

End Sub

Private Sub OptionButton1_Click()

Range("A1").Activate
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
ComboBox1 = ""

ListBox1.Visible = False

End Sub

Private Sub OptionButton2_Click()
Dim dercell As String


Range("A1").Activate

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
ComboBox1 = ""

ListBox1.Visible = True
'sélection de la zone de la liste box
dercell = Range("a1").End(xlDown).Row
ListBox1.RowSource = "A1:d" & dercell



End Sub

Private Sub OptionButton3_Click()
Dim DerVerbe As String

If OptionButton3 = True Then
Worksheets("Feuil2").Select
DerVerbe = Range("A1").End(xlDown).Address
ComboBox1.RowSource = "A1:" & DerVerbe
Worksheets("Feuil1").Select

End If
End Sub

Private Sub OptionButton4_Click()
Dim DerVerbe As String

If OptionButton4 = True Then
Worksheets("Feuil2").Select
DerVerbe = Range("B1").End(xlDown).Address
ComboBox1.RowSource = "B1:" & DerVerbe
Worksheets("feuil1").Select

End If
End Sub

Private Sub UserForm_Initialize()


'bouton validation
OptionButton1 = True
'bouton 1ère liste verbe
OptionButton3 = False
'bouton 2ème liste verbe
OptionButton4 = False

NuméroLigne = ListBox1.Value
NuméroLigne = NuméroLigne + 1



End Sub

Private Sub valid_Click()
Dim DerligSaisie As String

If OptionButton1 = True Then

Worksheets("Feuil1").Select
DerligSaisie = [a65000].End(xlUp).Row + 1

Cells(DerligSaisie, 1) = Me.TextBox3
Cells(DerligSaisie, 2) = Me.TextBox1
Cells(DerligSaisie, 3) = Me.TextBox2
Cells(DerligSaisie, 4) = Me.ComboBox1

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox1.Value = ""

End If

End Sub


D'vance merci

Hidozo

désolé !!!!

Merci quand même

hidozo