Discussion :

[zamant]

Bonjour
J'ai fait un bout de code permettant d'avoir tout les commentaires sur une feuille "commentaire" d'un tableau "registre".
je souhaite avoir le nom de la colonne correspondant à la cellule de l'adresse renvoyé du commentaire issu de la feuille "registre".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Cop_Comment()
    Dim commentaire As Comment
   Dim i As Integer
 
    i = 0
   For Each cellule In Worksheets("Registre").UsedRange
     If Not cellule.CommentThreaded Is Nothing Then
          Worksheets("Commentaires").Cells(i + 1, 1) = cellule.Address
           Worksheets("Commentaires").Cells(i + 1, 2) = cellule.CommentThreaded.Text
            i = i + 1
        End If

Le code permet d'avoir l'adresse du commentaire et dans la colonne suivante le commentaire. Moi je veux le nom de la colonne correspondant a l'adresse de la cellule du commentaire.
Merci pour votre aide

[jurassic pork]

Hello,
dans l'adresse il y a le repère de la colonne, non ? la colonne a un titre ? exemple de ce que tu veux avoir ?
Ami calmant, J.P

[zamant]

Hello,
dans l'adresse il y a le repère de la colonne, non ? la colonne a un titre ? exemple de ce que tu veux avoir ?
Ami calmant, J.P

Merci
J'ai omis de préciser que je suis vraiment débutant en VBA. Oui il ya le repère de la colonne dans ce que je récupère. cela donne "$C$2".
Je veux donc récupérer et afficher le titre de la colonne C a la place de l'adresse "$C$2". le titre est en C 1. Par exemple "donnée d'entrée".
Est ce que j'ai répondu à tes questions?

[jurassic pork]

Oui il ya le repère de la colonne dans ce que je récupère. cela donne "$C$2".
Je veux donc récupérer et afficher le titre de la colonne C a la place de l'adresse "$C$2". le titre est en C 1. Par exemple "donnée d'entrée".
Est ce que j'ai répondu à tes questions?

OK voici donc le code pour récupérer les titres de la ligne 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

          Worksheets("Commentaires").Cells(i + 1, 1) = Worksheets("Registre").Cells(1, Cellule.Column)

[zamant]

OK voici donc le code pour récupérer les titres de la ligne 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

          Worksheets("Commentaires").Cells(i + 1, 1) = Worksheets("Registre").Cells(1, Cellule.Column)

ok parfait j'étais parti m'embourber sur complétement autre chose a base d'objets...
merci beaucoup