VBA_Macro recherche valeur et ajout d'un commentaire

[el_loco]

Bonjour,

Je commence tout juste le VBA, et je galère un peu.
Voilà mon problème :
J'ai 2 feuilles sur un même classeur.
La première est appelée "MOIS" :
Dans les cellules B8:I28, j'ai un tableau de données (issues d'une fonction) de type :
AAA-B-12345. Ligne B8 : j'ai des noms de colonnes A B...G. Colonne B, j'ai le nom de ligne ABA BES etc.
Sur deuxième feuille "TRAITEMENT 1", j'ai une grosse base de données.
Dans ma colonne A, j'ai des données de type "AAA-B-12345" elles aussi issues d'une fonction.

==> Ce que je souhaite réaliser, c'est que si un valeur de ma colonne A de la feuille "TRAITEMENT 1" est présente dans mon tableau de ma feuille "MOIS", je colle un commentaire (qui se situe dans des cellule de la feuille TRAITEMENT 1) et colore la case du tableau de cette feuille MOIS :
Voilà ce que j'ai déjà réussi à trouver :

Private Sub Worksheet_Activate()
[A9:I28].ClearComments
[A9:I28].Interior.ColorIndex = xlNone
Set f = Sheets("TRAITEMENT 1")
For ligne = 3 To f.[A65000].End(xlUp).Row
cmt = f.Cells(ligne, 5) & " " & f.Cells(ligne, 9) & " " & f.Cells(ligne, 8)
Valeurs = f.Cells(ligne, 1)
With Sheets("MOIS").Cells(Valeurs)
If .Comment Is Nothing Then .AddComment
If .Comment.Text = "" Then
.Comment.Text Text:=.Comment.Text & Chr(10) & cmt
Else
.Comment.Text Text:=cmt
End If
.Comment.Shape.TextFrame.AutoSize = True
.Interior.ColorIndex = 3
.Comment.Visible = False
End With
Next ligne
End Sub


==> Je crois que ma ligne 8 est fausse. D'autre part, en mode pas à pas, elle passe, mais à la ligne suivante, j'ai un message d'erreur du type :
Erreur d'exécution '13'
Incompatibilité de type

Aussi, si quelqu'un peut m'aider à résoudre mon petit problème, je suis à l'écoute.

Merci

 

[el_loco]

Re : VBA_Macro recherche valeur et ajout d'un commentaire

OK, en fait, ca fonction. J'ai simplement changé le type de données.