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

[Th2t]

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]

Bonsoir

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

 

[soan]

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]

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]

@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]

@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]

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]

@Th2t

le code VBA actuel est celui-ci :

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]

@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]

Re

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

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]

@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]

Bonjour @Th2t, le fil,

nouveau fichier en PJ.

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]

Bonjour @Th2t, le fil,

nouveau fichier en PJ.

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]

@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]

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