Vérification

Bonjour,

Je voudrais savoir si il est possible de vérifier par exemple si la colonne A de chaque cellules possède des commentaires.

Si oui, comment faire ?

Cdlt.

Bonjour,

Ta demande n'est pas claire. Cependant, un début de réponse pour le principe.

Option Explicit
Public Sub CountComments()
Dim c As Comment, _
    cpt As Long

    For Each c In ActiveSheet.Comments
        cpt = cpt + 1
    Next

    MsgBox "Nombre de commentaires: " & cpt

End Sub

Bonjour,

Oui, c'est vrai.

Je m'explique j'ai mon code ci dessous. Je voudrais que dans la colonne G, il vérifie 1 à 1 les cellules et dire que si pas de commentaire dans la cellule il l'affiche et si commentaire ne rien faire.

Dim recl As String
Dim i As Long
Dim Date_Precise As Date, Date_Max As Date

recl = ""
Date_Precise = #6/1/2013#
Date_Max = DateSerial(Year(Date), Month(Date) + 0, -1)
For i = 6 To 1200
If Sheets("Audit").Range("G" & i).Value >= Date_Precise And _
Sheets("Audit").Range("G" & i).Value < Date_Max Then
recl = recl & vbNewLine & Range("A" & i) & Space(1) & Range("B" & i) & Space(3) & Range("C" & i) & Space(3) & Range("D" & i) & Space(3) & Range("E" & i)
End If
Next i
If recl <> "" And Not ThisWorkbook.ReadOnly Then
Suivi_Mois_Precedent.TextBox1.Text = "Suivi du stagiaire en chaine 6 des mois précédents, Serrage au couple :" & vbNewLine & recl
TextBox1.SetFocus
Else
End If

Cdlt.

Re,

Que veut dire ceci en français?

et dire que si pas de commentaire dans la cellule il l'affiche et si commentaire ne rien faire.

Re,

Ahah, ça veut dire :

• si il n'y pas de commentaire, on affiche le résultat.
• si il y a un commentaire, on n'affiche pas le résultat.

Cdlt.