XL 2010 addition de commentaires

[teddy33130]

bonjour a tous

voici ce que je n'arrive pas a faire (bien sur les données sont bidon) sur ce fichier exemple

addition-de-commentaire.xlsm
-en cliquant sur le bouton (CommandButton1) pour lancer mon userform

- je sélectionne d’abord B dans le premier combo

- puis dans le deuxième je sélectionne "vis de 11"

- le détail de la saisie du commentaire s'affiche dans le textbox

donc pouvoir modifier ou supprimer une ligne puis valider et que la modif s'applique au commentaire sur la feuille & s'additionne dans la cellule ou se trouve le commentaire

 

[patricktoulon]

Bonjour
déjà met des commentaires dans tes cellules
si il n'y a pas de commentaire dans les cellules , ça risque pas de fonctionner

 

[teddy33130]

re
en b7 il y a un commentaire
- je sélectionne d’abord B dans le premier combo
- puis dans le deuxième je sélectionne "vis de 11"
dans le textbox apparait le detail du commentaire , et c'est a partir de la que je n'arrive pas a renvoyer dans le commentaire et faire l'addition

 

[Rouge]

Bonjour,

Essayez ceci:

Private Sub C1_Change()
    Dim i&
    Dim LI As Integer
    Dim col As Byte
    Dim x As String
    Dim L As Integer
    Application.ScreenUpdating = False
    Dim N As String
    N = C1.Value
    With Sheets("Feuil1").Range("A1:A100")
        Set T = .Find(N, lookat:=xlWhole)
        If Not T Is Nothing Then
            ActiveSheet.Unprotect ("fromage64")
            Select Case ComboBox1.Value
            Case "A"
                col = 3
            Case "B"
                col = 4
            Case "C"
                col = 5
            Case "D"
                col = 6
            Case "E"
                col = 7
            End Select
            On Error GoTo GestionErreur
            T1.Value = Cells(T.Row, col).Comment.Text
        End If
    End With
    Exit Sub
GestionErreur:
    T1.Value = ""
End Sub

 

[teddy33130]

Bonjour,

Essayez ceci:

Private Sub C1_Change()
    Dim i&
    Dim LI As Integer
    Dim col As Byte
    Dim x As String
    Dim L As Integer
    Application.ScreenUpdating = False
    Dim N As String
    N = C1.Value
    With Sheets("Feuil1").Range("A1:A100")
        Set T = .Find(N, lookat:=xlWhole)
        If Not T Is Nothing Then
            ActiveSheet.Unprotect ("fromage64")
            Select Case ComboBox1.Value
            Case "A"
                col = 3
            Case "B"
                col = 4
            Case "C"
                col = 5
            Case "D"
                col = 6
            Case "E"
                col = 7
            End Select
            On Error GoTo GestionErreur
            T1.Value = Cells(T.Row, col).Comment.Text
        End If
    End With
    Exit Sub
GestionErreur:
    T1.Value = ""
End Sub

 

[teddy33130]

re merci de ta réponse
mais cela vas bien me chercher le contenu du commentaire ,
mais mon soucis et de pouvoir le modifier (ex : enlever un nombre) puis de le renvoyer le commentaire sur ma feuille au même endroit et que l'addition se fasse dans la cellule

 

[teddy33130]

re

bon j'avance mais la je cale

je suis arrivé a revoyer mes nombre modifié dans le text box mais il yn a quelque chose que je ne pige pas car quand je veux faire l'addition dans la celulle (addition par double clic sur la cellule) j'obtient une erreur je pense que cela vient d'un probleme de format mais je ne trouve pas

 

[Rouge]

Essayez ceci:

 

[teddy33130]

cela fonctionne merci pour tout
amicalement