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
 

Fichiers joints

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

Fichiers joints

jp14

XLDnaute Barbatruc
Bonjour

Ci joint le fichier avec des modifications à tester. La suppression fonctionne. Concernant les mises à jour il faut indiquer le numéro des textbox concernés.

JP14
 

Fichiers joints

Discussions similaires


Haut Bas