Effacer le commentaire si l'on saisie une autre valeur

[ascal44]

Bonsoir ,

Comment faire en VBA pour effacer le commentaire d'une cellule si l'on saisie une autre valeur dedans ?

Par ce que si la cellule reste active le commentaire reste avec ce code :

Dim v As Range
For Each v In Range("A3:C40")
  If v < 100 Then
   v.ClearComments
   v.Value = ""
End If

Next v

 

[Theze]

Re : Effacer le commentaire si l'on saisie une autre valeur

Bonsoir,

A mettre dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Range("A3:C40")) Is Nothing Then
    
        If Target < 100 Then
        
            Application.EnableEvents = False
            
            Target = ""
            
            On Error Resume Next 'évite l'erreur si pas de commentaire
            Target.Comment.Delete
            
            Application.EnableEvents = True
            
        End If
        
    End If

End Sub

Hervé.

 

[job75]

Re : Effacer le commentaire si l'on saisie une autre valeur

Bonjour ascal 44,

Pas vraiment compris : quand v est numérique, le commentaire s'efface bien si v < 100.

Mais si v est du texte (écrit avec des chiffres), rien ne se passe avec votre macro.

Essayez donc dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim v As Range
For Each v In Range("A3:C40")
  If Val(v) < 100 Then
    v.ClearComments
    If v <> "" Then v = ""
  End If
Next v
End Sub

Toutes les valeurs texte seront effacées...

Le test If v <> "" Then évite le bouclage sans fin.

Edit : bonjour Theze, pas rafraîchi.

A+

 

[ascal44]

Re : Effacer le commentaire si l'on saisie une autre valeur

Ce n'est pas tout à fait cela :

Si par exemple en B33 j'ai la valeur 812 avec un commentaire. Si je sélectionne B33 et supprime le 2 de 812 alors là il faudrait de suite supprimer le commentaire.

Serait ce possible ?

 

[job75]

Re : Effacer le commentaire si l'on saisie une autre valeur

Re,

Si par exemple en B33 j'ai la valeur 812 avec un commentaire. Si je sélectionne B33 et supprime le 2 de 812 alors là il faudrait de suite supprimer le commentaire.

Si vous voulez dire quand le curseur est dans la cellule, ce n'est pas possible.

En mode Edition aucune macro ne peut fonctionner. C'est élémentaire...

A+

 

[ascal44]

Re : Effacer le commentaire si l'on saisie une autre valeur

Merci , alors je laisse tomber