Autres Modification après recherche dans listbox

DIAMANTVERT · 27 Août 2022

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

fanch55 · 27 Août 2022

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

DIAMANTVERT · 27 Août 2022

merci je vais essayer et surtout comprendre la logique

DIAMANTVERT · 27 Août 2022

DIAMANTVERT à dit:
Cela fonctionne bien mais j'ai un souci avec la date de rendez-vous. Après valider le choix dans la combobox de la date, sur le tableaux le jour et mois s'inverse; J'ai essayé en ajoutant Format(CbDaterdvFrmRDV.Value, "dd/mm/yyyy") Mais cela ne fonctionne pas. Je ne comprends pas car tout est au format date.

DIAMANTVERT · 27 Août 2022

Réponse trouvée il suffit de composer avec Cdate. Merci à tous

Autres Modification après recherche dans listbox

DIAMANTVERT

XLDnaute Nouveau

Pièces jointes

fanch55

XLDnaute Barbatruc

DIAMANTVERT

XLDnaute Nouveau

DIAMANTVERT

XLDnaute Nouveau

DIAMANTVERT

XLDnaute Nouveau

Discussions similaires