copier le texte d'une cellule et coller en commentaire sur 2500 lignes Résolu

Question

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

ThauTheme · Answer

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

Patrice33740 · Answer

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

magicpascal · Answer

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.
:)

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

3 réponses

Discussions similaires

Newsletters