Systèmes de notes écrites

Bonjour a tous j'ai un systèmes de notes écrites qui s'affiche quand on sélectionne une commande et que l'on peut modifier en direct (voir les notes pour l'onglet commande pour comprendre ) et donc j'ai essayé de reproduire ce système pour mon onglet fournisseur mais j'obtiens une erreur quelqu'un aurait une idée ?

Bonjour,

un essai ..

Private Sub BtnNoteFournisseur_Click()
Worksheets("bdd2").Cells(Line, "j") = Me.TxtBNotesEntreprise
End Sub

Puisque "Line" est le numéro de la ligne dans :  LBxFournisseur_DblClick  ...

ric

Bonjour toutes et tous

coucou Ric et merci

@voir,

1/je ne sais pas si dans la textbox pour le bouton modifier toujours sur fournisseur multipage (suivicommandes), là ou j'ai mis ' ajouter, pour modifier la note de la textbox effectuée note entreprise se vide une fois celle-ci modifier

Private Sub BtnModifF_Click()

    If Me.TxtBEntreprise = "" Then

        MsgBox "Aucune data modifier"

    Else

        With Sheets("bdd2")
            .Cells(Line, 1) = Me.TxtBEntreprise
            .Cells(Line, 2) = Me.TxtBMailEntreprise
            .Cells(Line, 3) = Me.TxtBTelephone
            .Cells(Line, 4) = Me.TxtBPortabl
            .Cells(Line, 5) = Me.TxtBSiteWeb
            .Cells(Line, 6) = Me.TxtBRue
            .Cells(Line, 7) = Me.TxtBCodePostal
            .Cells(Line, 8) = Me.TxtBVille
            .Cells(Line, 9) = Me.TxtBPays
                    .Cells(Line, 10) = Me.TxtBNotesEntreprise     ' ajouter   ' TxtBNotesEntreprise
        End With

        Me.TxtBEntreprise = ""
        Me.TxtBMailEntreprise = ""
        Me.TxtBTelephone = ""
        Me.TxtBPortabl = ""
        Me.TxtBSiteWeb = ""
        Me.TxtBRue = ""
        Me.TxtBCodePostal = ""
        Me.TxtBVille = ""
        Me.TxtBPays = ""
           Me.TxtBNotesEntreprise = ""           ' ajouter
        ThisWorkbook.RefreshAll
        ThisWorkbook.Save

    End If

End Sub

2/ et pour le double clic sur la listbox modification :

Private Sub LBxFournisseur_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    On Error Resume Next

    Line = Me.LBxFournisseur.ListIndex + 2

    Me.TxtBEntreprise = Me.LBxFournisseur.Column(0)
    Me.TxtBMailEntreprise = Me.LBxFournisseur.Column(1)
    Me.TxtBTelephone = Me.LBxFournisseur.Column(2)
    Me.TxtBPortabl = Me.LBxFournisseur.Column(3)
    Me.TxtBSiteWeb = Me.LBxFournisseur.Column(4)
    Me.TxtBRue = Me.LBxFournisseur.Column(5)
    Me.TxtBCodePostal = Me.LBxFournisseur.Column(6)
    Me.TxtBVille = Me.LBxFournisseur.Column(7)
    Me.TxtBPays = Me.LBxFournisseur.Column(8)
  '  Me.TxtBNotesEntreprise = .Cells(X, "j").Value
   Me.TxtBNotesEntreprise.Value = Sheets("bdd2").Cells(Line, "j").Value  ' modifier aussi non cela mettait une erreur (on pouvait ôter le . (point)
    ThisWorkbook.RefreshAll

End Sub

en espérant que cela puisse vous être utile ci-joint,

crdlt,

André

Merci pour vos deux réponses je regarde ça dès demain et je vous tiens au courant 😉

Salut , merci a vous deux cela fonctionne parfaitement merci !!