Commentaire

jean300 Messages postés 382 Statut Membre -
jean300 Messages postés 382 Statut Membre - 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

Afficher la suite

A voir également:

2 réponses

Réponse 1 / 2

M-12 Messages postés 1349 Statut Membre 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

Réponse 2 / 2

jean300 Messages postés 382 Statut Membre 14

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

Discussions similaires

Commentaire par défaut

Comment voir les commentaires d'une personne sur Facebook ?

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

Comment voir ce que fais une personne sur fb ?

Traduction des commentaires sur YouTube

Discussions similaires

Newsletters