[Excel] commentaire dans une cellule

Résolu/Fermé

gazelle8 Messages postés 82 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 31 décembre 2009 - 24 juil. 2009 à 20:48
gazelle8 Messages postés 82 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 31 décembre 2009 - 24 juil. 2009 à 21:00

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:

[Excel] commentaire dans une cellule
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Liste déroulante excel - Guide
Proteger cellule excel - Guide
Déplacer une colonne excel - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
24 juil. 2009 à 20:54

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

Réponse 2 / 2

gazelle8 Messages postés 82 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 31 décembre 2009 5
24 juil. 2009 à 21:00

Un mot : SU-PER!!!

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

Je suis nulle en vba....

Encore merci!!!

Discussions similaires

Excel formule : savoir si une cellule contient partie texte

Bonjour,
Moi qui me débrouille relativement pas trop mal avec les formules dans Excel, là je suis complètement bloqué!

J'ai une colonne C avec différents textes (chaine de caractères). Dans ma colonne L, j'aimerais faire une condition pour qu'il cherche dans ma cellule C5 si le texte comprend une chaine de caractère. Si la cellule ça comprend la chaîne de caractère il me retourne un texte défini et si la cellule ne comprend pas la chaîne de caractère, que la recherche ne me retourne rien.

J'ai donc dans ma cellule L5 la formule suivante : =SI(CHERCHE("*ASA*";C5);"Smartnet";"")
J'aimerais que si la cellule C5 comprend les caractères "ASA", que la c...

Remplir une cellule (texte) en fonction d'une autre (texte).

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...