Besoin d'aide pour exécuter une macro

[mimidoux]

Bonjour à tous,

J'ai essayé d'exécuter la macro suivante:


Dim m
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If m <> "" Then Range(m).Comment.Visible = False
If Not Target.Comment Is Nothing Then
Target.Comment.Visible = True
Target.Comment.Shape.Top = Target.Top + 20
Target.Comment.Shape.Left = Target.Left + 20
Target.Comment.Shape.Height = 40
Target.Comment.Shape.Width = 70
m = Target.Address
Else
m = ""
End If
End Sub


Il y a un message d'erreur... J'ai essayé quelques modifs, rien de concluant...
Quelqu'un peut-il m’aider?

D'avance merci

 

[pierrejean]

Re : Besoin d'aide pour exécuter une macro

bonjour mimidoux

Difficile d'interpreter une macro erronée
Peux-tu nous dire ce que doit réaliser ta macro

 

[mimidoux]

Re : Besoin d'aide pour exécuter une macro

Bonjour Pierrejean,

Et bien cette macro va servir à re-positionner automatiquement des commentaires à un emplacement choisi...

 

[Pierrot93]

Re : Besoin d'aide pour exécuter une macro

Bonjour mimidoux, PierreJean🙂

j'ai essayé ton code, pas de message d'erreur chez moi (Excel 2003)... Sur quelle ligne rencontres tu ce problème ?

bon après midi
@+

 

[mimidoux]

Re : Besoin d'aide pour exécuter une macro

En faite, je viens de regarder, je suis sous EXCEL 2000, cela peut-il jouer ?

Quand je copie le code, dans un module et que je la lance depuis Visual Basic, il m’emmène sur un masque ou il faut choisir une macro…. Il n’exécute pas.
Je ne suis peut être pas très clair😕
Cela dit, il y a peut-être autre chose à faire?

 

[Pierrot93]

Re : Besoin d'aide pour exécuter une macro

Re

ce code est une procédure événementielle, il se déclenche lors de la sélection de cellule sur une feuille. Ce code ne fonctionne que dans le module de la feuille concernée. Click droit sur l'onglet => visualiser le code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

@+

 

[mimidoux]

Re : Besoin d'aide pour exécuter une macro

Re

ce code est une procédure événementielle, il se déclenche lors de la sélection de cellule sur une feuille. Ce code ne fonctionne que dans le module de la feuille concernée. Click droit sur l'onglet => visualiser le code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

@+

Excuse-moi, je ne suis pas sure d’avoir bien compris, cela veut dire, que si on se place sur la cellule, le commentaire se remettra tout seul en forme? Rien besoin de faire???

 

[Pierrot93]

Re : Besoin d'aide pour exécuter une macro

Re

oui, à condition qu'il existe déjà...

@+

 

[mimidoux]

Re : Besoin d'aide pour exécuter une macro

Un grand merci pour tout..