Comment appliquer ce code à toutes les cellules d'une colonne ???

Bonjour

Pourriez vous me donner l'astuce pour appliquer ce code , à l'ensemble des cellules non vides de la colonne E de mon worksheets "email DB", et non pas a une seule cellule comme c est le cas ici en E14 dans le code suivant

Merci beaucoup

Sub Ajout_Commentaire()

Dim CelS As Range, CelDest As Range, AncienCom As Variant

Set CelS = Worksheets("Email Db").Range("E14")

Set CelDest = ActiveSheet.Range("E14")

With CelDest
On Error Resume Next
.Comment.Delete
.AddComment
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Text CStr(CelS)
End With

End Sub

Salut crackersb,

ainsi, sans doute, en supposant qu'il y a une valeur, au moins dans la dernière cellule de la colonne [E:E]...

Sub Ajout_Commentaire()
'
With Worksheets("Email Db")
    For x = 2 To .Range("E" & Rows.Count).End(xlUp).Row
        ActiveSheet.Range("E" & x).ClearComments
        If Not .Range("E" & x).Comment Is Nothing Then
            ActiveSheet.Range("E" & x).AddComment
            ActiveSheet.Range("E" & x).Comment.Text .Range("E" & x).Comment.Text
            ActiveSheet.Range("E" & x).Comment.Shape.TextFrame.AutoSize = True
        End If
    Next
End With
'
End Sub

A+

Merci beaucoup mais cela ne fonctionne pas , je voudrai en fait faire ressortir le contenu des cellules E en commentaire de cellule pour mieux les lire

Merci de ton aide

Salut Cracker,

pas trop compris...
Tu veux mettre les valeurs de la colonne [F:F] en commentaire de leur propre cellule ?

A+

Bonjour

Tu peux tester cette macro pris sur le site de Boisgnontier

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([E2:E100], Target) Is Nothing Then
    On Error Resume Next
    With Target
    .Comment.Delete
    If Target <> "" Then
      .AddComment ' Création commentaire
      .Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
      .Comment.Shape.OLEFormat.Object.Font.Size = 12
      .Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
      .Comment.Text Text:=Target.Value
      .Comment.Shape.TextFrame.AutoSize = True
    End If
   End With
  End If

End Sub

Ps: le commentaire s'affiche uniquement quand tu écris dans la cellule à l'instant T il n'est pas pris en compte dans les cellules déjà renseigné

Slts

Merci ja i adapté ca fonctionne bien