[Excel] commentaire dans une cellule

Résolu
gazelle8 Messages postés 82 Date d'inscription   Statut Membre Dernière intervention   -  
gazelle8 Messages postés 82 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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
1
Réponse 2 / 2
gazelle8 Messages postés 82 Date d'inscription   Statut Membre Dernière intervention   5
 
Un mot : SU-PER!!!

Merci beaucoup pour ta rapidité et ton efficacité!!!!!

Je suis nulle en vba....

Encore merci!!!
0

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses