Commentaire

jean300 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   -  
jean300 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Comment tester si un commentaire existe en (K1) si oui si non
Le code ci-dessous me dit Non alors qu'il y en a un
Le but étant de le supprimer s'il y en a un, d'en mettre un dans le cas contraire
En vous remerciant 
Sub SiCommentaire()
Dim Comment
    If Range("K1") = Comment Then
    MsgBox "Oui"
    Else
        MsgBox "Non"
End If
End Sub


2 réponses

Réponse 1 / 2
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
Bonjour

Teste comme ceci 
Sub SiCommentaire()
Dim Comment
  If Not (Range("K1").Comment Is Nothing) Then
    MsgBox "Oui"
  Else
    MsgBox "Non"
  End If
End Sub
0
Réponse 2 / 2
jean300 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   14
 
Bonjour M-12
Merci de m'avoir répondu
Comment remplacer le MsgBox "Oui"
par action demandée : effacer le commentaire :
0

Discussions similaires

Comment identifier (ou situer) qui écrit des commentaires sur mon blog ?
profa84 -
dugenou -

1 réponse
Comment voir les commentaires d'une personne sur Facebook ?
elbarto -
Mounii -

8 réponses
mettre une photo en commentaire facebook
siss_21 -
mjdufour13 -

2 réponses
Traduction des commentaires sur YouTube
Nicocacola -
Nicocacola -

22 réponses
Autoriser les photos en commentaire sur ma page facebook
Aurelie5889 -
madmyke -

7 réponses