[Excel] commentaire dans une cellule
Résolu
gazelle8
Messages postés
85
Statut
Membre
-
gazelle8 Messages postés 85 Statut Membre -
gazelle8 Messages postés 85 Statut Membre -
Bonjour,
Voilà, dans ma colonne A, j'ai un commentaire, j'aimerais copier le contenu de ce commentaire directement dans la cellule à côté.
J'ai trouvé ceci :
Sub commentaires()
For Each c In Range("A1:A10")
c.Offset(0, 1).Value = c.Comment.Text
c.Comment.Delete
Next
End Sub
Le hic, c'est que le commentaire n'est pas toujours présent dans la cellule, résultat, le code génère une erreur. Donc j'aimerais tester si la cellule contient un commentaire avant de copier le contenu dans la cellule d'à côté.
Ensuite, j'aimerais également sélectionner ma plage de cellule, au lieu de copier ma plage directement à la deuxième ligne du code : Range("A1:A10").
Car je dois faire faire la manip pour plusieurs feuille excel...
Merci d'avance
Voilà, dans ma colonne A, j'ai un commentaire, j'aimerais copier le contenu de ce commentaire directement dans la cellule à côté.
J'ai trouvé ceci :
Sub commentaires()
For Each c In Range("A1:A10")
c.Offset(0, 1).Value = c.Comment.Text
c.Comment.Delete
Next
End Sub
Le hic, c'est que le commentaire n'est pas toujours présent dans la cellule, résultat, le code génère une erreur. Donc j'aimerais tester si la cellule contient un commentaire avant de copier le contenu dans la cellule d'à côté.
Ensuite, j'aimerais également sélectionner ma plage de cellule, au lieu de copier ma plage directement à la deuxième ligne du code : Range("A1:A10").
Car je dois faire faire la manip pour plusieurs feuille excel...
Merci d'avance
Configuration: Windows Vista Firefox 3.0.12 Office 2007
2 réponses
-
Bonsoir,
Sub commentaires() For Each c In Selection On Error Resume Next c.Offset(0, 1).Value = c.Comment.Text c.Comment.Delete Next On Error GoTo 0 End Sub
Sélectionnes la plage à traiter avant de lancer la macro.
eric -
Un mot : SU-PER!!!
Merci beaucoup pour ta rapidité et ton efficacité!!!!!
Je suis nulle en vba....
Encore merci!!!
