Récupérer un commentaire

Bonsoir.

Je cherche à obtenir le contenu d'un commentaire lorsque je fais appel à un msgbox.

Le fichier que je ne peux joindre peut contenir une centaine de commentaires que je dois vérifier. Pour cela, je fais une boucle qui fonctionne très bien. Le problème survient lorsque je veux obtenir le commentaire dans le msgbox.

Comment puis-je attribuer la variable.

J'aurais pensé à ceci mais ça ne fonctionne pas:

Dim com as string

com = range("B2").comment.text

... Mais lorsque j'essaie d'obtenir le commentaire à proprement parlé, je n'obtiens rien à part un message d'erreur: "Variable non définie"

Si quelqu'un peut me venir en aide. Merci.

Bonsoir

Après essai je n'ai pas de soucis avec 2003

Sauf si pas de commentaire dans la cellule j'ai

Variable objet ou variable de bloc With non définie

Si cela peut aider

Bonne nuit

Bonsoir Banzai

Même lorsque j'ai un commentaire, j'ai le message d'erreur que tu as mis précédemment.

Variable objet ou variable de bloc With non définie

Voici un bout de la macro.

 Dim x As Integer
    Dim info%
    Dim cptvbyes%
    Dim cptvbno%
    Dim com As String
    utilisateur = Sheets("connexion").Range("C2").Value

    For i = 21 To Sheets.Count
    Sheets(i).Select
    'La variable x va successivement prendre les valeurs 6 à 66
    For x = 6 To 66

'********************* ICI CA COINCE *******************
    com = Range("E" & x).Comment.Text
'*******************************************************

        'Vérifie si la cellule en colonne E est différente de la cellule en colonne C
        'Si pas le cas, on envoie un msgbox

        If Cells(x, 5).Value <> Cells(x, 3).Value Then
        Cells(x, 5).Select
        info = MsgBox(Cells(x, 4) & Chr(10) & Chr(10) _
        & " est passé de " & Chr(10) & Cells(x, 3) & " à " & Cells(x, 5) & "et modifiée par " & com & Chr(10) & ". Etes-vous d'accord?" & Chr(10), _
        vbInformation + vbYesNoCancel, "........" & Sheets(i).Name)

Ceci dit, je dois également passer par des cellules n'ayant pas de commentaire. Suffit-il de mettre: "On error resume next

Vois-tu ce que j'essaie de faire, et saurais-tu résoudre le problème ? Ou quelqu'un d'autre bien sur.

Bonsoir

Je persiste : Toujours aucun problème

Pour info (seulement)

Au lieu d'utiliser On Error Resume Next

Tu peux utiliser

If Not Range("E" & x).Comment Is Nothing Then
com = Range("E" & x).Comment.Text
'
' Le reste de ton code
'
End If
next x

Re.

En effet, maintenant, ça fonctionne.

Il suffisait donc de rajouter la condition où il n'y avait pas de commentaires.

Merci beaucoup. Ca m'avance vraiment.