beson d'aide macro svp

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 !

tigre117

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

Pièces jointes

- 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
10
Affichages
282
Réponses
9
Affichages
201
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
483
Réponses
3
Affichages
195
Réponses
2
Affichages
154
Réponses
1
Affichages
180
Retour