Extraire commentaire OK, mais mauvaise colonne

[marcelio]

Bonjour le Forum,
J'ai trouver un code pour extraire les commentaires de ma feuille
celui-ci fonctionne bien.
Mais j'aimerais que sur ma feuil2 que ce soit les cellules qui sont en jaune qui soit avec avec les commentaires
à la place du nom qui accompagne le commentaire.

Joint fichier pour + d'explications
Merci beaucoup de votre aide

 

[Modeste]

Re : Extraire commentaire OK, mais mauvaise colonne

Bonjour marcelio,

Si j'ai bien compris et que les données à recopier sont toujours 2 colonnes à gauche de celles contenant les commentaires, modifie la ligne 15 de ton code comme suit:

.Cells(i, 1).Value = Cellule.Offset(0, -2).Value

 

[marcelio]

Re : Extraire commentaire OK, mais mauvaise colonne

Bonjour Modeste et le forum,

Merci de ton aide cela fonctionne très bien.
Bonne journée à toi et au Forum

Marcelio