Probleme pour modifier ma base de donnée avec une listview

[SSIAP2]

Bonjour à tous je reviens vers vous car je bloque sur un de mes projets.

Mon probléme est le suivant j'ai un USF Trouver sur un fil poster par SSI83000 sur ce forum j'ai modifier pour l'adapter à mes besoins.mon projet est basé sur la gestion de clefs. pour ceux qui est de la recherche pas de soucis l'ajout également ainsi que la suppression la ou sa va pas c'est modifier pour cela je recherche dans C1 le numéro de ma clef puis sélectionne dans la listviews la ligne concernée celui ci s'affiche dans mes combobox puis je valide j'ai un décalage entre la ligne sélectionnez et celle qui est modifier.

mon code valider est celui ci

Dim retMsg2 As Integer
Application.DisplayAlerts = False
retMsg2 = MsgBox("Voulez-vous Modifier cette fiche ?", vbInformation + vbYesNo, "Demande de suppression...")
' Si la suppression est confirmée
If retMsg2 = vbYes Then
    With Sheets("BDD0")
       
    
       .Cells(C1.ListIndex + 2, 2) = M2
        .Cells(C1.ListIndex + 2, 3) = M3
        .Cells(C1.ListIndex + 2, 4) = M4
        .Cells(C1.ListIndex + 2, 5) = M5
       .Cells(C1.ListIndex + 2, 6) = M6
        .Cells(C1.ListIndex + 2, 7) = M7
    
      
        
      
        
       
     
        End With


    MsgBox "La fiche à bien étè modifier"
End If
end sub

je vous est mis mon fichier pouvez vous me dire ou sa va pas et comment y remedier

svp merci à trés bientot

 

[phlaurent55]

Re : Probleme pour modifier ma base de donnée avec une listview

Bonjour SSIAP2,

modifie ton code comme ceci ( en remplaçant +2 par +3 )

       .Cells(C1.ListIndex + 3, 2) = M2
        .Cells(C1.ListIndex + 3, 3) = M3
        .Cells(C1.ListIndex + 3, 4) = M4
        .Cells(C1.ListIndex + 3, 5) = M5
       .Cells(C1.ListIndex + 3, 6) = M6
        .Cells(C1.ListIndex + 3, 7) = M7

à+
Philippe

 

[SSIAP2]

Re : Probleme pour modifier ma base de donnée avec une listview

Bonjour Phlaurent55 et merci pour ton aide ton code fonctionne parfaitement à trés bientot