OVH Cloud OVH Cloud

Récupérer les commentaires de certaines colonnes seulement [VBA Excel 2000]

11 réponses
Avatar
J
Bonjour à tous

Grâce à un code venant de chez J Boisgontier je récupère *tous* les
commentaires d'une feuille (ainsi que d'autres données).

Mais je souhaiterais ne récupérer que les commentaires venant de
certaines colonnes, par exemple ici celles mises en array :
ArCol = Array("k:k", "u:u", "ae:ae", "ao:ao", "ay:ay", "bi:bi", "bs:bs", _
"cc:cc", "cm:cm", "cw:cw", "dg:dg", "dq:dq")

Comment adapter le code de la macro, svp?
'********************
Private Sub Worksheet_Activate()
Set f = Sheets("Feuil1")
ligne = 2
For Each C In f.Comments
adr = C.Parent.Address
Cells(ligne, 1) = adr
'adresse de al cellule contenant un commentaire
Cells(ligne, 2) = f.Cells(Range(adr).Row, 3)
'nom
Cells(ligne, 3) = f.Range(adr)
'contenu de la cellule
temp = C.Text
Cells(ligne, 4) = Mid(temp, InStr(temp, ":") + 2)
'contenu du commentaire
ligne = ligne + 1
Next C
End Sub
'********************
Merci
@+
J@@

1 réponse

1 2
Avatar
J
:-) J'aurais du mettre mes lunettes ...
J@@

Le 01/06/2011 23:38, MichD a écrit :
C'est moi qui ai induit Excel en erreur avec ceci :
Header:=xlNo
Il aurait fallu que ce paramètre soit à XlYes

;-))


MichD
--------------------------------------------
1 2