Copier le texte d'une cellule et coller en commentaire sur 2500 lignes

Résolu/Fermé
magicpascal Messages postés 3 Date d'inscription mercredi 20 février 2019 Statut Membre Dernière intervention 20 février 2019 - Modifié le 20 févr. 2019 à 15:02
magicpascal Messages postés 3 Date d'inscription mercredi 20 février 2019 Statut Membre Dernière intervention 20 février 2019 - 20 févr. 2019 à 16:12
Hello les experts,

Je souhaite copier le texte d'une cellule et le coller en commentaire.
J'ai trouvé l'info sur ce forum.

Comment adapter mon code ci-dessous à plusieurs milliers de lignes en même temps:
plage (F4 à F2547)

Mon code utilisé pour une ligne, la F2129
Sub cellcomment()
Range("F2129").AddComment
Range("F2129").Comment.Text Text:=Range("F2129").Value
End Sub
A voir également:

3 réponses

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
20 févr. 2019 à 15:29
Bonjour Pascal, bonjour le forum,

Une simple boucle de 4 à 2547 avec le même code adapté devrait faire l'affaire :
Sub Macro1()
Sub cellcomment()
Dim I As Integer

For I = 4 To 2547
    Cells(I, "F").AddComment
    Cells(I, "F").Comment.Text Text:=Cells(I, "F").Value
Next I
End Sub

0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 773
Modifié le 20 févr. 2019 à 15:30
Bonjour,

Un vieux code d'Eric :
Option Explicit
Dim memCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cmtarea As Single
    If Not memCell Is Nothing Then memCell.ClearComments
    Set memCell = Nothing
    If Target.Column <> 3 Or IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
    With Target
        .AddComment
        .Comment.Visible = True
        .Comment.Text Text:=Target.Value
        .Comment.Shape.TextFrame.AutoSize = True
        If .Comment.Shape.Width > 300 Then
            cmtarea = .Comment.Shape.Width * .Comment.Shape.Height
            .Comment.Shape.Width = 300
            .Comment.Shape.Height = (cmtarea / 300) * 1.15 + 3  ' (si besoin ajuster le paramètre 1.15)
        End If
    End With
    Set memCell = Target
End Sub

Adapter le numéro de colonne
Cordialement
Patrice
0
magicpascal Messages postés 3 Date d'inscription mercredi 20 février 2019 Statut Membre Dernière intervention 20 février 2019
20 févr. 2019 à 16:05
WOuah Merciiiiiiiiiiiiiiiiiiiiiiiiiii à vous 2.
Je prends le code de ThauTheme. Ca marche super bien pour un non expert comme moi.
Mais c'est passionnant.
Merci encore.

Merci Patrice33740, il faut vraiment que je bosse pour tout comprendre.
Excellente semaine à vous 2 et au Forum.
:)
0
baladur13 Messages postés 46182 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 23 février 2024 13 169
20 févr. 2019 à 16:07
0
magicpascal Messages postés 3 Date d'inscription mercredi 20 février 2019 Statut Membre Dernière intervention 20 février 2019
20 févr. 2019 à 16:12
Oups. Merci baladur13 pour le rappel :)
0