effacer les commentaires contenant une certaine valeur

[pascal21]

bonjour à tous
grâce à boisgontier (merci à lui)j'ai un code me permettant de recopier sous forme de commentaires le contenu d'une autre cellule (("e6")
mais certains commentaire n'ont pas besoin d'être recopier

j'utilise ce code

 With Range("a20")  'copier sous forme de commentaire dans a20 le contenu de le cellule a6
   If .Comment Is Nothing Then Range("a20").AddComment
   .Comment.Text Text:=Sheets("fiche de travaux").[e6].Value
   .Comment.Shape.TextFrame.AutoSize = True
   End With

comment arriver à cela
il doit être possible de ne pas déclencher cette partie de la macro si le contenu de E6 = "nature des travaux"
mais je ne vois pas comment faire
merci

 

[Efgé]

Re : effacer les commentaires contenant une certaine valeur

Bonjour pascal21
Une proposition, pas testée :

With Range[COLOR=#007700]([/COLOR][COLOR=#dd0000]"a20"[/COLOR][COLOR=#007700])  [/COLOR][COLOR=#0000bb]copier sous forme de commentaire dans a20 le contenu de le cellule a6 [/COLOR]
[COLOR=#007700][COLOR=navy][B]If Range("a6").Value <>"nature des travaux"[/B][/COLOR][B][COLOR=navy] And[/COLOR][/B] .[/COLOR][COLOR=#0000bb]Comment Is Nothing Then Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"a20"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000bb]AddComment [/COLOR]
[COLOR=#007700].[/COLOR][COLOR=#0000bb]Comment[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text Text[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000bb]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"fiche de travaux"[/COLOR][COLOR=#007700]).[[/COLOR][COLOR=#0000bb]e6[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000bb]Value [/COLOR]
[COLOR=#007700].[/COLOR][COLOR=#0000bb]Comment[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Shape[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]TextFrame[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]AutoSize [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]True [/COLOR]
[COLOR=navy][B]End If[/B][/COLOR]
[COLOR=#0000bb]End With  [/COLOR]

Cordialement

 

[Bebere]

Re : effacer les commentaires contenant une certaine valeur

bonjour Pascal,Efgé
comme suit
With Range("a20")
If .Comment Is Nothing And Range("e6").Value <> "nature des travaux" Then
.AddComment
.Comment.Text Text:=Range("e6").Value
.Comment.Shape.TextFrame.AutoSize = True
End If
End With
à bientôt

 

[pascal21]

Re : effacer les commentaires contenant une certaine valeur

bonjour efgé
le code proposé ne fonctionne pas comme je l'entends
il copie un commentaire vide si e6 = vide ou si "nature des travaux"
ce que j'aimerais
si a6 = "nature des travaux" ou " " alors pas de copie de commentaire
ou alors il est peut être possible d'opérer autrement
ces commentaires finissent recopiés par la suite dans le colonne C de la feuille "journal"
il est peut plus facile d'effacer les commentaires contenant "nature des travaux" ou alors vide

 

[Efgé]

Re : effacer les commentaires contenant une certaine valeur

Re pascal21, bonjour Bebere
une autre forme

[COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]With[/COLOR] Range("a20")
[COLOR=blue]If[/COLOR] Range("a6").Value <> "nature des travaux" [COLOR=blue]And[/COLOR] Range("a6").Value <> "" [COLOR=blue]Then[/COLOR]
    [COLOR=blue]If[/COLOR] .Comment [COLOR=blue]Is Nothing Then[/COLOR] Range("a20").AddComment
    .Comment.Text Text:=Sheets("fiche de travaux").[e6].Value
    .Comment.Shape.TextFrame.AutoSize = [COLOR=blue]True[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Sans exemple.....
Cordialement
EDIT
Si il faut aussi supprimer le commentaire :

[COLOR=BLUE]Sub[/COLOR] test()
[COLOR=BLUE]With[/COLOR] Range("a20")
    [COLOR=BLUE]If[/COLOR] Range("a6").Value <> "nature des travaux" [COLOR=BLUE]And[/COLOR] Range("a6").Value <> "" [COLOR=BLUE]Then[/COLOR]
        [COLOR=BLUE]If[/COLOR] .Comment [COLOR=BLUE]Is Nothing Then[/COLOR] Range("a20").AddComment
        Range("a20").Comment.Text Text:=Sheets("fiche de travaux").Range("E6").Value
        Range("a20").Comment.Shape.TextFrame.AutoSize = [COLOR=BLUE]True[/COLOR]
    [COLOR=BLUE]Else[/COLOR]
        Range("A20").ClearComments
    [COLOR=BLUE]End If[/COLOR]
[COLOR=BLUE]End With[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]