Copier le contenu d'une colonne dans une autre sous forme de commentaire
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
Bonjour,
Si j'ai bien compris la demande.
- On cherche la derniere ligne utilisée de la colonne O
- Ensuite on fait une boucle pour ajouter un commentaire de la cellule P2 à P..dernière ligne.
Sub Macro1()
' Macro1 Macro
Dim Derligne As Long
Derligne = Range("O65536").End(xlUp).Row
For i = 2 To Derligne
With Range("P" & i)
If .Comment Is Nothing Then
Range("P" & i).AddComment
.Comment.Text Text:=Range("O" & i).Value
.Comment.Shape.TextFrame.AutoSize = True
End If
End With
Next
End SubBonjour Xmenpl,
Vous avez parfaitement compris ce que je voulais.
Votre macro fonctionne à merveille.
Merci infiniment de votre aide et bonne journée à vous.
Ben
Bonjour Xmenpl,
Vous avez parfaitement compris ce que je voulais.
Votre macro fonctionne à merveille.
Merci infiniment de votre aide et bonne journée à vous.
Ben
De rien
Il faut reconnaître que vous aviez effectué la plus grande partie de la recherche ; il ne vous manquait que la méthode pour faire une boucle.