XL 2010 addition de commentaires

Rouge à dit:

Bonjour,

Essayez ceci:

VB:

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

Cliquez pour agrandir...