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

Oliver77 à dit:

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

Cliquez pour agrandir...

job75 à dit:

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+

Cliquez pour agrandir...

job75 à dit:

Bonjour specialiste, bienvenue sur XLD,

Utilisez cette macro :

VB:

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+

Cliquez pour agrandir...

job75 à dit:

Bonjour specialiste, bienvenue sur XLD,

Utilisez cette macro :

VB:

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+

Cliquez pour agrandir...