Bonjour,
Je vous remercie de bien vouloir m'aider.
J'ai un formulaire déjà préremplie grâce à une recherche dans ma feuille de calcul "User" et dans mon tableau "Tableau6".
Mon formulaire (et mon tableau) ne comprend que trois données : le nom [textbox = TBidentifiant] (colum : 1) ; le mot de passe [textbox = TBmdp] (colum : 2) et la catégorie d'utilisation [combobox = CBUtilisation] (colum : 3)
Voici le code que j'ai réaliser :
J'ai déjà tester de changer "ListObjects(1)" par "ListObjects("Tableau6")" et par "Table("Tableau6")" sans aucun succès.
Je vous remercie par avance du temps que vous passerez pour m'aider.
Je continue de chercher de mon coté, je vous dirai si j'ai résolu mon problème.
Cordialement
Je vous remercie de bien vouloir m'aider.
J'ai un formulaire déjà préremplie grâce à une recherche dans ma feuille de calcul "User" et dans mon tableau "Tableau6".
Mon formulaire (et mon tableau) ne comprend que trois données : le nom [textbox = TBidentifiant] (colum : 1) ; le mot de passe [textbox = TBmdp] (colum : 2) et la catégorie d'utilisation [combobox = CBUtilisation] (colum : 3)
Voici le code que j'ai réaliser :
J'ai déjà tester de changer "ListObjects(1)" par "ListObjects("Tableau6")" et par "Table("Tableau6")" sans aucun succès.
VB:
Private Sub ButtonModifier_Click()
'Sélectionner la bonne ligne pour la modification*********************************************
If Me.TBmdp = "" Or Me.CButilisation = "" Then
MsgBox "Merci de compléter le fomulaire", vbCritical
Else
'Faire les modification***********************************************************************
Sheets("User").ListObjects(1).DataBodyRange(Me.TBidentifiant, 2) = Me.TBmdp
Sheets("User").ListObjects(1).DataBodyRange(Me.TBidentifiant, 3) = Me.CButilisation
'Message de confirmation de modification de l'utilisateur*************************************
MsgBox "Etes-vous sur de bien vouloir modifier les informations de cet utilisateur ?" & _
vbCrLf & "N'oubliez pas d'informer l'utilisateur des nouvelles informations de son comtpe.", _
vbYesNo, "Modification utilisateur"
End If
End SubJe vous remercie par avance du temps que vous passerez pour m'aider.
Je continue de chercher de mon coté, je vous dirai si j'ai résolu mon problème.
Cordialement