Macro que pour deux colonnes

Bonjour

voici une macro de M12 qui permet de voir des commentaires d'une certaine grandeur mais qui s'applique

a une feuille entière

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

qui fonctionne bien

mais j'essais de l'appliquer que pour deux colonnes d'une feuil

et que l'on puisse voir les aux autres commentaires normalement

genre: Then Range("E3:F128")

et je n'y arrive pas

c'est a cause du "m" je suppose

merci d'avance

Bonjour,

Un petit exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("E3:F128"), Target) Is Nothing Then Exit Sub
MsgBox "t'y es"
End Sub

Ta procédure événementielle ne s'appliquera qu'au Range("E3:F128")

Merci beaucoup

ça marche bien, il a fallu que je trouve a bien le placer dans la macro déjà existante.

mais c'est normal il faut bien que je bosse un peu

le coup du MsgBox sympa

merci encore car je n'aurais pas trouvé

bonne continuation Rodger

Sujet Résolu

Rodger