XL 2013 ajouter en commentaire le contenu des cellules d'une colonne en VBA

Th2t · 7 Janvier 2021

Bonjour dans mon fichier excel j'ai un onglet Toto
je voudrais pouvoir mettre :
- un commentaire dans chacune des cellule de la colonne E
- ce commentaire serait la valeur de la cellule

Quelqu'un pourrait me donner le code VBA

Merci beaucoup davance

Staple1600 · 7 Janvier 2021

Bonsoir

Regardes en bas de la page dans la section Discussions similaires
Tu trouveras des exemples (qu'il te suffira d'adapter)

soan · 7 Janvier 2021

Bonsoir @Th2t, Staple,

ci-dessous, voici un fichier exemple ; fais Ctrl e ➯ travail effectué !

pour une raison inconnue, Staple ne peut plus joindre de fichier depuis la grève générale de mai 1968,
alors je me dévoue. peut-être qu'il a eu trop d'impayés EDF, et qu'ils veulent pas lui donner les
millions de mégawatts nécessaires au fonctionnement de son super-PC ?

autre raison possible : il doit obéir au mot d'ordre de la CGT : Henri Krasucki lui a assuré que s'il
maintenait coûte que coûte son piquet de grève, il le nommerait porte-drapeau du PCF.

soan

Staple1600 · 7 Janvier 2021

Bonsoir le fil,soan

[aparté]
Rien à voir avec mai 1968, mais tout à voir avec "le 22 mai 1968, trois heures de l'aprés-midi"
Ceux qui savent comprennent
[/aparté]

Pour le reste, c'est explicite
Voici un exemple qu'on trouve en bas de la page

XL 2010 - Insertion d'un contenu d'une cellule en commentaire vba

Bonjour, J'ai besoin d'aide pour trouver un code VBA permettant de créer des commentaires en fonction du texte inscrit dans les cellules du jour concerné. Grâce à vos discutions de 2009, j'ai trouvé la possibilité d’insérer le contenu d'une cellule en commentaire dans la même feuille. Mais je...

www.excel-downloads.com

