XL 2019 [ VBA ]Ajouter un commentaire dans chaque cellule

[SamSam84]

Bonjour à toutes et à tous,

Je ne suis pas un AS de VBA, mais en général j'arrive à me débrouiller pour obtenir une solution afin de faire fonctionner mes macros.

Cependant, là je bute un peu..

J'ai une feuille excel avec différentes colonnes. J'aimerai que dans chaque cellule de la colonne H figurent en commentaire la donnée de la cellule en Offset(0, 43) lorsque j'enregistre la feuille excel.

Je sais comment ajouter un commentaire via VBA, je sais comment faire pour exécuter l'action lorsque j'enregistre la feuille, mais je ne sais absolument pas comment écrire un code permettant l'action pour chaque cellule de la colonne.


Pourriez-vous svp m'apporter une solution?

Par avance merci.

 

[Phil69970]

Bonjour @SamSam84

Avec si peu d'info on est proche du divinatoire....
Mais avec un fichier tout devrait s'éclairer !!

@Phil69970

 

[SamSam84]

@Phil69970, haha je pensais qu'une explication allait être suffisante

Ci-joint un fichier exemple (je ne peux pas envoyer mon fichier par soucis de confidentialité de données)

 

[Phil69970]

@SamSam84

Je te propose ce fichier
Dans cette version je n'ai pas fait l'enregistrement
J'ai mis 2 boutons 1 pour mettre les commentaire et 1 pour les effacer

Merci de ton retour

@Phil69970

 

[SamSam84]

@Phil69970,
Merci pour ton retour. J'ai adapté ton code à ma feuille, cela fonctionne bien, les commentaires s'affichent, cependant j'ai quand même une erreur sur
".Comment.Text Text:=Range("AY" & i).Value"

 

[Phil69970]

@SamSam84

Si mon fichier fonctionne (et il fonctionne ) c'est que ton adaptation n'est pas bonne
Sans ton fichier pas trop de solution en aveugle...

Et une erreur c'est quoi pour toi ?
Copie de l'erreur ou son N° ......

@Phil69970

 

[SamSam84]

Voici le code adapté à mon fichier :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.ScreenUpdating = False
Dim Derlig&, i&
Derlig = Worksheets("BdD").Range("H" & Rows.Count).End(xlUp).Row
For i = 2 To Derlig
With Range("H" & i)
.ClearComments
.AddComment
.Comment.Text Text:=Range("AY" & i).Value 'on met la valeur de la cellule Jx en commentaire dans la cellule Dx
End With
Next i


End Sub



Ce qui me donne l'erreur suivante :

Erreur d'execution 1004
Erreur définie par l'application ou par l'objet

 

[SamSam84]

Haaa c'est bon j'ai trouvé !

Le code est adapté à un tableau avec sa ligne total, qui est comptée avec "Derlig". J'ai fait un petit -1 sur ce dernier et tout est rentré dans l'ordre !

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.ScreenUpdating = False
Dim Derlig&, i&
Derlig = Worksheets("BdD").Range("H" & Rows.Count).End(xlUp).Row - 1
For i = 2 To Derlig
With Range("H" & i)
.ClearComments
.AddComment
.Comment.Text Text:=Range("AY" & i).Value 'on met la valeur de la cellule Jx en commentaire dans la cellule Dx
'.Comment.Shape.TextFrame.AutoSize = True 'On ajuste les commentaires
End With
Next i


End Sub




Merci @Phil69970 pour ton codage

 

[Phil69970]

@SamSam84

Pour info :

Quand on met un fichier à dispo il doit être le plus représentatif .
C'est quoi représentatif ?
- représentatif, même organisation des lignes et des colonnes, mêmes libellés, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ...
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables

*Éventuellement préciser l'ordre de grandeur des lignes à traiter, exemple mon fichier comporte 1 000 lignes ou bien 200 000 lignes ==> la méthodologie peut être différents.

Une demande claire donne très souvent une réponse rapide et qui correspond au mieux à la demande.

De plus si cela fonctionne sur le fichier que je fournis et pas sur le vrai fichier j'en conclu qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller.

Pense à valider le post qui te vas

@Phil69970

 

[SamSam84]

Entendu @Phil69970, je tâcherai de fournir un fichier représentatif les prochaines fois


Encore merci !^^

 

[Phil69970]

@SamSam84

Peso juste changer les cellules de départ et de destination dans la macro pour t'attribuer la solution c'est moyen non !

Qu'en penses tu ?

@Phil69970

 

[Usine à gaz]

Bonjour à vous deux, Bonjour le Forum

Ce qui me semble bizarre est d'ajouter le même commentaire, quel que soit le contenu des cellules.
Je ne vois pas l'intérêt.
Peut-être que SamSam84 pourrait expliquer son but exact ?
Amicalement,
lionel

 

[SamSam84]

@SamSam84

Peso juste changer les cellules de départ et de destination dans la macro pour t'attribuer la solution c'est moyen non !

Qu'en penses tu ?

@Phil69970

@Phil69970, ha mince, je pensais qu'il fallait identifier la solution finale (pas trop l'habitude des forums) ! Je corrige cela de suite.

 

[SamSam84]

Bonjour @Usine à gaz,

Je n'ajoute pas le même commentaire dans chaque cellule. Pour en dire un peu plus, j'ai un process avec des étapes à valider/concevoir pour des sites (représentés par ligne). Ces étapes sont validées par des dates dans des colonnes et par site (donc par ligne). Je voulais qu'a chaque enregistrement de la feuille les commentaires s'affichent par site et par résultat de la cellule se situant à 8 colonnes de la cellule du site. Dur dur à expliquer...
Avec un petit fichier joint ca ira mieux