Commentaire

Fermé

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - Modifié le 28 sept. 2018 à 13:04
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 28 sept. 2018 à 14:54

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

A voir également:

2 réponses

Réponse 1 / 2

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 283
28 sept. 2018 à 13:06

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

Réponse 2 / 2

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
28 sept. 2018 à 14:54

Bonjour M-12
Merci de m'avoir répondu
Comment remplacer le MsgBox "Oui"
par action demandée : effacer le commentaire :

Discussions similaires

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

Comment voir les commentaires d'une personne sur Facebook ?

mettre une photo en commentaire facebook

Traduction des commentaires sur YouTube

cedric