Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

(résolu) transformer les commentaires en texte dans une cellule sur la même ligne

  • Initiateur de la discussion Initiateur de la discussion olivierd
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

O

olivierd

Guest
Bonjour à tous,

J'ai en cellules de la colonne B, du texte avec des commentaires
Je souhaite transformer les commentaires en cellule A pour scinder le texte et son commentaire

Donc faire une boucle sur toutes les cellules en B
et s'il y a un commentaire dans un cellule en B,
le placer en texte dans la cellule A sur la même ligne

Peut-être pourriez-vous m'orienter ou m'aider ?

Merci d'avance
Amicalement
olivierd
 
Dernière modification par un modérateur:
Re : transformer les commentaires en texte dans une cellule sur la même ligne

Bonjour olivierd,
Une proposition:
VB:
Sub Test()
Dim C As Range, Temp$
With Sheets("Feuil1")
    For Each C In .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(xlUp))
        If Not C.Comment Is Nothing Then
            Temp = C.Comment.Text
            C.Offset(0, -1).Value = Temp
            'C.Comment.Delete
        End If
    Next C
End With
End Sub
Cordialement
 
Re : transformer les commentaires en texte dans une cellule sur la même ligne

Bonjour Efgé, bonjour à tous,


Pfff, génial : merci beaucoup

Amicalement
olivierd
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…