Microsoft 365 Copier le contenu d'une colonne dans une autre colonne sous forme de commentaire

[specialiste]

Bonjour,
Je suis novice, et j'aimerais pouvoir copier le contenu d'une colonne (O) entière dans une autre colonne (P), mais en commentaire.
je suis parvenu à créer une macro, mais pour une seule cellule.
Voilà ce que j'ai pour l'instant.

Private Sub Worksheet_Activate()
With Range("P2")
If .Comment Is Nothing Then Range("P2").AddComment
.Comment.Text Text:=Sheets("Outlook Data").[O2].Value
.Comment.Shape.TextFrame.AutoSize = True

End With
End Sub

Merci de votre aide
Ben

 

[job75]

Bonjour specialiste, bienvenue sur XLD,

Utilisez cette macro :

Private Sub Worksheet_Activate()
Dim r As Range
Application.ScreenUpdating = False
[P:P].ClearComments 'RAZ
With Sheets("Outlook Data")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set r = .Range("O2", .Range("O" & .Rows.Count).End(xlUp))
End With
If r.Row < 2 Then Exit Sub
For Each r In r
    If r <> "" Then
        With Range("P" & r.Row).AddComment
            .Text CStr(r)
            .Shape.TextFrame.AutoSize = True
        End With
    End If
Next
End Sub

Edit : ajouté If r.Row < 2 Then Exit Sub

A+

 

[Oliver77]

Bonjour,

Avec le temps j'arrive à comprendre certaines macro et là je crois qu'il manque à la fin (au dessus de End Sub) -> Application.ScreenUpdating = True

A+

 

[job75]

Bonjour Oliver77,

Avec le temps j'arrive à comprendre certaines macro et là je crois qu'il manque à la fin (au dessus de End Sub) -> Application.ScreenUpdating = True

Si je ne l'ai pas mis c'est parce qu'ici ce n'est pas nécessaire.

Ici Application.ScreenUpdating prend automatiquement la valeur True lorsque End Sub s'exécute.

A+

 

[Oliver77]

Bonjour Oliver77,

Si je ne l'ai pas mis c'est parce qu'ici ce n'est pas nécessaire.

Ici Application.ScreenUpdating prend automatiquement la valeur True lorsque End Sub s'exécute.

A+

Bonjour, merci pour l'info.

 

[specialiste]

Bonjour specialiste, bienvenue sur XLD,

Utilisez cette macro :

Private Sub Worksheet_Activate()
Dim r As Range
Application.ScreenUpdating = False
[P:P].ClearComments 'RAZ
With Sheets("Outlook Data")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set r = .Range("O2", .Range("O" & .Rows.Count).End(xlUp))
End With
If r.Row < 2 Then Exit Sub
For Each r In r
    If r <> "" Then
        With Range("P" & r.Row).AddComment
            .Text CStr(r)
            .Shape.TextFrame.AutoSize = True
        End With
    End If
Next
End Sub

Edit : ajouté If r.Row < 2 Then Exit Sub

A+

Bonjour specialiste, bienvenue sur XLD,

Utilisez cette macro :

Private Sub Worksheet_Activate()
Dim r As Range
Application.ScreenUpdating = False
[P:P].ClearComments 'RAZ
With Sheets("Outlook Data")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set r = .Range("O2", .Range("O" & .Rows.Count).End(xlUp))
End With
If r.Row < 2 Then Exit Sub
For Each r In r
    If r <> "" Then
        With Range("P" & r.Row).AddComment
            .Text CStr(r)
            .Shape.TextFrame.AutoSize = True
        End With
    End If
Next
End Sub

Edit : ajouté If r.Row < 2 Then Exit Sub

A+

Bonjour job75,
Mes remerciements sont tardifs, mais ils ne sont pas moins infinis!

Merci encore.