Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

effacer les commentaires contenant une certaine valeur

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pascal21

XLDnaute Barbatruc
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
PHP: 
 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
 
Dernière édition:
Trier par date Trier par votes
Re : effacer les commentaires contenant une certaine valeur

Bonjour pascal21
Une proposition, pas testée :
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : effacer les commentaires contenant une certaine valeur

Re pascal21, bonjour Bebere
une autre forme
Code: 
[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 :
Code: 
[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]
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
2 K
Sghaier Chafaa
S
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
2 K
Dudu2
D
  • Question Question
Microsoft 365 Changer la langue d'un commentaire - VBA
Réponses
2
Affichages
969
Diego-Andres
D
S
  • Question Question
Microsoft 365 Copier le contenu d'une colonne dans une autre colonne sous forme de commentaire
Réponses
5
Affichages
1 K
specialiste
S
  • Question Question
XL 2010 Effacer le contenu d'une cellule, si une autre cellule à une valeur de 0 ou est vide.
Réponses
7
Affichages
2 K
DAVID-44-
Y
  • Question Question
XL 2016 Effacer contenu d'une cellule contenant VBA
Réponses
2
Affichages
3 K
Yow8
Y
M
  • Question Question
Mettre le contenu d'une cellule en commentaire sur une autre feuille.
Réponses
5
Affichages
2 K
Xtian_Québec
V
  • Question Question
XL 2010 VBA Macro : importer les 12 caractères suivant toutes les occurrences d'un mot sur une trame word dans excel
Réponses
9
Affichages
2 K
sousou
  • Question Question
XL 2010 Alléger et rendre plus rapide un code VBA
Réponses
10
Affichages
2 K
thunder23
B
  • Question Question
XL 2016 Effacer une plage de cellule et toutes les mises en forme
Réponses
4
Affichages
16 K
bennp
B
C
  • Question Question
XL 2016 Afficher date de modification et suppression au bout d'1 semaine
Réponses
0
Affichages
1 K
Ciol
C
  • Question Question
Effacer le contenus dans des cellule fusionner
Réponses
4
Affichages
943
Marco95480
  • Question Question
[RESOLU] Modification fichier M. Jacques Boisgontier - Commentaires dynamiques VBA
Réponses
5
Affichages
2 K
Spinzi
T
  • Question Question
Coller une image de cellules dans un commentaire
Réponses
2
Affichages
1 K
DoubleZero
B
  • Question Question
Macro pour rendre formule matricielle
Réponses
1
Affichages
688
beabianchini
B
D
  • Question Question
XL 2010 Placer automatiquement des images dans des cases portant leur nom en adaptant leurs dimensions
2
Réponses
22
Affichages
4 K
Paf
  • Question Question
Ajouter une zone de commentaire à dimension variable ?
Réponses
2
Affichages
938
PMO2
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…