Problème sur bouton modifier

antoineba

XLDnaute Nouveau
Bonjour à tous, je travail actuellement sur un tableau de gestion de stock,
J'ai mis à mon gout un tableau déjà existant sur le web.
Seulement je suis face à un soucis car le bouton "modifier" dans UserForm 1 ne fonctionne pas.
Pour le reste tout m'a l'air OK.

J'aimerai bien que quelqu'un puisse jeter un œil à mon travail et essaie de me corriger ce soucis.

J'aimerai également y rajouter un bouton supprimer.

Merci d'avance pour votre aide.

Antoine
 

Pièces jointes

  • Copie de GESTION DE STOCK 2.xlsm
    465.5 KB · Affichages: 61

jp14

XLDnaute Barbatruc
Bonsoir

Code:
'Correspond au programme de la LISTE DEROULANTE
Private Sub ComboBox2_Change()
Dim Ligne As Long
Dim I As Integer

  Nettoyage 'Lance le programme Nettoyage
  If Me.ComboBox2.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
  For I = 1 To 17
    Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I)
  Next I
  CommandButton9.Visible = True ' pour afficher le bouton 
End Sub

Code pour supprimer la ligne

Code:
Private Sub CommandButton9_Click()
Dim Ligne As Long
Dim I As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
If Ligne = 0 Then Exit Sub
Select Case MsgBox("Attention cette opération est irréversible" _
                & vbCrLf & "Désignation : " & ComboBox1.Value _
                & vbCrLf & "Code : " & ComboBox2.Value _
                & vbCrLf & "Voulez vous continuer ?" _
                   , vbOKCancel Or vbExclamation Or vbDefaultButton1, "Supprimer une ligne")
    Case vbOK
   Case vbCancel
        Exit Sub
End Select
Select Case MsgBox("Vous confirmez la suppression", vbYesNo Or vbExclamation Or vbDefaultButton1, "Supprimer une ligne")
    Case vbYes
        Rows(Ligne).Delete Shift:=xlUp
    Case vbNo
        Exit Sub
End Select
CommandButton9.Visible = False
End Sub

Il faut rajouter le code pour effacer les contenus des combobox et textbox

A tester

JP14
 

antoineba

XLDnaute Nouveau
Bonsoir,
J'ai fais le test, pour ce qui est du code pour supprimer la ligne, le bouton fonctionne mais les lignes ne se suppriment pas.
Aussi en ce qui concerne le bouton modifier je suis au même stade.
J'ai dû cafouiller quelque part je pense :/
 

Pièces jointes

  • Copie de GESTION DE STOCK 2.xlsm
    456.3 KB · Affichages: 35

Discussions similaires

Réponses
9
Affichages
613

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T