Discussion :

[Bibizaza]

Bonsoir à tous !

je débute le VBA, j'apprends petit à petit !
Malgré plusieurs lecture, de forum, page internet ou même regarder des vidéos YouTube, je n'arrive pas à faire fonctionner mon bouton modifier dans mon formulaire...
Mon bouton formulaire est dans ma feuille formulaire, ma base qui doit être modifier suivant le formulaire est dans ma feuille "EXPE".


Après plusieurs lecture sur internet, j'ai copié un code, pour le retranscrire sur le mien... et patatra, je ne comprend pas..
Je ne comprend pas certaine ligne....
J'ai vraiment besoin qu'on m’explique, ça m’intéresse beaucoup...Mais ça n’empêche pas que mon cerveau ne veut pas comprendre... j'ai trouvé ce code sur cellulexcel.blogpost


CODE TROUVE SUR INTERNET POUR LE BOUTON MODIFIER

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Correspond au programme du bouton MODIFIER
Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim I As Integer 
 
If MsgBox("Etes-vous certain de vouloir modifier ce produit ?", vbYesNo, "Demande de confirmation") = vbYes Then
 
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub 
  Ligne = Me.ComboBox1.ListIndex + 2
  For I = 1 To 8                                                   > ICI, je comprends que c'est pour la variable I= colonne 1 à 8
    If Me.Controls("TextBox" & I).Visible = True Then        
      Ws.Cells(Ligne, I + 1) = Me.Controls("TextBox" & I)   
    End If
  Next I
    End If 'fin de la condition

J'aimerai le retranscrire sur le mien... mais ne comprenant pas les phrases...
Sachant que je veux que ça modifie mais ne ré-créé pas une ligne en plus...


ci-joint mon fichier




Je désespère vraiment...

Merci en tout les cas de m'avoir lu...

Sylvie