Commentaire

[david45000]

Bonjour,

J'ai des commentaires sur la feuille 1 et je souhaiterai faire apparaître celui-ci sur la feuille 2.

Ex: feuille 1 cellule A1 >>> feuille 2 cellule D1

feuille 1 cellule A2>>>> feuille 2 cellule D2


merci d'avance

 

[david45000]

Re : Commentaire

pour les carrés, essaye de mettre un format "retour à la ligne auto".
chez moi ça marche

cordialement

Je le place où?

 

[ODVJ]

Re : Commentaire

je n'avais pas vu la 2ème page!

tu mets ce format sur les cellules qui contiennent la formule (feuil2 donc).

Tu as vu que Jean Pierre n'avait pas de pb avec XL2000?
Je suis en version 2003 sur ce PC

cdlt

 

[david45000]

Re : Commentaire

Oui, je l'ai fait mais je suis sous 2003 cela ne fonctionne pas.

Une petite chose, lors de la modification du commentaire celui-ci ne se met pas à jour dans la cellule de la 2ème feuille.

 

[ODVJ]

Re : Commentaire

rajoute une macro évènementielle derrière la feuille 1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then Target.Formula = Target.Formula
End Sub

ça obligera le recalcul de la feuille 2.

la modif d'un commentaire ne provoque pas de recalcul des cellules dépendantes

ça se complique un peu!

sinon, le format "retour à la ligne dans la cellule" fonctionne sous 2003

A+

 

[david45000]

Re : Commentaire

rajoute une macro évènementielle derrière la feuille 1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then Target.Formula = Target.Formula
End Sub

ça obligera le recalcul de la feuille 2.

la modif d'un commentaire ne provoque pas de recalcul des cellules dépendantes

ça se complique un peu!

sinon, le format "retour à la ligne dans la cellule" fonctionne sous 2003

A+

Petit soucis, j'ai déjà un macro dans cette page et cela se met en conflit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not ActiveCell.Comment Is Nothing Then
Range("B74") = ActiveCell.Comment.Text
Exit Sub
End If
Range("B74") = ActiveCell
Exit Sub
Range("B74").NumberFormat = ActiveCell.NumberFormat
End Sub

Comment dois-je faire?

 

[BOISGONTIER]

Re : Commentaire

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

[david45000]

Re : Commentaire

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

Cela n'est pas ce que je veux exactement.

 

[Modeste]

Re : Commentaire (à toutes fins utiles ...)

Je ne suis pas certain de comprendre l'étendue du problème, mais il est aussi possible de copier la cellule contenant le commentaire original, puis dans la cellule de destination, d'effectuer un collage spécial, en ne cochant que "commentaire"

 

[ODVJ]

Re : Commentaire

Bonjour,

le code de JB est sans doute adaptable à ton besoin.
l'astuce repose sur la gestion des changements des commentaires par l'évènement activate de la feuille 2.
c'est plus simple et propre que ce que j'essaye de rustiner depuis hier.

sinon, pour le conflit dont tu parles, il suffit de mettre les 2 codes ensemble puisqu'il doivent se dérouler sur le même évènement.

cordialement

 

[BOISGONTIER]

Re : Commentaire

Voir PJ

JB