beson d'aide macro svp

[tigre117]

salut tous les membres dans l'objectif de modifier une ligne dans listbox j'ai crée ce code mais n'est pas fonctionnel j'ai besoinde votre aide svp

Private Sub CommandButton1_Click()
Dim Ctrl As Control
        Dim Ws As Worksheet
        Dim Ligne As Integer
        Dim I As Integer, ii
   
         If MsgBox("Etes-vous certain de vouloir modifier cette ligne ?", vbYesNo, _
                              "Demande de confirmation") <> vbYes Then Exit Sub
       
  Set Ws = Sheets("Feuil1")
 
        If ListBox1 = "" Then Exit Sub ' ou se code If listbox1.ListIndex = -1 Then Exit Sub à la place de If listbox1 = "" Then Exit Sub
      'If listbox1.ListIndex = -1 Then Exit Sub
      Ligne = ListBox1.ListIndex + 2
      With Sheets("Feuil1")
            .Range("B" & Ligne).Value = désignation.Value
            .Range("C" & Ligne).Value = élément.Value
            .Range("D" & Ligne).Value = tachedemandé.Value
            .Range("D" & Ligne).Value = numerointervention.Value
            .Range("E" & Ligne).Value = datedebut.Value
            .Range("F" & Ligne).Value = dateprochaine.Value
            .Range("G" & Ligne).Value = interveneur.Value
            .Range("H" & Ligne).Value = tempsconsomé.Value
            .Range("I" & Ligne).Value = piecederechange.Value
            .Range("j" & Ligne).Value = quantité.Value
            End With
           
            MsgBox ("ligne modifiée")
           
           End If
           userform1.Show (False)
           End Sub

le code sous le bouton modifier dans userform2 et la liste dans userform 1 merci de m'envoyer une solution

 

[tigre117]

bonjour tous les mondes pas de solution pour mon probléme qui peux m'aider en urgent?

 

[fanfan38]

Bonjour
Cette macro est bien dans userform2?
Dans userform2 il n'y a pas de listbox donc ça ne peux pas marcher...
A+ François