Macro pour insertion commentaire dans cellules d'une colonne
Bonjour,
Je suis à la recherche d'une macro permettant l'intégration d'un commentaire dans chaque cellules d'une colonne.
Actuellement j'ai une macro qui met à jour des données dans une colonne qui ensuite copie les valeurs puis les colles.
Je souhaiterai par la même occasion laisser un commentaire dans les cellules (Date de modification:, export effectué le:, heure:).
Merci,
Cordialement
Hello Brother60 et bienvenue sur le forum,
Le code pour ajouter un commentaire est le suivant:
Sub ajouterCommentaire()
'si il y a pas de commentaire, on en ajoute un
If Range("A1").Comment Is Nothing Then Range("A1").AddComment
'on le rend visible
Range("A1").Comment.Visible = True
'on écrit notre texte. vbLf permet de passer à la ligne
Range("A1").Comment.Text Text:="blablabla ligne1" & vbLf & "blablabla ligne2" & vbLf & "blablabla ligne 3"
End SubMerci pour votre réponse:
Ce que je souhaiterai si cela est possible c'est ceci:
Dans la colonne A par exemple
Jean ==>Commentaire: Blablabla Ligne1
Thierry ==>Commentaire: Blablabla Ligne2
Marc ==>Commentaire: Blablabla Ligne3
Gérard ==>Commentaire: Blablabla Ligne4
Donald ==>Commentaire: Blablabla Ligne5
Lucie ==>Commentaire: Blablabla Ligne6
Cdlt
bonjour,
pas vraiment clair ton explication ... c'est quoi pour toi un "commentaire" , c'est bien un commentaire de cellule au sens excel ?
tu dis avoir une macro qui écrit tes valeurs de cellules, montre nous celle-ci en utilisant le bouton Code du forum ..
Bonjour,
Dans la macro que j'utilise cela va chercher des valeurs dans une autre feuille de calcul à l'aide d'un recherchev par exemple puis met à jour toute la colonne et ensuite je copie les données et les colles afin de ne pas garder les fonctions dans les cellules de la colonne pour éviter d'avoir un fichier trop long à l'ouverture.
Au sujet de l'ajout d'un commentaire j'ai trouvé cela, mais elle ne fonctionne que lorsque qu'une donnée est rentrée manuellement:
Par contre l'avantage est qu'elle garde l'historique.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 And Target.Count = 1 Then ' colonne 3 seulement
If Target.Comment Is Nothing Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "# ##0.00 €") & " Modifié par:" & Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub
Cdlt
Bonjour
à travers mes recherche j'ai trouvé peut être cet exemple d'insertion commentaire modifiable dans les cellule,
je me demande si vous pouvez résoudre mon probléme ,je vous joindre mon fichier
j'ai deux feuilles une feuille de base des données nommé ("fiche client") et l'autre feuil nommé (plan_occ), je veux dans cette feuil("plan occ)
ajouter des commentaires modifiable si je change les nom dans la base des donnés.
merci