Comment mettre un code

Bonjour suite a plusieurs recherches sur ce forum, j'ai trouver un code pour décaler mes commentaires mais je ne sais pas comment procéder pour insérer un code. ou dois je mettre, comme,t faire.*

merci a vous pour votre aide !!!

Salut a toi pour insérer un code si tu as excel 2003, tu fais juste ALT+F11 et ensuite insertion module, tu colle ton code dedans ou si ton code dois aller dans la feuille alors tu double clique sur la feuille dans VBA

J'ai essayé avec alt F11 et je n'y arrive pas. Mon code doit s'exécuter que sur certaines cellules et je ne sais pas comment faire. As tu des infos la dessus ?

Essaye en faisant outils macro et visual basic tu dois tomber dedans

C'est quoi ton code ?

Mon code c'est :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim cmt, c

Set cmt = ActiveSheet.Comments

For Each c In cmt

c.Visible = False

Next

If Not Target.Comment Is Nothing Then

Target.Comment.Visible = True

Target.Comment.Shape.Top = Target.Top - 20

Target.Comment.Shape.Left = Target.Left - 50

Target.Comment.Shape.Height = 40

Target.Comment.Shape.Width = 70

End If

End Sub

Je voudrais que le commentaire de certaines cellules s'affiche à gauche de celle ci dans ma feuilles

Tu colle ce code dans VBA dans la feuille active (Feuil1) en double cliquant dessus. Ton code en faite quand tu clique sur la cellule les commentaires se retrouve bien a gauche.

Je t'ai mis un exemple en pj

J'ai édité le fichier si tu trouve pas, j'ai mis des images

super merci, j'ai réussi mais encore une correction a apporter, ce code s'applique sur toutes les cellules de la feuille, est ce qu'il est possible de l'appliquer que sur une colonne ou que sur certaine cellules par exemple ?

Pour l'appliquer qu'a une cellule tu peux faire ça >>> B10

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cmt, c
Set cmt = ActiveSheet.Comments
For Each c In cmt
c.Visible = False
Next
If Target.Address = "$B$10" And Not Target.Comment Is Nothing Then
Target.Comment.Visible = True
Target.Comment.Shape.Top = Target.Top - 20
Target.Comment.Shape.Left = Target.Left - 50
Target.Comment.Shape.Height = 40
Target.Comment.Shape.Width = 70
End If
End Sub

merci beaucoup avec ce code cela semble parfait, dernière question, pour mettre plusieurs cellules dans le code comme B10.

je voudrais rajouter B11, B12, B13 et ainsi de suite jusqu'a B26. Comment dois je l’écrire dans le code ?

Avec ce code tu rajoute le nombre de cellule que tu veux

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cmt, c
Set cmt = ActiveSheet.Comments
For Each c In cmt
c.Visible = False
Next
If Target.Address = "$B$10" Or Target.Address = "$B$11" Or Target.Address = "$B$12" Or Target.Address = "$B$13" And Not
Target.Comment Is Nothing Then
Target.Comment.Visible = True
Target.Comment.Shape.Top = Target.Top - 20
Target.Comment.Shape.Left = Target.Left - 50
Target.Comment.Shape.Height = 40
Target.Comment.Shape.Width = 70
End If
End Sub

cool, avec ce code cela marche très bien. Sur une autre tableur j'ai envie de faire la même mais j'ai au moins 600 cellules. Est ce qu'il est possible pour pas passer des heures a taper le code, de mettre une colonne entière dans ce même code ?

J'ai pas la solution pour une colonne entière, j'avais essayé comme ça mais cela ne fonctionne pas en changeant comme ceci "B1:B200" Ou encore comme ça "$B1:$B200" ou comme dans le code. mais ici il y a des cadors du excel avec des supers solutions

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cmt, c
Set cmt = ActiveSheet.Comments
For Each c In cmt
c.Visible = False
Next
If Target.Address = "$B$1:$B$200"  And Not Target.Comment Is Nothing Then
Target.Comment.Visible = True
Target.Comment.Shape.Top = Target.Top - 20
Target.Comment.Shape.Left = Target.Left - 50
Target.Comment.Shape.Height = 40
Target.Comment.Shape.Width = 70
End If
End Sub

tant-pis pour moi, peut être un âme charitable va débloquer mon dilemme.

merci d'avance

Oui quant il y a un problème, tu as toujours la solution

je m’aperçoit que je ne peut même pas entrer toutes les cellules dans le code car j'arrive en bout de ligne et je ne sais pas revenir a la ligne sans perdre le lien du code