ptittitine
XLDnaute Nouveau
Bonjour tout le monde!!
j'avance surement mais doucement sur mon projet. Mais là je coince encore une fois.
Voilà le principe, via un userform, j'encode des données qui vont se mettre dans une feuille récap excel ligne après ligne. Le truc c'est qu'on doit pouvoir modifier les données de n'importe quelle ligne via le userform. Jusque là j'ai plus ou moins réussi. Là où ça coince c'est que les modifications doivent apparaitre dans la ligne modifiée et pas dans une nouvelle ligne. Voilà le code que j'ai utilisé:
Sub Bouton9_Clic()
Sheets("Récap").Select
If ActiveCell <> "" And ActiveCell.Row > 2 Then
MesVal = Array("ComboBox2", "TextBox1", "ComboBox1", "ComboBox3", "ComboBox4", "TextBox2", "TextBox3", "ComboBox5", "TextBox4", "TextBox5", "TextBox6", "ComboBox6", "ComboBox7", "ComboBox8", "TextBox7", "ComboBox9", "TextBox8")
MaLig = ActiveCell.Row
For I = 0 To UBound(MesVal)
UserForm1.Controls(MesVal(I)).Text = Sheets("Récap").Cells(MaLig, I + 1)
Next
UserForm1.CommandButton1.Visible = True
Else
MsgBox "Selectionner une fiche !"
End If
'Sheets("Feuille de saisie").Select
UserForm1.Show
End Sub
Quelqu'un a-t-il une idée du pourquoi une nouvelle ligne se créer au lieu de modifier la ligne en question?
Merci pour votre aide!!!!
Titine
j'avance surement mais doucement sur mon projet. Mais là je coince encore une fois.
Voilà le principe, via un userform, j'encode des données qui vont se mettre dans une feuille récap excel ligne après ligne. Le truc c'est qu'on doit pouvoir modifier les données de n'importe quelle ligne via le userform. Jusque là j'ai plus ou moins réussi. Là où ça coince c'est que les modifications doivent apparaitre dans la ligne modifiée et pas dans une nouvelle ligne. Voilà le code que j'ai utilisé:
Sub Bouton9_Clic()
Sheets("Récap").Select
If ActiveCell <> "" And ActiveCell.Row > 2 Then
MesVal = Array("ComboBox2", "TextBox1", "ComboBox1", "ComboBox3", "ComboBox4", "TextBox2", "TextBox3", "ComboBox5", "TextBox4", "TextBox5", "TextBox6", "ComboBox6", "ComboBox7", "ComboBox8", "TextBox7", "ComboBox9", "TextBox8")
MaLig = ActiveCell.Row
For I = 0 To UBound(MesVal)
UserForm1.Controls(MesVal(I)).Text = Sheets("Récap").Cells(MaLig, I + 1)
Next
UserForm1.CommandButton1.Visible = True
Else
MsgBox "Selectionner une fiche !"
End If
'Sheets("Feuille de saisie").Select
UserForm1.Show
End Sub
Quelqu'un a-t-il une idée du pourquoi une nouvelle ligne se créer au lieu de modifier la ligne en question?
Merci pour votre aide!!!!
Titine