commentaire

[eutrophisation]

Salut tout le monde

Dans un tableau de plusieurs colonnes et de plusieurs lignes j'aurais souhaité ajouter un commentaire dans les cellules de la colonne B le commentaire issu de la cellule de la colonne EY dont l'entete est observation. Les cellules de la colonne B étant protégées par un mot de passe malgré ceci l'observation de la cellule DE LA COLONNE EY se transcrit dans la cellule DE LA COLONNE B par l'intermédiaire d'un commentaire.
Merci et salutations sportives

 

[bruno66]

Re : commentaire

bsr europhisation
En glissant un morceau de ton fichier, j'ai une idée, mais je voulais savoir si tes cellules de la colonnes B sont vides ou non....avant de proposer ou dire une bétise .


A te lire

 

[eutrophisation]

Re : commentaire

Colonne B (Point d'eau titre de la colonne B) Colonne EY (observation)
A
B
D
A B D se sont par exemple les textes qui se trouvent dans les cellules de la colonne B. Par contre dans la colonne EY il m'arrive de faire des observations appropriées aux cellules A B D. Je souhaite que ces observations se transforment en commentaire dans A B D sauf que les cellules de cette colonne B sont protégées.
J'espere avoir été clair

 

[mth]

Re : commentaire

Bonsoir,

Un petit essai avec ce code (dans la code de la feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim VCel As Range
  Range("B:B").ClearComments
  For Each VCell In Range("EY2:EY" & Cells(Rows.Count, 155).End(xlUp).Row)
    If VCell <> "" Then
        VCell.Offset(0, -153).AddComment VCell.Value
        VCell.Offset(0, -153).Comment.Shape.TextFrame.AutoSize = True
    End If
  Next VCell
End Sub

Si cela te convient, ça voudra dire que j'ai à peu près réussi à adapter les codes présentés par JBOISGONTIER sur son site (cf son onglet dédié aux commentaires)

Bonne soirée,

mth

 

[mth]

Re : commentaire

re 🙂

... pardon, j'avais oublié de traiter la protection, voici qui devrait fonctionner :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim VCel As Range
    ActiveSheet.Unprotect Password:="toto"
    Range("B:B").ClearComments
    For Each VCell In Range("EY2:Ey" & Cells(Rows.Count, 155).End(xlUp).Row)
        If VCell <> "" Then
            VCell.Offset(0, -153).AddComment VCell.Value
            VCell.Offset(0, -153).Comment.Shape.TextFrame.AutoSize = True
        End If
  Next VCell
  ActiveSheet.Protect Password:="toto"
End Sub

Bien à toi,

mth

 

[eutrophisation]

Re : commentaire

Bonjour
Je pense tres bientot vous suggerrer un fichier sur lequel un exemple serait illustré.
MERCI BEAUCOUP