copie auto d'un commentaire

[MARIE74]

B) Bonjour a tout le forum


Meteo 24° couvert pluie


Voila est il possible de rendre automatique la copie d'un commentaire (clic droit: inserer un commentaire....) dans une autre cellule



D'avance Merci

N'oubliez pas mon niveau tres bas en VBA

 

[2passage]

bonjour,

Euh.. automatique comment ? dès qu'on ecrit dans la cellule , ça mets un commentaire ? sinon, copier coller , ca colle aussi le commentaire

++

 

[MARIE74]

😉 Bonjour a tous

Salut 2passage


je m'explique:

En A1 je tape 2 dans cette cellule l'insere un commentaire(clic droit inserer un commentaire et je l'affiche) OK


En A65 je desire que le commentaire de la cellule A1 apparaisse

Est-ce clair for You


J'ai bien trouvé un fil de 2005 de CHTI60 mais tres compliqué

Merci d'avance
Je vais manger a +

Meteo toujours pareil

 

[MARIE74]

B) Resalut a tous

Re a 2passage



Je pars en W..ENd alors prenez votre temps
essayez si possible de me trouver un truc pour lundi 04/07/2005



A tous tres bon W..End et bonne grillade



Grosses Bises

 

[MARIE74]

B) Bonjour a tous

Salut a 2passage

Meteo vent du nord fort tres couvert pluie orage 22° plafond 1500m

Avez vous passez un bon W..END en tout cas je l'espere pour vous



merci d'avance de me dépanner su rmon probleme ed commentaire




D'avance merci 🙂

 

[PascalXLD]

Bonjour

Peut-être un code de ce style

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim MonTexte As String
If Not Intersect(Target, Range('A1,A65')) Is Nothing Then
On Error GoTo erreur
MonTexte = Range('A1').Comment.Text
On Error Resume Next
Range('A65').AddComment
Range('A65').Comment.Text Text:=MonTexte
End If
Exit Sub

erreur:
Range('A65').ClearComments
End Sub

Bon courage

 

[MARIE74]

B) REBonjour

salut a Pascal76


Merci ça marche
mais comment fait on pour que cela marche avec
n'importe quelle cellule du moment ou je fais =a1



Merci







PS:
Si tu vient en vacances dans la region prend Kaway parapluie et botte
actuellement violents orages

 

[PascalXLD]

Re

Peux-tu préciser STP ce que tu veux dire par :

mais comment fait on pour que cela marche avec
n'importe quelle cellule du moment ou je fais =a1


Sinon merci pour le conseil mais bon on ne vient qu'au mois d'août et en fait je vais en montagne l'été depuis que je suis gamin et donc le poncho fait parti des accessoires que je juge comme indispensable.
Sinon avec un plafond à 1500 tu dois plus voir grand chose !!

 

[marie74]

B) R RE Bonjour


PAscal76


En A1 je met un commentaire

Mais il faut que en B2 C4 T45 ou Z65 c'est a dire que dans n'importe quelle cellule, si je tape =A1 le commentaire s'affiche.

La fonction = doit comprendre systematiquement la copie du commentaire.

Merci 😉 😉

 

[PascalXLD]

Re

essaies

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MonTexte As String
If Target.Formula = '=A1' Then
On Error GoTo erreur
MonTexte = Range('A1').Comment.Text
On Error Resume Next
Target.AddComment
Target.Comment.Visible = False
Target.Comment.Text Text:=MonTexte
End If
Exit Sub

erreur:
Target.ClearComments

End Sub

Bon courage

 

[MARIE74]

B) Re bonjour


Merci Pascal76
ça marche mais peux tu réaliser une derniere modif

Faire afficher le commentaire

Ta macro fonctionne mais dans la case il y a seulement le petit triangle rouge en haut a droite



Merci tout plein 😉

 

[PascalXLD]

Re

Modifies la ligne

Target.Comment.Visible = False

par

Target.Comment.Visible = True

 

[MARIE74]

B) 😉 🙂 Re RE RE Bonjour



Merci Pascal76


C'est hyper fantastique cela marche

Encore un grand merci


Le VBA il faut que je m'y metttttttttttt et vite



A+ 🙂