Autres Modification après recherche dans listbox

DIAMANTVERT

XLDnaute Nouveau
Bonjour à tous,

Je suis novice en Wba mais je progresse pas à pas grâce à vous tous et à mes recherche sur ce forum. Voici mon problème ou je bloque.
Je n'arrive pas à trouver le bon code pour modifier une donnée dans un tableau après avoir fait une recherche dans une listbox.
J'utilise un userform pour créer et modifier ou supprimer des rendez-vous. j'effectue une recherche par nom ou date de rendez vous pour avoir un affichage réduit dans la listbox.
Lorsque je clique sur l'affichage de la listbox, les combobox et textbox se remplissent. Jusqu'ici, pas de pb. Je modifie ensuite les données à modifier et clique sur le bouton de commande déplacer. C'est toujours la première ligne qui est modifiée. Je n'arrive pas à trouver pour changer la bonne ligne dans le tableau. Merci d'avance pour votre aide
 

Pièces jointes

  • Agenda 1 rdv.xlsm
    301.2 KB · Affichages: 10

fanch55

XLDnaute Barbatruc
Bonjour,
Pour vous faire progresser :
VB:
Private Sub BtnDéplacerFrmRDV_Click()

 If MsgBox("Confirmez vous la modification des données de ce rendez-vous ?", vbYesNo, "demande confirmation de modification") = vbYes Then
        Dim modif As Integer, T As Range
        Sheets("RDV").Select
        Set T = [T_Rdv[Identifiant RDV]].Cells.Find(Lb_RDV, LookIn:=xlValues, lookat:=xlWhole)
        If Not T Is Nothing Then
            modif = T.Row
            Cells(modif, 2) = CbDaterdvFrmRDV.Value
            Cells(modif, 3) = CbHeurerdvFrmRDV.Value
            Cells(modif, 7) = CbTyperdvFrmRDV.Value
            Cells(modif, 8) = TxtDuréerdvFrmRDV.Value
            Cells(modif, 9) = TxtMotifrdvFrmRDV.Value
            CbRecherchepatientFrmGestionPATIENT = ""
            CbDaterdvFrmRDV = ""
            CbHeurerdvFrmRDV = ""
            CbTyperdvFrmRDV = ""
            TxtDuréerdvFrmRDV = ""
            TxtMotifrdvFrmRDV = ""
            Unload Me
         End If
    End If

End Sub
 

Discussions similaires

Réponses
1
Affichages
412
Réponses
2
Affichages
341