textbox et mise a jour feuille

[abtony]

Bonjour le forum,

voila dans un userform j'ai une listbox a 16 colonnes, 16 textbox qui affiche la ligne sélectionné de la liste box.

Je souhaiterais savoir comment faire pour mettre a jour les donnée sur la feuille excel depuis les modif des textbox ?

j'utilise ca pour remplir mes textbox

Private Sub ListBox1_Click()
Dim X As Byte
For X = 1 To 16
Controls("Textbox" & X) = ListBox1.List(ListBox1.ListIndex, X - 1)
Next X

End Sub


je joint pas de fichier car volumineux meme compresser !


merci d'avance pour vos précieuses réponses

 

[skoobi]

Re : textbox et mise a jour feuille

Re bonjour,

La recherche de la ligne ce faisait sur toutes la feuille (Cells), et partiellement (xlpart), voici la correction à apporter:

ligne = Sheets("Débours").[B]Range("Débours").[/B]Find(ListBox1.List(ListBox1.ListIndex, 0), LookIn:=xlValues, lookat:=[B]xlWhole[/B]).Row

Autre chose, tu peux raccourcir le code du bouton "MAJ feuille" comme ceci:

Private Sub CommandButton2_Click()
With Sheets("Débours")
    .Range("A" & ligne).Value = TextBox1.Value
[B][COLOR=blue] For i = 3 To 16[/COLOR][/B]
[B][COLOR=blue]  .Cells(ligne, i).Value = Controls("TextBox" & i).Value[/COLOR][/B]
[B][COLOR=blue] Next[/COLOR][/B]
End With
[B][COLOR=blue] For i = 1 To 16[/COLOR][/B]
[B][COLOR=blue]  Controls("TextBox" & i).Value = ""[/COLOR][/B]
[B][COLOR=blue] Next[/COLOR][/B]
UserForm_Initialize
End Sub

Bonne journée 🙂

 

[abtony]

Re : textbox et mise a jour feuille

Bonjour skoobi et le forum,

Merci infiniment

je vais essayer tout ca je te tiens au courant

Bonne journée également la tempête s'est calmé

 

[abtony]

Re : textbox et mise a jour feuille

Re,

Bon tout fonctionne au poil.

Je te remercie pour le temps que tu ma consacré, c'est super sympa !

Bonne journée et bon courage

Tony