• Initiateur de la discussion Initiateur de la discussion roro69
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

roro69

XLDnaute Impliqué
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.
 

Pièces jointes

Re : Edition listbox

Salut,Roro69

Tu rajoute simplement dans ton code la ligne en rouge

Code:
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
 
Re : Edition listbox

Salut,Roro69

Une autre option ca marcher chez moi :

tu rajout ce module :

Code:
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 :

Code:
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
 
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++
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
1 K
Réponses
3
Affichages
487
Réponses
15
Affichages
1 K
Réponses
1
Affichages
458
Compte Supprimé 979
C
Retour