Ajouter un bull info

Bonjour

j'ai envie d'ajoute une petit description sur les cellules

Si la valeur de colonne N est =0--> commentaire affiche " ok, c'est bon"

si =1 commentaire affiche "non, c'est pas bon"

j'ai fait comme ce ci , c'est ca ne marche pas!!

For i = 2 To 100

Next i

vous pourriez me dire où est le problème!!!!!! svp!!!!!!!

Coucou

Attention dans tes tests les "0" et "1" compare des caractères, pour des valeurs numériques testes avec 0 ou 1 sans guillemets

De plus, ton problème ici est qu' une fois en place ton commentaire reste, comment dire, collé à ta cellule, donc si tu relances ta macro erreur 1004 etc...

Il faut effectuer un .clearcomments sur les cellules pour pouvoir en mettre un nouveau (ou le même)

A plus

Bonsoir,

 Range("N2:N100").ClearComments
 For Each c In Range("N2:N100")
  If c <> "" Then
    If c.Comment Is Nothing Then c.AddComment
    If c = 0 Then c.Comment.Text Text:="Ok"
    If c = 1 Then c.Comment.Text Text:="Pas Bon"
    c.Comment.Shape.TextFrame.AutoSize = True
  End If
 Next c

Ceuzin

Merci infiniment, ca marche très bien ce code