1 pièce(s) jointe(s)
Aide sur formulaire bouton modifier
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:
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