Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Formulaire de modification UserForm

Edoliie

XLDnaute Nouveau
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.
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 Sub

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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…