Edition listbox

[roro69]

Bonjsoir,et déjà un grand merci à ceux qui me donneront un peu de leur temps
voilà dans mon usf"édition des produits "lorse que je modifie un ingrédients;il se modifie bien dans ma feuille;mais la liste box ne se remet pas à jour;Si vous pouviez m'aider merci d'avance.
Je vous joint le fichier pour plus d'infos.
Encore merci d'avance et bonne soirée.

 

[BERRACHED said]

Re : Edition listbox

Salut,Roro69

Tu rajoute simplement dans ton code la ligne en rouge

Private Sub CmdEdit_Click()
Dim Cel As Range
   On Error GoTo erreur
   F2.Activate
  Set Cel = RgIng.Columns(3).Cells.Find(LabingID)
   If Cel Is Nothing Then GoTo erreur
   With Cel
     .Cells(1, 2) = TextIng
     .Cells(1, 3) = TextUni
     .Cells(1, 4) = CDbl(TextSde.Value)
     .Cells(1, 5) = ""
     .Cells(1, 8) = CDbl(TextMini.Value)
With Me
      .LabingID = Cel.Value
      .TextIng = Cel.Cells(1, 2)
      .TextUni = Cel.Cells(1, 3)
      .TextSde = Cel.Cells(1, 4)
      .TextSto = Cel.Cells(1, 7)
      .TextMini = Cel.Cells(1, 8)
      .TextEtat = Cel.Cells(1, 11)
 End With
      With ListIng
 If .ListIndex = 0 Then Exit Sub
    .ListIndex = .ListIndex + 1
    .SetFocus
    End With
   End With

Exit Sub
erreur:
   Beep
   [COLOR="Red"]UserForm_Initialize[/COLOR]
End Sub

Cordialement

 

[roro69]

Re : Edition listbox

Bonjour said ;
merci de t'interesser à mon problème;j'ai essayé ta solution mais çà ne mets pas ma listbox à jour.
Encore merci.

 

[BERRACHED said]

Re : Edition listbox

Salut,Roro69

Une autre option ca marcher chez moi :

tu rajout ce module :

Sub Ini()
Dim Cel As Range
  Set RgCat = F1.Range("A2", F1.Range("A65536").End(xlUp))
  Set RgIng = F2.Range("A2", F2.Range("A65536").End(xlUp))
   Set RGing1 = F2.Range("B2", F2.Range("B65536").End(xlUp))
  Set PlageMenu = F4.Range(("B3:B42"))
  With ListCat
    .List = RgCat.Offset(0, 1).Value
    If .ListCount > 0 Then .ListIndex = 0
  End With
End Sub

tu rajoute la ligne en rouge :

Private Sub CmdEdit_Click()
Dim Cel As Range
   On Error GoTo erreur
   F2.Activate
  Set Cel = RgIng.Columns(3).Cells.Find(LabingID)
   If Cel Is Nothing Then GoTo erreur
   With Cel
     .Cells(1, 2) = TextIng
     .Cells(1, 3) = TextUni
     .Cells(1, 4) = CDbl(TextSde.Value)
     .Cells(1, 5) = ""
     .Cells(1, 8) = CDbl(TextMini.Value)
With Me
      .LabingID = Cel.Value
      .TextIng = Cel.Cells(1, 2)
      .TextUni = Cel.Cells(1, 3)
      .TextSde = Cel.Cells(1, 4)
      .TextSto = Cel.Cells(1, 7)
      .TextMini = Cel.Cells(1, 8)
      .TextEtat = Cel.Cells(1, 11)
 End With
      With ListIng
 If .ListIndex = 0 Then Exit Sub
    .ListIndex = .ListIndex + 1
    .SetFocus
    End With
   End With
[COLOR="Red"]Ini[/COLOR]Exit Sub
erreur:
   Beep
End Sub

Cordialement

 

[roro69]

Re : Edition listbox

Bonjour Said
Merci encore de ton aide ; mais çà ne fonctionne pas ma litbox ne se remets pas à jour;
je vais continuer de chercher .Merci encore

 

[Pierrot93]

Re : Edition listbox

Bonjour Roro, Said

pour mettre à jour une "listbox", effacer au préalable le contenu et réinitialiser :


une solution parmi d'autres...

ListBox1.Clear
ListBox1.List = Range("A2:B9").Value

bon après midi
@+

 

[roro69]

Re : Edition listbox

Bonjour pierre93
Ta solution marche presque ;en effacant la listbox ;et ensuite je réinitialise l'usf ma list se met à jour ; mais se que voulait c'est me retrouver sur l'item modifier et là sa ne marche plus.
Merci de votre aisdes
A++

 

[Pierrot93]

Re : Edition listbox

Re

pas sur d'avoir tout compris, peut être comme ceci :

Dim x As Integer
x = ListBox1.ListIndex
ListBox1.Clear
ListBox1.List = Range("A2:B9").Value
ListBox1.Selected(x) = True

@+

 

[roro69]

Re : Edition listbox

Bonsoir Pierrot93
Merci de ta réponses;
Fin du post ,Résolu
Bonne soirée