Renvoyer les valeur de mes textbox dans les cellule choisi dans la listbox
bonjour a tous,
Je voudrais que lorsque je choisi dans ma lisbox une ligne et que celle ci sont transmise dans mes textbox, qu'a la modification d'un texbox celle ci soit mise a jour dans mes cellule excel en cliquant sur le bouton modifier.
Salut
tu parle de bouton "valider"
le bouton enregistrer modification le bouton valider sert a valider une nouvelle ligne
Essayer ça :
Private Sub Btmodif_Click()
Dim Slct As Integer
If Lbasset.ListIndex <= 0 Then Exit Sub
Slct = Lbasset.ListIndex + 1
Cells(Slct, 1).Value = Tbcategorie.Text
Cells(Slct, 2).Value = Tbmarque
Cells(Slct, 3).Value = Cbmodele.Value
Cells(Slct, 4).Value = Tbserie
Cells(Slct, 5).Value = Tbnom.Value
Cells(Slct, 6).Value = Tbprenom.Value
Cells(Slct, 7).Value = Tbdateachat.Value
Cells(Slct, 8).Value = Tbprixachat.Value
Cells(Slct, 9).Value = Tbnomposte.Value
End Sub
Private Sub UserForm_Initialize()
'**********initialiste la listbox****************
Lbasset.ColumnCount = 9 'nombre de colonne
tbl = Range("a1:i65520")
Lbasset.List = tbl
'Lbasset.RowSource = "a1:i65520" 'tableau de la colonne A1 a i65520
'************************************************
Cbmodele.List = Array("Ecran", "UC", "Videoprojectueur", "Disque dur", "Imprimante", "USB")
End Subca ne fonction que sur
Cells(Slct, 1).Value = Tbcategorie.Text
Alors
essaye d'ajouter a tous les contrôles une " .text " et retaper les chiffres de 2 a 9 a nouveau
pareil
Private Sub Btmodif_Click()
Dim Slct As Integer
If Lbasset.ListIndex <= 0 Then Exit Sub
Slct = Lbasset.ListIndex + 1
Cells(Slct, 1).Value = Tbcategorie.Text
Cells(Slct, 2).Value = Tbmarque.Text
Cells(Slct, 3).Value = Cbmodele.Text
Cells(Slct, 4).Value = Tbserie.Text
Cells(Slct, 5).Value = Tbnom.Text
Cells(Slct, 6).Value = Tbprenom.Text
Cells(Slct, 7).Value = Tbdateachat.Text
Cells(Slct, 8).Value = Tbprixachat.Text
Cells(Slct, 9).Value = Tbnomposte.Text
End Sub
Bonjour flashover78, AMIR, le forum,
Un autre essai....
[EDIT] Je n'avais pas vu la checkbox "Supprimer ligne entière"...
Cordialement,
super merci mais je suis super novice, je dirais même débutant, voir une buse a 48 ans les neurones ne travail plus a la meme vitesse
aurais tu la possibilité de me détaille ce que fais le code ci dessous.
un grand merci
For j = 0 To UBound(tablo, 2) - 1
Ltitres.Column(j, 0) = tablo(1, j + 1)
Next j
For i = 2 To UBound(tablo, 1)
Lbasset.AddItem
For j = 0 To UBound(tablo, 2) - 1
Lbasset.Column(j, Lbasset.ListCount - 1) = tablo(i, j + 1)
If j = 6 Then Lbasset.Column(j, Lbasset.ListCount - 1) = Format(tablo(i, j + 1), "dd/mm/yyyy")
If j = 7 Then Lbasset.Column(j, Lbasset.ListCount - 1) = Format(tablo(i, j + 1), "0.00€")
Next j
Next i
Bonjour,
Merci de ce retour,
- J'utilise un tableau (Array) pour stocker les données:
tablo = Sheets("Asset").Range("A1").CurrentRegion- J'y stocke toutes les données à partir de A1.
- Ensuite, pour faire simple, je boucle sur la ligne de titre pour alimenter ma première Listbox (Ltitres) que j'ai rajoutée pour le côté esthétique.
For j = 0 To UBound(tablo, 2) - 1
Ltitres.Column(j, 0) = tablo(1, j + 1)
Next j- Je boucle sur toutes les lignes à partir de la ligne 2 pour alimenter ma seconde Listbox (Lbasset).
For i = 2 To UBound(tablo, 1)
Lbasset.AddItem
For j = 0 To UBound(tablo, 2) - 1
Lbasset.Column(j, Lbasset.ListCount - 1) = tablo(i, j + 1)
If j = 6 Then Lbasset.Column(j, Lbasset.ListCount - 1) = Format(tablo(i, j + 1), "dd/mm/yyyy")
If j = 7 Then Lbasset.Column(j, Lbasset.ListCount - 1) = Format(tablo(i, j + 1), "0.00€")
Next j
Next i- Je formate la colonne date d'achat en Date et la colonne Prix d'achat en €.
If j = 6 Then Lbasset.Column(j, Lbasset.ListCount - 1) = Format(tablo(i, j + 1), "dd/mm/yyyy")
If j = 7 Then Lbasset.Column(j, Lbasset.ListCount - 1) = Format(tablo(i, j + 1), "0.00€")Je ne rentrerai pas plus dans les détails, ne maitrisant pas complètement ces "tablo" qui ne sont pas simples à appréhender,
à 48 ans les neurones ne travaillent plus a la même vitesse
Comme je te comprends, j'ai une bougie de plus,
Tu as beaucoup de sujets qui traitent de ces tableaux ainsi qu'un cours.
Bonne continuation,
Cordialement,
MErci beaucoup,
Je vais aller voir tout ca