Discussion :

[balibou]

Bonjour,
je n'arrive pas à insérer le range d'une colonne d'un fichier dans la case commentaire d'un autre fichier.
J'ai essayé avec Comment.Add Range, avec set=range rien n'y fait ...


Si vous pouviez m'aider ce serait super !
Merci beaucoup !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Test()
'Active la feuil1 du premier fichier
Sheets("feuil1").Activate
'Va chercher le fichier qui correspond à une certaine date dans la cellule AA1 de la feuil1
Workbooks.Open Filename:="chemin du fichier" & Range("AA1").Value & ".xlsx"
'Copie la colonne J
Range("J:J").Copy
'Retourne sur la feuil1 du premier fichier
Windows("premier fichier.xlsm").Activate
Sheets("feuil1").Activate
'insère un commentaire en A55 de la feuil1
Range("A55").AddComment
    'je bloque !!!
    Range("A55").Comment.Add ????
 
 
'je définis les caractéristiques
Range("A55").Comment.Visible = True
 
    With Range("A55").Comment.Shape
        .Width = 200 'Largeur commentaire
        .Height = 90 'Hauteur
        .OLEFormat.Object.Font.Size = 10 'Taille du texte
        .OLEFormat.Object.Interior.ColorIndex = 34 'Couleur de fond
        .TextFrame.Characters.Font.ColorIndex = 11 'Couleur de la police
        .TextFrame.Characters.Font.Bold = True 'Ecriture gras
        .OLEFormat.Object.Font.Name = "Calibri" 'Type de police
        .TextFrame.AutoSize = True 'adapter la taille du comment en fonction du texte
    .ScaleHeight 18, msoFalse, msoScaleFromTopLeft
    .ScaleWidth 9.8, msoFalse, msoScaleFromBottomRight 'positionnement du tableau
 
    End With
 
End Sub

[Theze]

Bonjour,

Je ne crois pas que tu puisse coller un Range dans un commentaire mais tu peux concaténer les valeurs de la plage avec retour à la ligne puis coller le texte. Un petit exemple très simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Test()
 
    Dim Plage As Range
    Dim Texte As String
    Dim I As Integer
 
    'défini la plage
    Set Plage = [A1:A10]
 
    'concatène avec retour à la ligne
    For I = 1 To Plage.Count
 
        Texte = Texte & Plage(I) & vbCrLf
 
    Next I
 
    'le supprime si il existe
    Range("A55").Comment.Shape.Delete
 
    'insère un commentaire en A55 de la feuil1
    Range("A55").AddComment Texte
 
End Sub

Hervé.

[balibou]

Aie c'est dommage ca !

Merci, je vais tester ta méthode !

[balibou]

Bon en fait j'ai trouvé :

j'ai utilisé une macro permettant de fusionner les données d'une colonne dans une seule cellule.
Ensuite j'ai créé une macro permettant de déplacer le contenu de cette celulle dans le commentaire (ajouter plusieures lignes ou cellule dans le meme commentaire ne fonctionne pas ...).

Merci quand même