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

[Résolu/Fermé]
Signaler
Messages postés
3
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
20 février 2019
-
Messages postés
3
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
20 février 2019
-
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

3 réponses

Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
154
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

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 707
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
Messages postés
3
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
20 février 2019

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.
:)
Messages postés
41709
Date d'inscription
mercredi 11 avril 2007
Statut
Modérateur
Dernière intervention
28 octobre 2021
12 168
Messages postés
3
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
20 février 2019

Oups. Merci baladur13 pour le rappel :)