Modifier une ligne Excel d'un userform

Bonjour,

C'est le deuxième sujet que je poste mais cela me semble approprié de séparer mes 2 questions qui sont complètement différente.

A l'aide d'userform je souhaiterais modifier un enregistrement.

Private Sub CMD_MODIF_Click()
'Le bouton Quitter permet de sortir de l'application sans réaliser de modification
    If MsgBox("Voulez vous modifier la commande en cours ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Modifier
    End If

    'Propose à l'uilisateur de sortir du formulaire
    If MsgBox("Voulez vous quitter l'application ?", vbYesNo, "Demande de confirmation") = vbYes Then
        End
    End If

End Sub

Sub Modifier()
'La fonction permet de modifier une commande déjà créer

no_ligne = CB_CDE.ListIndex

'Boucle qui permet de modifier les données de la feuille BDD
    If no_ligne > 0 Then
    'Remplir la ligne vide a l'aide de l'user form
        Sheets("BDD").Cells(no_ligne, 1) = CB_CDE
        Sheets("BDD").Cells(no_ligne, 2) = Tx_NOM
        Sheets("BDD").Cells(no_ligne, 3) = CB_MOIS
        Sheets("BDD").Cells(no_ligne, 4) = Tx_TRA
        Sheets("BDD").Cells(no_ligne, 5) = Tx_DEVIS.Value
        Sheets("BDD").Cells(no_ligne, 6) = Tx_OPE
        Sheets("BDD").Cells(no_ligne, 7) = Tx_ACO.Value
        Sheets("BDD").Cells(no_ligne, 8) = CB_ACO
        Sheets("BDD").Cells(no_ligne, 10) = Tx_HV
        Sheets("BDD").Cells(no_ligne, 11) = Tx_POSE
.... et ainsi de suite

    End If
End Sub

sauf que pour le moment ca me créer un enregistrement au dessus de celui que je voulais modifier et du coup cela supprime l'enregistrement du dessus.

Merci d'avance pour votre aide.

Bonne journée.

Bonjour,

"ListIndex" est en base 0, il te faut donc rajouter 1 car les lignes sont en base 1

Theze a écrit :

Bonjour,

"ListIndex" est en base 0, il te faut donc rajouter 1 car les lignes sont en base 1

C'est même + 4 vu que mes 3 premières lignes sont des titres de colonnes.

Merci pour ta réponse