Sans oublier la charte du forum qui elle aussi est explicite
(mais combien de nouveau membre du forum la lise avant leur 1er post... )
ci-dessous extrait de la charte
(qu'en MAJUSCULE pourtant le nouvel arrivant invite à la consulter )

Demandeur
1 – Un outil de recherche sur le forum permet de voir si la question a déjà été posée.
Ne pas hésiter à l’utiliser.

soan · 7 Janvier 2021

@Staple1600

j'ai trouvé : c'est une chanson de Hubert-Félix THIÉFAINE « 22 MAI 1968 »

paroles de la 1ère strophe :
«
22 mai 1968
Trois heures de l'après-midi
Le printemps qui refleurit
Fait transpirer le macadam
Sur l'autoroute de l'Ouest
Un séminariste à moto
J'ai bien dit à moto
Roule à toute allure vers un point non défini
»
je crois qu'ça a un rapport avec la mort d'Albert Camus,
et peut-être de James Dean ; mais j'vois pas l'rapport
avec ton refus de joindre un fichier !

même si y'avait déjà un exemple dans les liens en bas de page,
j'ai bien aimé faire le petit exo de @Th2t ... même si j'aurais
préféré le faire à partir d'un fichier concret plutôt que créer
mon p'tit fichier exemple.

soan

soan · 7 Janvier 2021

@Th2t

lis d'abord mon post #3, et essaye mon fichier Excel.

si besoin, tu peux demander une adaptation.

pour faire plus concret, tu peux joindre ton propre
fichier exemple, sans données confidentielles.

soan

Staple1600 · 7 Janvier 2021

Re,

C'est ce que j'appelle ma "licence poétique" ou "ma prosodie" XLDIenne.
Précisions

mais j'vois pas l'rapport
avec ~~ton refus~~ ton choix de ne pas joindre un fichier.

Pour le reste, je m'adressais au nouveau membre qui semble ne pas avoir lu la charte du forum.
(Qui pourtant est bien utile quand on arrive sur le forum )

soan · 7 Janvier 2021

@Th2t

le code VBA actuel est celui-ci :

VB:

Sub Essai()
  Dim dlg&: dlg = Cells(Rows.Count, 5).End(3).Row
  If dlg = 1 And IsEmpty([E1]) Then Exit Sub
  Dim lig&: Application.ScreenUpdating = 0
  For lig = 1 To dlg
    With Cells(lig, 5)
      .AddComment: .Comment.Text .Value: .ClearContents
    End With
  Next lig
End Sub

c'est pour des données en colonne E, sans en-tête de colonne ;
la dernière ligne utilisée est détectée ➯ si tu ajoutes des
données, elles seront prises en compte ; mais fais-le avant
exécution de la macro !

@Staple1600

soit, admettons-le : ton choix de ne pas joindre un fichier est
très poétique, et même surréaliste sur un forum Excel !

euh... « prosodie », c'est un mot français, ça ? (vite, mon dico !)

soan

soan · 7 Janvier 2021

@Staple1600

c'est pas croyable, ça existe ! moi qui croyais qu't'inventais des mots !

t'as sûrement dû faire un Bac littéraire, toi ! c'est là où Staple répond :
« normal, j'suis diplômé d'l'Académie, et j'ai fait l'ENA ! »

soan

Staple1600 · 7 Janvier 2021

Re

Puisque le préfixe indique XL 2013, un code VBA pour cette version

VB:

Sub test()
Commenter Range("E:E").SpecialCells(2, 23)
End Sub
Private Sub Commenter(r As Range)
For Each c In r: c.NoteText Text:=c.Value: Next
End Sub

Th2t · 8 Janvier 2021

soan à dit:
@Th2t

lis d'abord mon post #3, et essaye mon fichier Excel.

si besoin, tu peux demander une adaptation.

pour faire plus concret, tu peux joindre ton propre
fichier exemple, sans données confidentielles.

soan

Merci à toi Soan ... ca marche vraiment très bien . Une petite question cependant, comment faire pour ne pas effacer le contenu de la cellule mais sinon c est top. en revanche j ai des entêtes dans ma colonne E et il faudrait commencer juste par la ligne 3 ... Encore merci

soan · 8 Janvier 2021

Bonjour @Th2t, le fil,

nouveau fichier en PJ.

VB:

Sub Essai()
  Dim dlg&, lig&
  dlg = Cells(Rows.Count, 5).End(3).Row
  Application.ScreenUpdating = 0
  For lig = 3 To dlg
    With Cells(lig, 5)
      .AddComment: .Comment.Text .Value
    End With
  Next lig
End Sub

soan

Th2t · 8 Janvier 2021

soan à dit:

Bonjour @Th2t, le fil,

nouveau fichier en PJ.

VB:

Sub Essai()
  Dim dlg&, lig&
  dlg = Cells(Rows.Count, 5).End(3).Row
  Application.ScreenUpdating = 0
  For lig = 3 To dlg
    With Cells(lig, 5)
      .AddComment: .Comment.Text .Value
    End With
  Next lig
End Sub

soan

je suis très mauvais je n'arrive pas à l'appliquer sur cet onglet

soan · 8 Janvier 2021

@Th2t

??? est-ce que c'est toujours pour la colonne E "Email Message" ?
pour la colonne G "# Of Attach" ? pour une autre colonne ?

soan

Th2t · 8 Janvier 2021

non c est pour la colonne E de cet onglet il recupère mes mails de outlook et les mets dans la colonne E de l'onglet Email DB
Le fichier Excel global est joint dans ce message .
la le fichier est vide
Merci beaucoup de ton aide

XL 2013 ajouter en commentaire le contenu des cellules d'une colonne en VBA

Th2t

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

XL 2010 - Insertion d'un contenu d'une cellule en commentaire vba

soan

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Th2t

XLDnaute Nouveau

soan

XLDnaute Barbatruc

Pièces jointes

Th2t

XLDnaute Nouveau

Pièces jointes

soan

XLDnaute Barbatruc

Th2t

XLDnaute Nouveau

Pièces jointes

Discussions similaires