Cellule et Commentaires

[WDAndCo]

Bonjour le Forum

Est il possible de mettre des commentaires en colonne G et ces commentaires serait ce qu'il y a en colonne AI ? (survole de la cellule G -> affichage du commentaire !) ?

Le commentaire de par Exp : G22 serait ce qu'il y a dans la cellule AI22 !

 

[BOISGONTIER]

Re : Cellule et Commentaires

Bonjour,

Sub AjouteCommentaire()
  [A:A].ClearComments
  For Each c In Range("AI1", [AI5000].End(xlUp))
    c.Offset(0, -28).AddComment c.Value
    c.Offset(0, -28).Comment.Visible = True
    c.Offset(0, -28).Comment.Shape.Select
    Selection.AutoSize = True
    c.Offset(0, -28).Comment.Visible = False
  Next c
End Sub

Pour une maj si modif en colonne AI:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 35 Then
   Cells(Target.Row, "g").Comment.Text Target.Value
 End If
End Sub

JB
Formation Excel VBA JB

 

[WDAndCo]

Re : Cellule et Commentaires

Bonjour BOISGONTIER et le Forum

Je ne comprend pas le code :
1) Je le mets OU ?
2) Il y a : [A:A].ClearComments je suppose que cela efface les commentaires de la colonne A

"Le commentaire de par Exp : G22 serait ce qu'il y a dans la cellule AI22 !"

Donc peut être [G:G].ClearComments

Le -28 correspond t'il a AI - 28 = G ?

D'avance merci

 

[WDAndCo]

Re : Cellule et Commentaires

Re bonjour

J'ai une erreur 1004 !

 

[BOISGONTIER]

Re : Cellule et Commentaires

Dans un module (Alt+F11 puis insertion/module):

Sub AjouteCommentaire()
[A:A].ClearComments
On Error Resume Next
For Each c In Range("AI1", [AI5000].End(xlUp))
c.Offset(0, -28).AddComment c.Value
c.Offset(0, -28).Comment.Visible = True
c.Offset(0, -28).Comment.Shape.Select
Selection.AutoSize = True
c.Offset(0, -28).Comment.Visible = False
Next c
End Sub

Dans la feuille Clic-droit onglet puis visualiser code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 35 Then
Cells(Target.Row, "g").Comment.Text Target.Value
End If
End Sub

JB

 

[WDAndCo]

Re : Cellule et Commentaires

Re Bonjour

Ne marche pas avec mon fichier !

"Erreur d'exécution '91'
Variable objet ou variable de bloc With non définie"