Re : Rechercher une occurence dans un commentaire
Bonsoir antiphot, kjin,
Avec Excel, le café n'est pas encore réalisable, mais...
Une macro légèrement différente :
Sub ValeurInComment()
Dim Bcle As Integer, Commentaire As String, Plage As Range, Valeur As String, Trouve, Message As String
Valeur = "XLD"
For Bcle = 1 To Sheets.Count
Set Plage = Sheets(Bcle).Range("A1")
With Plage
If Not .Comment Is Nothing Then
Commentaire = .Comment.Text
On Error Resume Next
Trouve = Application.WorksheetFunction.Search(Valeur, Commentaire, 1)
If IsNumeric(Trouve) Then
Message = Message & Sheets(Bcle).Name & vbCrLf
Trouve = ""
End If
On Error GoTo 0
End If
End With
Next Bcle
MsgBox "Le texte " & Valeur & " est présent dans la cellule A1 des onglets suivants :" & vbCrLf & Message
End Sub